TNA Nach RESTORE doch eine Anzeige in der Taskbar -.-

[Don]

Sry... hab nur den Teil mit dem RESTORE/MINIMIZE kopiert .... der komplette Quellcode folgt

//EDIT: Habs gefunden *freu*... Das was da unter FormShow steht muss auch in die beiden IFs unter WMSysCommand.

MfG Dragon

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TMessage);
begin
  if(Message.Msg = WM_SYSCOMMAND) and (Message.wParam = SC_RESTORE) then
   Application.Restore;
   inherited;
  if (Message.Msg = WM_SYSCOMMAND) and (Message.wParam = SC_MINIMIZE) then
    Hide
  else
    inherited;
end;



procedure TForm1.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle,GW_OWNER);
  ShowWindow(Owner,SW_HIDE);
end;