Maximierung eines Programms nur auf ein Teil beschränken

[neolithos]

Zitat von xavior:

Code:

procedure TSForm.WMSysCommand(var Message: TWMSysCommand);
begin
 If Message.CmdType = SC_MAXIMIZE then
  ShowMessage('Test 1')
 else
  ShowMessage('Test 2'); // hier störts du wahrscheinlich den Windows ablauf -> verschieben
 inherited;
end;

Delphi-Quellcode:

procedure TSForm.WMSysCommand(var Message: TWMSysCommand);
begin
 If Message.CmdType = SC_MAXIMIZE then
    ShowMessage('Test 1')
 else
    inherited;
end;