В форме, которую вызываешь с помощью гор клавиш или с помощью меню popup напиши:
Цитата:
procedure TForm3.FormCreate(Sender: TObject);
begin
SetWindowPos( Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
end;
|