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)

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

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

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

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