Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Minimalizace a restore - help

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Minimalizace a restore - help

Autor: Trooper68 ♂

10:07:00 02.08.2019

Dobrý den, potřebuji poradit. Mám projekt s hlavním Form1 a vedlejším Form2 (není modal). Chtěl bych aby pokud minimalizuji form2 aby se minimalizovala celá aplikace - to mi funguje přes onResize :

procedure TForm2.FormResize(Sender: TObject);
begin
if (windowstate = wsMinimized) and (form1.windowstate <> wsminimized) then form1.windowstate := wsminimized;
end;

Pak bych chtěl aby při obnovení aplikace z lišty se otevřeli jak Form1 tak i Form2. Když to neošetřím, tak se otevře jen Form1, Když to řeším následně v onResize na Formu1 :

procedure TForm1.FormResize(Sender: TObject);
begin
if (windowstate = wsnormal) and (form2.windowstate = wsminimized) then form2.WindowState := wsnormal;
end;

... tak to poprvé jen zabliká a zůstane minimalizované a otevřu aplikaci tak jak potřebuji až na druhý pokus o restore. Nevím co s tím. Poradí někdo, jak to vyřešit ? Díky moc

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: