Можно так:
Код:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject); { создайте обработчик события OnCreate для формы }
private
{ Private declarations }
procedure SendFormToBack(Sender: TObject); { Добавьте эту строчку... }
public
{ Public declarations }
end;
Далее назначьте процедуру, выполняемую при активации приложения:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.onActivate := SendFormToBack;
end;
{ и, наконец, сама процедура, ответственная за удержание окна в низу z-порядка }
procedure TForm1.SendFormToBack(Sender: TObject);
begin
Form1.SendToBack;
end;
Только что-то не пойму пока: окно активируется с некоторого раза при щелчке (только) на полосе заголовка... Раньше делала — вроде не было такого... Так что пока это стопроцентно работает для окна
без заголовка (BorderStyle = bsNone). А если с заголовком, то активировать окно всё равно можно, пощелкав по синей полоске.