Sletning af popups & StayOnTop

svar til 1.

Her er to funktioner der kan kaldes med den ønskede form som parameter

Function SetTopMost(Frm:TForm):Boolean ;
Begin

  Result := SetWindowPos(Frm.Handle,HWND_TOPMOST,
                          Frm.Left,Frm.Top,Frm.Width,Frm.Height,
                          SWP_SHOWWINDOW);
  Frm.Update ;
End;
Function NotSetTopMost(Frm:TForm):Boolean ;
Begin
  Result := SetWindowPos(Frm.Handle,HWND_NOTOPMOST,
                          Frm.Left,Frm.Top,Frm.Width,Frm.Height,
                          SWP_SHOWWINDOW);
  Frm.Update ;
End;

Jeg er stadig en lidt noobie, så jeg ved ikke helt hvordan jeg skal kalde de 2 funktioner??

Hvis du vil have programmet til at være øvers fra start gør du følgende:
Function NotSetTopMost(Frm:TForm):Boolean ;
Begin
  Result := SetWindowPos(Frm.Handle,HWND_NOTOPMOST,
                          Frm.Left,Frm.Top,Frm.Width,Frm.Height,
                          SWP_SHOWWINDOW);
  Frm.Update ;
End;

Function SetTopMost(Frm:TForm):Boolean ;
Begin

  Result := SetWindowPos(Frm.Handle,HWND_TOPMOST,
                          Frm.Left,Frm.Top,Frm.Width,Frm.Height,
                          SWP_SHOWWINDOW);
  Frm.Update ;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetTopMost(Form1)://du bestemmer at det er Form1 der skal være onTop
end;

den anden funktion bruger du på samme måde hvis programmet ikke mere skal "stayOnTop"

f.eks.

procedure TForm1.Button1Click(Sender: TObject);
begin
NotSetTopMost(Form1):
end;