You've already forked lazarus-ccr
fix error create popup form - now use CreateNew constructor for this
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1838 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -443,7 +443,7 @@ constructor TPopUpForm.CreatePopUp(AOwner: TComponent;
|
|||||||
var
|
var
|
||||||
PopupOrigin:TPoint;
|
PopupOrigin:TPoint;
|
||||||
begin
|
begin
|
||||||
inherited Create(nil);
|
inherited CreateNew(nil);
|
||||||
// inherited Create(AOwner);
|
// inherited Create(AOwner);
|
||||||
BorderStyle := bsNone;
|
BorderStyle := bsNone;
|
||||||
Caption:='RxPopUp';
|
Caption:='RxPopUp';
|
||||||
|
Reference in New Issue
Block a user