Italian community of Lazarus and Free Pascal
Programmazione => Generale => Topic aperto da: Maverich - Aprile 11, 2012, 11:09:40 am
-
Provando, noto che non riesco ad allineare un Form Child su un TPanel (align := alClient;), pena sollevamento eccezione.
TWnControl.WMSize loop detect .. \include\wincontrol.inc line 6766
ho solo variato l'esempio allegato in precedenza.
verificato , in delphi non ci sono problemi.
cortesemente provate, cosi' sapro' che la mia installazione ha problemi, nel caso segnalarlo alla comunty ufficiale ?
Lazarus Win32 e Win64 0.9.31 - F.P.C 2.7.1 - Revisione 34609 - ambiente Win7 64.
//Lazarus
procedure Tfrm_Base.SpeedButton1Click(Sender: TObject);
begin
fChild := Tfrm_Child.create(nil);
fChild.act_chiude.OnExecute := @LiberaChild;
fChild.Parent := Panel1;
fChild.Align := alClient;
fChild.Show;
end;
//Delphi
procedure TForm2.Button1Click(Sender: TObject);
begin
FChild := TForm3.Create(nil);
FChild.Parent := Panel1;
FChild.Align := alClient;
FChild.act_Chiude.OnExecute := LiberaChild;
FChild.Show;
end;