Thema: Delphi Form als (Tray) PopUp

Einzelnen Beitrag anzeigen

Kalfany

Registriert seit: 28. Feb 2008
Ort: München
153 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Form als (Tray) PopUp

  Alt 27. Mai 2009, 10:30
Danke soweit. Mein Problem war eher das trennen des zweiten Forms vom Mainform. Aber ich hab jetzt eine Lösung gefunden die soweit ganz gut funktioniert.

Delphi-Quellcode:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do begin
    ExStyle := ExStyle or WS_EX_TOOLWINDOW;
    WndParent := GetDesktopwindow;
  end;
end;

procedure TForm2.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle,GW_OWNER);
  ShowWindow(Owner, sw_Hide);
end;
  Mit Zitat antworten Zitat