Forum: Win32/Win64 API (native code)
Delphi
by Chearly020664,
5. Jun 2021
Hallo KodeZwerg,
herzlichen dank, alles funktioniert jetzt perfekt und ich habe gelernt ...
procedure TForm1.WMSysCommand(var msg: TWmSysCommand);
begin
inherited;
case msg.CmdType of
SC_MINIMIZE: Apfelmann1Click(self);
Forum: Win32/Win64 API (native code)
Delphi
by Chearly020664,
5. Jun 2021
case Message.WParam of
SIZE_MAXIMIZED: ;
SIZE_MINIMIZED:;
SIZE_RESTORED: ;
end;
Danke, was kann die Welt einfach sein ..., ach was wäre das doch schön, wenn das Einfügen von
procedure WMSIZE(var Message: TMessage); message WM_SIZE;
Forum: Win32/Win64 API (native code)
Delphi
by Chearly020664,
5. Jun 2021
procedure TForm15.WMSysCommand(var msg: TWmSysCommand);
begin
case msg.CmdType of
SC_MINIMIZE: ShowMessage('Minimize');
SC_MAXIMIZE: ShowMessage('Maximize');
end;
inherited;
end;