Всегда на переднем плане

[Rapala]

Подскажите, как сделать, чтобы форма была всегда на переднем плане?

[Stilet]

FormStyle:=fsStayOnTop;

[nXs]

Можно так:

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

[Grag]

А так лучше
SetWindowPos( Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );

[Rapala]

Это работает, а как сделать чтобы не сворачивалось окно по Win+D?

[Stilet]

м.м.м Кинуть на форму TApplication и обрабатывать его событие OnMinimize...
(Первое что приходит в голову)

[Rapala]

Почему то не работает если использовать несколько форм. Как сделать чтоб работало на нескольких формах?

Проблема вот в чем: когда главная форма выделена, то нельзя свернуть, а когда дочерняя-можно.

[Stilet]

Попробуй для каждой формы проставь отдельный перехватчик сворачиваний:

  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure wmm(var m:TWMSysCommand); message WM_SysCommand;
  public
    { Public declarations }
  end;
...
procedure TForm1.wmm(var m: TWMSysCommand);
begin
 if m.CmdType=SC_MINIMIZE then m.Msg:=0;
end;

Не пробовал, но думаю стоит порыть в этом направлении

[Rapala]

Не помогло...

[Kotofff]

Пробуй :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.FormStyle := fsStayOnTop;
  Self.BorderIcons := Form1.BorderIcons - [biMinimize];
end;