on top

← →
Алексей Ким (2002-10-23 18:05) [0]

Такая ф-ция делает форму онтоп до
следующего activate/de как ее сделать по человечески?

procedure tform1.formshow...
begin
SetWindowPos ( Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
end;

← →
Алексей Ким (2002-10-23 21:07) [1]

← →
SPeller (2002-10-24 01:01) [2]

У меня она так по-человечески сразу делалась. Может причина в другом?

← →
Рыжик (2002-10-24 10:08) [3]

А если вместо Application.Handle написать Form1.Handle?

← →
Алексей Ким (2002-10-24 18:12) [4]

У меня форма не главная а коду в форме кот наплакал,
вызываю форму так

procedure TfmMain.mmsmallClick(Sender: TObject); //mmsmall - tmenuitem
begin
Visible := False; // glavnaya
fmSmall.Show; // eta forma
end;

на выходе

procedure TfmSmall.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fmMain.Show;
end;

в креате читаю ini и делаю memo.lines.assign(fmMain.memo2.lines)

Рыжик>тогда вообще ничего не делает

привести полный юнит?

← →
Nick N A (2002-10-27 08:26) [5]

ТApplicationEvents (Aditional)
твоему процессу фокус может передать только другой процесс
т.е. Windows.SetForegroundWindow работает только для других окон

on top Найти похожие ветки