Avatar billede hugopedersen Nybegynder
23. januar 2012 - 10:23 Der er 3 kommentarer og
1 løsning

Form skal altid være øverst

Jeg har en form som jeg meget gerne skulle have til at være on top af alt - også andre kørende Windows programmer.
Hvordan gør jeg nu lige det?

Jeg har prøvet
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
og diverse afarter uden held.

Applikationen starter som minimeret til tray og så viser den omtalte form som helst skal være aktiv indtil brugeren har gjort noget aktivt.
Avatar billede mbsnet Nybegynder
23. januar 2012 - 11:22 #1
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do begin
    ExStyle := ExStyle or WS_EX_TOPMOST;
    WndParent := GetDesktopwindow;
  end;
end;
Avatar billede hugopedersen Nybegynder
23. januar 2012 - 13:53 #2
Den kommer du nok lige til at forklare lidt nærmere :-)

Hvor og hvordan skal den kaldes?
Avatar billede hugopedersen Nybegynder
23. januar 2012 - 15:16 #3
Åh på den måde (søg på Google :-)  )

Det ser da ud til at give et brugbart resultat, så et svar er på sin plads.
Avatar billede mbsnet Nybegynder
24. januar 2012 - 00:59 #4
Hej godt du fandt ud af det,

- ellers.. fordi den bruger inherited (nedarvet kald), kan man se den skal override'es eller reintroduceres under objectets implementering (priv..prot..pub)

protected
procedure CreateParams(var Params: TCreateParams);OVERRIDE;

//mbs
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester