(SLV)StayOnTop Over Start winButton

[codeman]

I found this code from delphi, but i get TCreateParams not found, i want my app to be onTop from Start WinButton when i press VK_LWIN or VK_RWIN, how to make it work?

Code: [Select]

procedure TForm1.CreateParams
   (var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do begin
  ExStyle := ExStyle or WS_EX_TOPMOST;
    WndParent := GetDesktopwindow;
  end;
end;


[ChrisF]

I'm not sure your code will act as you wish. Anyway:

- for TCreateParams: add LCLType in you 'uses' clause,
- for GetDesktopwindow: add Windows in you 'uses' clause.

[Xirax]

Test it:

Code: [Select]

SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);An easy way to keep on top is put this code in a timer with a small interval but I know its not beautiful but it do the job until you find a better way.

[codeman]

I got the result i wanted!
Thanks guys.