Fenster immer / nach Focusverlust in den Vordergrund

[EccoBravo]

Hallo, ich programmiere gerade eine Art Taschenrechner als 'Toolbox' für andere WINDOWS-Anwendungen.
Diesen Taschenrechner starte ich aus der TaskBar-NotificationArea heraus.
Dabei möchte ich diesen Taschenrechner - wenn ich nun in den anderen WINDOWS-Anwendungen bin - immer im Vordergrund sehen wie eine Toolbox.
Mit dem TForm-Ereignis 'OnDeactivate' oder der Form-Methode 'FormStyle:=fsStayOnTop' geht es nur innerhalb der Fenster einer eigenen Anwendung.
Meine Versuche mit in der FormCreate-Methode

Delphi-Quellcode:

TForm1.FormCreate(Sender:TObject);
begin
    Application.OnDeactivate 
end;

bzw.

Delphi-Quellcode:

TForm1.FormCreate(Sender:TObject);
begin
    SetWindowPos(handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_ShowWindow)
end;

funktionieren nur in einem Demo-Programm mit einer sonst leeren FormCreate_Methode.
Kann mir jemand einen Tip geben ?

Gruss

E. B.

[arbu man]

Regisriere die form einfach als appbar

[EccoBravo]

Wie geht das ?

Danke

E. B.

[Vjay]

Zitat von EccoBravo:

Delphi-Quellcode:

TForm1.FormCreate(Sender:TObject);
begin
    SetWindowPos(handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_ShowWindow)
end;

funktionieren nur in einem Demo-Programm mit einer sonst leeren FormCreate_Methode.

Das kann eigentlich nicht sein, alternativ könntest du die WM_WINDOWPOSCHANGING abfangen und die Position manuell immer auf HWND_TOPMOST setzen.

[arbu man]

Zitat von EccoBravo:

Wie geht das ?

Danke

E. B.

hier en Turial dazu

[antrophos]

ich stehe grad vor enem ähnlichen problem aber bin noch etwass neuling in delphi, ob jemand bitte mal die nötige prozedur posten könnte mit der man ein leeres form ontop bringt?

[Vjay]

Also

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 setWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
 showmessage('hallo');
end;

funktioniert bei mir einwandfrei.

[100nF]

hallo,

vielleicht so?

Delphi-Quellcode:

with Self do
  SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

und das ganze in einen timer packen...