Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

on top [D6, Win95/98]


Алексей Ким ©   (2002-10-23 18:05:00) 

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

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


Nick N A   (2002-10-27 08:26:00) [1]

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


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

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

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)

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

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


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

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


SPeller   (2002-10-24 01:01:00) [4]

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


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

up


Наверх

Титульная страница Поиск, карта сайта Написать письмо