Minimieren abfangen klappt jedoch nur 1x

[SirThornberry]

oh, versuch lieber das WM_SYSCOMMAND direkt abzufangen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
    procedure NoMinimize(var AMsg: TWMSysCommand); message WM_SYSCOMMAND;
[...]
procedure TForm1.NoMinimize(var AMsg: TWMSysCommand);
begin
  if AMsg.CmdType = SC_MINIMIZE then
    AMsg.Result := -1
  else
    inherited;      
end;

Noch sinnvoller ist jedoch einfach bei den BorderIcons das Minimieren auszublenden.