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

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

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

ShimON ©   (2005-01-21 11:43:00) 

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

---

Style   (2005-01-21 18:11:00) [1]

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


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

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

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

---

Юрий Зотов   (2005-01-21 18:07:00) [2]

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

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

---

ShimON   (2005-01-21 12:29:00) [3]

Все, сделал... Вот так:

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


---

ShimON   (2005-01-21 12:23:00) [4]

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

---

Юрий Зотов   (2005-01-21 12:15:00) [5]

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

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

---

ShimON   (2005-01-21 12:07:00) [6]

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

---

Smithson   (2005-01-21 12:00:00) [7]


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 11:58:00) [8]

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

---

ShimON   (2005-01-21 11:53:00) [9]

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

---

ShimON   (2005-01-21 11:50:00) [10]

При загрузке мне надо, чтобы прога просто появилась в трее, а форма не показывалась. Я делал так:
в крит форм

TrayIcon.Show;
ShowWindow(Application.Handle,SW_HIDE);

но не помогло, кнопка на панели пуска все равно появляется и иконка в трее тоже

---

Ega23   (2005-01-21 11:47:00) [11]

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

---

Наверх