paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 15:36:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

added Delphis trick to set the form reference before the constructor is called

Browse Source 
git-svn-id: trunk@3639 -
This commit is contained in:
mattias 2002-11-15 22:43:28 +00:00
parent bec5c13181
commit 98f2c29901
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -568,7 +568,7 @@ type
destructor Destroy; override;
procedure ControlDestroyed(AControl: TControl);
Procedure BringToFront;
procedure CreateForm(NewForm : TFormClass; var ref);
procedure CreateForm(InstanceClass: TComponentClass; var Reference);
function HandleAllocated: boolean;
procedure HandleException(Sender: TObject);
procedure HandleMessage;