Jegliches Minimieren abfangen

[Thorben86]

Also ich hab dass Problem, dass ich ein Fenster brauch, dass so gut wie nicht minimiert werden kann.

Mein Problem ist, dass ich es nicht schaffe das minimieren über das kontext-Menü(in der Taskleiste) abzufangen und so umzuwandeln, dass das Fenster nichts macht. Alternativ könnte ich das Minimieren da auch ausschalten , wenn jemand weiß, wie das geht. Am besten wäre natürlich eine Procedure, die alles Minimieren und entfernen als Fordergrung-Fenster abfängt und so umwandelt, dass nichts passiert, oder dass es wieder hergestellt wird.

Ich hab hier im Forum gesucht und hab es jetzt so versucht, klappt aber gar nix:

Delphi-Quellcode:

private
     { Private-Deklarationen }
     procedure WMSYSCOMMAND(var Msg: TMessage); Message WM_SYSCOMMAND;

procedure TF_shuttimer.WMSYSCOMMAND(var Msg: TMessage);
begin
  if (msg.Msg = sc_minimize) then
     showmessage('1');
     {msg.WParam := sc_restore;
Die Showmessage wird auch nicht angezeigt}

end;

[StefanDP]

(edit)

dieser code funzt:

Delphi-Quellcode:

private
  procedure WMShowWindow(var Msg: TWMSHOWWINDOW);message WM_SHOWWINDOW;
...
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
 if not Msg.Show then
   Msg.Result := 0
 else
   inherited;
end;

mfg
stefan

[Thorben86]

Hm, der klappt irgendwie nicht, sowohl, beim Kontextmenü, als auch wenn ich den minimieren Button Drücke. hab auc ausprobiert, ob der zur PostMessage kommt indem ich davor ne showmessage gesetzt hab, die wurde aber auch nicht aufgerufen.

Weis nicht, ob es von bedeutung ist, das Fenster steht auf Dialog, hab aber auch unter Sizable ausprobiert.

[NicoDE]

versuchs mit

Delphi-Quellcode:

procedure TF_shuttimer.WMSysCommand(var Message: TWMSysCommand);
begin
  if SC_MINIMIZE = (Message.CmdType and $FFF0) then
     ShowMessage('foo');
end;