Hogyan lehet elkapni esetén összecsukható formák

előző ◈ a következő

Hogyan lehet elkapni esetén összecsukható formák?

Csatolt számos formája - Azt akarom, hogy ha minimalizálni ezek közül bármelyik, amely minimalizálja az egész alkalmazást. De OnMinimize események nem formában.

típus
# XA0; TMyForm = osztály (TForm)
# XA0;.
# XA0; magán-
# XA0; # XA0; eljárással WMSysCommand (var Message: TMessage); Üzenet WM_SYSCOMMAND;
# XA0;.
# XA0; end;

eljárás TMyForm.WMSysCommand (var Message: TMessage);
kezdődik
# XA0; ha Message.WParam = SC_MINIMIZE majd
# XA0; # XA0; PostMessage (Application.MainForm.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
# XA0; örökölt;
végén;

És így minden formában :)

eljárás TForm2.WMSysCommand (var Message: TMessage);
kezdődik
ha Message.WParam = SC_MINIMIZE ezután kezdődik
// # XA0; PostMessage (Application.MainForm.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
# XA0; Application.Minimize;
# XA0; exit;
végén;
örökölt;
végén;

PS És hogyan kell bekapcsolni az ilyen alkalmazás kattintással a gomb a tálcán?


> És hogyan kell bekapcsolni az ilyen alkalmazás kattintással a gomb
> A tálcán

A kód meg van írva csak növeli a standard funkciók lehetőségét, hogy kikapcsolja az alkalmazás a kisebb formában. Standard sajátosságok az alábbi kódot pisilni Ez nem érinti, így a kérdés nem egyértelmű.

1) Ha az alkalmazás fut, és csak akkor aktív, egy fő formája - az alkalmazás minimalizálható kattintással annak gombjára a tálcán.

2) Ha az alkalmazás fut, és aktív # XA0, nem a fő formája, a modális - Ez az alkalmazás nem hengerelt kattintással a gomb a tálcán. # XA0;

Kérdés: hogyan lehet minimalizálni a kérelmet abban az esetben, 2) # XA0; egérkattintás a gomb a tálcán?


.
eljárás MyWndProc (var Message: TMessage) üzenet WM_ACTIVATEAPP;
.
eljárás TForm2.MyWndProc (var Message: TMessage);
kezdődik
# XA0; ha Message.WParam = 0
# XA0; # XA0; majd Application.Minimize
# XA0; # XA0; máshol Application.Restore;
végén;
.

Az alkalmazás minimális, de csak addig, amíg én tartsa lenyomva az egér gombját. Engedd el az egér - az alkalmazás újra beállítani.

előző ◈ a következő