title image


Smiley Re: D5: Ein Ereignis OnResizeD für ein TForm implementieren
Hallo Codehunter!



Wahrscheinlich ist bei Dir in den "Eigenschaften von Anzeige" "Fensterinhalt beim Ziehen anzeigen" eingestellt. Da wirst Du mit WM_SIZE Messages zugemüllt. Ich hoffe, ich habe in meiner Bastelei keine Eventualität vergessen.





...

procedure FormCreate(Sender: TObject);

private

{ Private-Deklarationen }

FResized:Boolean;

FMaximized:Boolean;

procedure WMSIZE(Var AMsg:TWMSize); message WM_SIZE;

procedure WMEXITSIZEMOVE(Var AMsg:TMessage); message WM_EXITSIZEMOVE;

procedure FormResized;

public

{ Public-Deklarationen }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

FResized:=FALSE;

FMaximized:=(WindowState=wsMaximized);

end;



procedure TForm1.FormResized;

begin

Listbox.Items.Add(Format('FormResized Width=%d Height=%d',[Width,Height]));

end;



procedure TForm1.WMSIZE(var AMsg: TWMSize);

begin

Inherited;

If (AMsg.SizeType=SIZE_RESTORED) And FMaximized Then Begin

FormResized;

FMaximized:=FALSE;

End;

If (AMsg.SizeType=SIZE_MAXIMIZED) Then Begin

FormResized;

FMaximized:=TRUE;

End;

end;



procedure TForm1.WMEXITSIZEMOVE(var AMsg: TMessage);

begin

Inherited;

FormResized;

end;





Gruss



OLLI



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: