wsMaximized...

0

Mam coś takiego:

procedure TForm1.FormResize(Sender: TObject);
begin
if Form1.WindowState = wsMaximized then
ShowMessage('Wiadomość');
end;

A to moje pytanie:

Dlaczego Message nie wyświetla się kiedy formularz zostanie zmaksymilizowny, lecz dopiero wtedy gdy kliknę przycisk Przywróć(chodzi mi o ten na pasku u góry)? Sprawdzałem również CanResize i nic. Idzie temu jakoś zaradzić??? Proszę o pomoc...

0

Moja rada: daj Timera na forme i interval ustaw na 1 lub 100 żeby było mniej efektownie, i daj tą swoją procedurke do timera, i go włączaj / wyłączaj w odpowiedniej chwili... wiesz o co chodzi

//o błagam... w najgorszych koszmarach nie wpadłbym na tak beznadziejne rozwiązanie... [glowa] - m.M

//ktoś zawsze musi na taki wpaść [cygaro] -WeeR

0

<font color="green">Moja rada: daj Timera na forme i interval ustaw na 1 lub 100 żeby było mniej efektownie, i daj tą swoją procedurke do timera, i go włączaj / wyłączaj w odpowiedniej chwili... wiesz o co chodzi</span>

Jezuu człowieku, może wstrzymaj się od takich podpowiedzi..

Jeśli chcesz uzyskać coś przy maksymalizacji okna to dajesz:

procedure TForm1.FormPaint(Sender: TObject);
begin
if form1.WindowState = wsMaximized then showmessage('Wlasnie maksymalizowales forme');
end;

//że tak się dopiszę... też niezbyt boskie rozwiązanie... niepotrzebne instrukcje odpalane za każdym odświeżeniem - po grzyba? - m.M

0

8-0 // to było oczywiście do WeeRa :)

Przecież tu jedna prosta funkcja starczy:

BOOL IsZoomed(
HWND hWnd // handle of window
);

1 użytkowników online, w tym zalogowanych: 0, gości: 1