Скачать: CL | DM;

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]

up

---

← →
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 работает только для других окон

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c