Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Reagieren auf Minimieren & Maximieren des Fensters
9. Mai 2003, 15:27
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure WMSYSCOMMAND(var msg: TMessage); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSYSCOMMAND(var msg: Tmessage);
begin
if msg.Msg = WM_SYSCOMMAND then
begin
case msg.WParam of
SC_MAXIMIZE : ShowMessage('Juhu, ich werde maximiert.');
SC_MINIMIZE : ShowMessage('Hilfe, ich werde minimiert.');
end;
end;
inherited;
end;
[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]
Michael Ein Teil meines Codes würde euch verunsichern.
|