Какое событие обработать??

← →
ShimON © (2005-01-21 11:43) [0]

Какое событие мне обработать, чтобы сделать что-то как только форма полностью загружена.

← →
Ega23 © (2005-01-21 11:47) [1]

А кто её грузит?

← →
ShimON © (2005-01-21 11:50) [2]

При загрузке мне надо, чтобы прога просто появилась в трее, а форма не показывалась. Я делал так:
в крит форм
TrayIcon.Show; ShowWindow(Application.Handle,SW_HIDE);
но не помогло, кнопка на панели пуска все равно появляется и иконка в трее тоже

← →
ShimON © (2005-01-21 11:53) [3]

Пихнул в FormActivate, помогло но не совсем
Пока происходит форм крит, кнопка на панели пуск все равно видна!!!

← →
ShimON © (2005-01-21 11:58) [4]

Так как мне добиться нужного результата, МАСТЕРА????

← →
Smithson (2005-01-21 12:00) [5]

procedure HideApp(AHide: Boolean); var I: DWord; Begin I := GetWindowLong(Application.Handle, GWL_EXSTYLE); if AHide then begin ShowWindow(Application.Handle, SW_HIDE); Application.MainForm.Hide; Application.Minimize; iAppDefEXSTYLE := I; I := I and (not WS_EX_APPWINDOW); I := I or WS_EX_TOOLWINDOW; end else begin ShowWindow(Application.Handle, SW_Show); if iAppDefEXSTYLE > 0 then I := iAppDefEXSTYLE else begin I := I and (not WS_EX_TOOLWINDOW); I := I or WS_EX_APPWINDOW; end; end; SetWindowLong(Application.Handle, GWL_EXSTYLE, I); if not AHide then begin Application.Restore; Application.MainForm.Show; Application.MainForm.WindowState := wsNormal; Application.BringToFront; end; End;

← →
ShimON © (2005-01-21 12:07) [6]

Что такое iAppDefEXSTYLE, может есть какие нить зависимости??

← →
Юрий Зотов © (2005-01-21 12:15) [7]

> ShimON © (21.01.05 11:50) [2]

Просто добавьте еще одну строчку:
Application.ShowMainForm := False;

← →
ShimON © (2005-01-21 12:23) [8]

К сожалению не помогло, так как после того как приложение загрузилось окно должно мочь показываться, но оно не может, почемуто даже если это свойство переставить в true!!!
КАК ЖЕ ЭТО СДЕЛАТЬ!!!!

Все, сделал... Вот так:
Application.ShowMainForm:= True; Application.MainForm.Show;

> ShimON © (21.01.05 12:23) [8]
> К сожалению не помогло

Странная логика. Вы спрашивали, как СПРЯТАТЬ. И оно спряталось. А Вы говорите - не помогло. Как же "не помогло", если оно все-таки спряталось?

> Странная логика. Вы спрашивали, как СПРЯТАТЬ. И оно спряталось.
> А Вы говорите - не помогло. Как же "не помогло", если оно
> все-таки спряталось?

Скорее всего это продолжение мысли ->

Application.ShowMainForm:= True; Application.MainForm.Show;

У него получилось поднять форму из трея обратно :))))

Какое событие обработать?? Найти похожие ветки