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

Tform.OnMinimized()   Найти похожие ветки 

← →
GSVSerg ©   (2004-03-18 12:10) [0]

Привет всем! Такой вопрос. Нужно чтобы при минимизации модального окна в MDI-приложении сворачивалось все приложение.
Объявлял проц Tform.onminimized(Sendder:Tobject), но она не срабатывает. Какие есть варианты?

---

← →
TransparentGhost   (2004-03-18 12:14) [1]

V OnResize.

Begin
If Form1.WindowState=WsMinimized then
Begin
  Form1.WindowState:=WsNormal;
  Application.Minimize;
End;
End;

---

← →
GSVSerg ©   (2004-03-18 12:25) [2]

If Form1.WindowState=WsMinimized then
- сработает если форма в свернутом состоянии, а при сворачивании
windowstate=wsnormal

---

← →
TransparentGhost   (2004-03-18 12:33) [3]

A kak ona u tebja svernjotsa i pri etom ostanecz v WsNormal?

---

← →
GSVSerg ©   (2004-03-18 12:39) [4]

Интересный вопрос. При сворачивании развернутой формы в событии оnresize windowstate=wsnormal. Проверял трассировкой. А при разворачивании свернутой windowstate=wsminimized.

---

← →
TransparentGhost   (2004-03-18 12:44) [5]

U menja eto sobitije zapisano vo vseh formah projekta i vsjo rabotajet. I effekt interesnij nabljudajeca :o)

---

← →
GSVSerg ©   (2004-03-18 13:18) [6]

-I effekt interesnij nabljudajeca :o)
Какой?
Странно, почему у меня не работает.

---

← →
TransparentGhost   (2004-03-18 13:25) [7]

Efekt takoj : nazhimajesh zakrit" formu... vidno, kak ona svorachivajetsja i tut zhe razvorachivajetsja, a posle etogo proga ischezajet s ekrana (svjornuta) :o)

Stranno, chto u tebja ne rabotajet...a mozhet naoborot - stranno chto u menja rabotajet :o)

---

← →
GSVSerg ©   (2004-03-18 13:41) [8]

Нормальный эффект -Form1.WindowState:=WsNormal;

---

← →
TransparentGhost   (2004-03-18 15:01) [9]

Ja imel v vidu, chto so storoni juzera interesno poluchajeca :o)

---

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

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



Память: 0.46 MB
Время: 0.025 c