Delphi 10-ben kódolok. Két formám van: FormPrincipal, amely a fő űrlap, és Formbanco, amelyet meg akarok hívni.
A FormPrincipal-ba beraktam egy panelt PanelCorpo és szeretném hívni a Formbanco-et, és ennek a panelnek a pozíciójában mutatni.
Két módszert próbáltam, de mindkettő nem működött. Lásd alább:
1.) FormPrincpal Formbanco hívása a Showmodal használatával:
// TActionlist OnExecute event
procedure TFormPrincipal.AbreFormBancoExecute(Sender: TObject);
begin
try
Application.CreateForm(Tformbanco,Formbanco);
Formbanco.Parent := PanelCorpo;
Formbanco.Align := alclient;
Formbanco.Showmodal;
finally
Freeandnil(formbanco);
end;
end;
A viselkedés a következő volt: megfelelően megnyitotta a Formbanco nevű űrlapot, de lefagyott. Mindkét forma nem tette lehetővé a fókuszálást!
2.) A FormPrincpal a Formbancót a Show használatával hívja:
// TActionlist OnExecute event
procedure TFormPrincipal.AbreFormBancoExecute(Sender: TObject);
begin
try
Application.CreateForm(Tformbanco,Formbanco);
Formbanco.Parent := PanelCorpo;
Formbanco.Align := alclient;
Formbanco.Show;
finally
Freeandnil(formbanco);
end;
end;
A viselkedés a következő volt: nagyon gyorsan villog a Formbanco, szinte nem látható, és FormPrincipal-ben folytatódik. Nem férek hozzá a Formbanco-hez!
Nagyra értékelem a segítséget ebben.
