Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Form immer im vordergrund (https://www.delphipraxis.net/69703-form-immer-im-vordergrund.html)

ghost007 18. Mai 2006 18:59


Form immer im vordergrund
 
Hallo,
hab mal wieder ein problem ...
Gibt es eine möglichkeit, wie ich meine form immer ontop habe, und man sie sogar vor einem spiel sieht, das im vollbild modus läuft.
d.h. spiel läuft, man spielt ganz normal, blos vor der spiel-form is noch meine form, z.b. klein rechts unten in der ecke.

Danke schon mal :)

MfG - Ghost

Corpsman 18. Mai 2006 19:03

Re: Form immer im vordergrund
 
Delphi-Quellcode:
Form1.Formstyle:=fsStayOnTop;
Am Besten ist aber du machst das zur Debugg Zeit.

Wenn du das erst zur Runtime machst geht es anders, das weis ich aber grad net auswendig.

ghost007 18. Mai 2006 20:12

Re: Form immer im vordergrund
 
hallo,
danke für deine antwort.
1.wie "zur debugg zeit" ?
2.ich habe bereits bei meiner form
oncreate
Delphi-Quellcode:
Form1.Formstyle:=fsStayOnTop;
Aber die form bleibt nicht sichtbar vor dem spiel(im vollbildmodus)
:wall:

[EDIT] ich glaube auch nicht das es mit dem StayOnTop getahn is ... :(

ghost007 18. Mai 2006 21:05

Re: Form immer im vordergrund
 
Hi,
oder muss man das ganz von einer ganz anderen seite angehen?
mit nem Grafik hook, falls es sowas gibt?!

Corpsman 18. Mai 2006 21:58

Re: Form immer im vordergrund
 
OK Probiers mal damit

Mit

Stayontop :Boolean
Delphi-Quellcode:
    If Stayontop Then
      SetWindowPos (Form1.Handle, HWND_TOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
    Else
      SetWindowPos (Form1.Handle, HWND_NOTOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
So mache ich das in meinem Project

ghost007 18. Mai 2006 22:21

Re: Form immer im vordergrund
 
hallo,
danke für die antwort, aber wo soll das hin?

Da ich nicht weiß was du meinst hab ich es mal hier rein:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
If Stayontop Then
      SetWindowPos (Form1.Handle, HWND_TOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
    Else
      SetWindowPos (Form1.Handle, HWND_NOTOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
end;
Das wird da aber nix :(

Vjay 18. Mai 2006 22:25

Re: Form immer im vordergrund
 
Hallo Ghost,
ohne zuviel verraten und somit die Spannung aus dem Faden nehmen zu wollen, schau dir mal die Delphi-Hilfe zu setWindowPos und WM_WINDOWPOSCHANGING an.

*EDIT* zu deinem Text,

Mach dir eine Prozedur mit einem Parameter namens Stayontop.

ghost007 18. Mai 2006 22:36

Re: Form immer im vordergrund
 
hi,
also.
habe mir jetzt mal diese procedure gebastelt:
Delphi-Quellcode:
procedure Stayontop (Stayontop:Boolean);
begin
If Stayontop Then
      SetWindowPos (Form1.Handle, HWND_TOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
    Else
      SetWindowPos (Form1.Handle, HWND_NOTOPMOST, -1, -1, -1, -1, SWP_NOMOVE + SWP_NOSIZE)
end;
ABER:
1.Ich starte ein Spiel im vollbildmodus
2.wenn ich da hin gehe, wo im windows die form ist, wird mein zeiger zu nem normalem curosr, aber die form kann man nicht sehen.

:wall:

Vjay 18. Mai 2006 22:38

Re: Form immer im vordergrund
 
Okay,

tschuldigung das ich frage, hört sich vielleicht etwas komisch an, aber: Rufst du die Prozedur überhaupt auf? Wenn ja starte ich sofortig mein Delphi und bastel dir was. Muss aber gleich in die Falle, also poste fix ;)

ghost007 18. Mai 2006 22:40

Re: Form immer im vordergrund
 
;) natürlich rufe ich die prozedur auf ^^

mit dem tastekürzel F5 (globaler hotkey)

[EDIT]Man sieht die form einmal kurz aufleuchten, und dann verschwindet se weider, wenn man aber an die stelle klickt, wo sie aufgeläuchtet hat, komme ich ins windows und hab die form makiert ... :(

[EDIT]Ich teste das ganze mit Warcraft 3, falls euch das was sagt. Aber ich denke das das spiel keine rolle spielt


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:22 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz