chce wykryc zdarzenie gdy minimalizuje okno (nacisniecie ikonki na gornym pasku) wiem ze w takim wypadku jest zdarzenie WM_SIZE ale ono wystepuje rowniez przy kazdej zmianie rozmiaru okna a ja chce oprogramowac tylko zdarzenie gdy uzytkownik nacisnie minimalizacje a nie zmieni rozmiar okna. Dzieki za odpowiedz
Załóż Hook'a do minimalizacji
Na zakładce Addational masz kompoment Application Events i tam masz zdarzenie OnMinimize. Lub tez jak napisal fleming86.
dzieki za rady ale :
co do hooka to taki mieszacz ze mnie nie jest...
pomeczylem sie z tym onMinimize ale raz dziala a za drugima razem juz nie - a dokladniej to tak to jest: mam ikonke na trayu i chcialem myknac funkcje ze jak minimalizuje formatke to zeby znikala calkowicie wiec napisalem funkcje
procedure Minimal(var Message : TMessage); message WM_SIZE;
i wyglada tak
procedure TMainForm.Minimal(var Message: TMessage);
begin
if Message.WParam = SIZE_MINIMIZED then
MainForm.Visible := False;
end;
pytanie co i gdzie powalilem - wiem ze moze dla was to bedzie smieszny blad ale ja zaczynam i chyba tak kazdy mial ;)
dzieki za odpowiedzi dane jak i przyszle
pozdr
aha dodam ze funkcja ktora wczesniej opisalem nie dziala <ort>w ogóle</ort>, a wspomniana onMinimize dzial za pierwszym razem a za drugim i dalszymi probami nawet samo okno sie nie minimalizuje ;) - niewiem co gdzie powalilem
dzieki za odp.
procedure TMainForm.Minimal(var Message: TMessage);
begin
case Message.Msg of WM_SIZE :
begin
ShowMessage('teraz');
if Message.WParam = SIZE_MINIMIZED then
MainForm.Visible := False;
end;
end;
end;
tak zmodyfikowalem moja procedure i 'teraz' pokazuje sie przy zmianie parametrow okna ale nigdy nie pokazuje sie przy minimalizacji ?? czy to jest wlasciwy WM do obslugi minimalizacji bo zaczynam watpic... dzieki za odp
Spróbuj onsłużyć WM_SYSCOMMAND. W WParam (chyba) jest zmienna mówiąca, który przycisk systemowy został naciśnięty.
no teraz to dziala respect :d
dziekowac dziekowac
pozdr 4 all
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.