Delphi form on top of alting

Sæt FormStyle til fsStayOnTop

Beklager - det gør det ikke.

Mystisk, på min Windows 7 virker det. Bruger Delphi 7

Hvad med dette her (fundet på nettet - ser ud til at virke)?


.. den normale ser vistnok sådan ud:

HJ HP,

Havde selv det problem for nogen projecter siden.

Løste det ved at i MAIN-formen (efter alle de andre forme var indlæst) kaldte MAIN-formen en en psvHTMLdialog boks (som egentlig er en Twebbrowser i større eller mindre forklædning. HTML-koden var/er standard HTML-kode men du loader et loader et Javascript ind sammen ved kaldet fra Delphi. Hvis du DISABLE'R venstre muse-knap i PSV-**-boksen er den praktisk taget "U_kode-læsbar" (dvs. koden kan ikke vises ). Gør det sammen med den indlæste jS. Alternativet er, at du "bare lader" psv-**-boksen være simpel INPUT-boks (lidt a al: MessageDialog (bortset fra at du kan pynte din egen boks efter eget hoved") og lader Delphi klare fortolkningen af dine input..., så kan du slippe for al meget sikkerhed.


Husker ikke præcist hvordan jeg løste det - det er mange måneder siden. Men det kan lade sig gøre - ved jeg (af egen erfaring..)

KRistian

Desværre HRC så sætter det kun boksen til at være on top af selve applikationen - ikke til at være on top af alt.

Jeg er ude efter det samme som man kan med taskmanager hvis der er valgt 'Always on top'

I mit testprogram virker det. Mainformen er aldeles øverst, ligesom processoversigten plejer at være det. På ære! Jeg har placeret denne ene linje i mainformens OnCreate:


Er du sikker på du har fjernet dine egne forsøg på at få den øverst? Har du prøvet med et helt "rent" projekt?

Jeg kører Windows 7 uden themes. Mon det spiller ind?

Hej,

jeg har i et program to forme, som ALTID skal vaere "on top", men kun i min applikation.
De normale tiltag som f.eks. StayOnTop osv. virkede OK, lige indtil der blev trykket ALT+TAB i Windows, hvis ikke andre programmer var aabne.
I dette tilfaelde forsvandt mine forme, indtil man "kaldte" dem igen ved foerst at kalde Form.Close og derefter Form.Show!

Ved at soege paa nettet fandt jeg ud af, at det angiveligt var (er) et Windows problem (det med, at de forsvinder ved ALT+TAB), som kunne loeses ved at kalde denne kode i OnActivate i de to forme:

SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Det virker efter min hensigt (at holde formene "on top", men kun i min applikation) i 99.9% af tiden.
Pludselig ligger disse to forme dog ovenpaa ALT i Windows (det, som du gerne vil opnaa).

Jeg har ikke kunnet finde noget system i, hvornaar det virker, og hvornaar ikke, og jeg har egentlig besluttet mig til ikke at spilde mere tid paa denne "detalje".

For mig er det en bug i Windows eller Delphi, som af og til minder mig om, at en Windows maskine skal genstartes af og til :-(

Mit program koerer ioevrigt paa 5-10 forskellige computere, som alle koerer Windows XP. Om alle disse arbejdsstationer har problemet, kan jeg ikke sige. 

Bruger selv Delphi 2006 og Windows XP.

Jeg foelger spaendt denne traad...

I min dpr fil har jeg

if TfrmPassword.Execute('Password') then
  begin
    Application.Initialize;
    Application.BringToFront;
    Application.CreateForm(TfrmHamlist, frmHamlist);
    Application.Run;
  end
else
  begin
    Application.MessageBox('You are not authorized to use the application.', 'Password Protected Delphi application');
  end;

I TfrmPassword har jeg
class function TfrmPassword.Execute(aCode: string; const aHeader: string = ''): boolean;
begin
  with TfrmPassword.Create(Application, aCode, aHeader) do
  try
    Result := ShowModal = mrOk;
  finally
    Free;
  end;
end;

constructor TfrmPassword.Create(aOwner: TComponent; aCode: string; aHeader: string);
begin
  Inherited Create(aOwner);
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  fCode := aCode;
  txtResult.Text := '';
  if aHeader <> '' then
    Caption := aHeader
  else
    Caption := SMsgPassword;
end;

Hvis jeg ændrer lidt i DPR filen så TfrmHamlist er vist når jeg kalder password formen, så er den on top af TfrmHamlist men jeg kan stadig trykke på et program i baggrunden og få det til at svinge til forgrunden.

Hvorfor gøre det så besværligt? Bare kald login-formen fra main-formen og send en PostQuitMessage hvis det er forkert. Hvis du vil have tegnet mainformen i baggrunden, så kan jeg også vise hvordan:


Jeg vil i øvrigt mene at Application.initialize skal op før login-formen.

PostQuitMessage(1) er det samme nummer som custommessagen får?
Jeg har flere custommessages i mit projekt nemlig. (vil jeg ikke bare kunne skrive WM_LATEUPDATE)

Men hvor om alting er, så ser det ud til at jeg kan styre det på din måde HRC.

Har rodet med Application.Initialize men kunne ikke se nogen umiddelbar forskel.

Du vælger bare et nummer. Det skal bare være WM_USER + et eller andet unikt i forhold til dit program.

Application.Initialize går gennem alle units initialization sektioner og det er ret minimalt hvad der er der.

Fik det til at fungere fornuftig ved hjælp af HRC's input