paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: forms: add GetParentDesignControl

Browse Source 
git-svn-id: trunk@54433 -
This commit is contained in:
ondrej 2017-03-17 18:39:19 +00:00
parent 5667c05f6c
commit 43f6f51029
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/forms.pp
View File

@ -1801,6 +1801,7 @@ function GetFirstParentForm(Control:TControl): TCustomForm;
function ValidParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;
function GetDesignerForm(APersistent: TPersistent): TCustomForm;
function FindRootDesigner(APersistent: TPersistent): TIDesigner;
function GetParentDesignControl(Control: TControl): TCustomDesignControl;
function NeedParentDesignControl(Control: TControl): TCustomDesignControl;
function IsAccel(VK: word; const Str: string): Boolean;
@ -2006,7 +2007,7 @@ begin
end;
//------------------------------------------------------------------------------
function NeedParentDesignControl(Control: TControl): TCustomDesignControl;
function GetParentDesignControl(Control: TControl): TCustomDesignControl;
var
SControl: TControl;
begin
@ -2017,7 +2018,15 @@ begin
if Control is TCustomDesignControl then
Result := TCustomDesignControl(Control)
else
raise EInvalidOperation.CreateFmt(rsControlHasNoParentFormOrFrame, [SControl.Name]);
Result := nil;
end;
//------------------------------------------------------------------------------
function NeedParentDesignControl(Control: TControl): TCustomDesignControl;
begin
Result := GetParentDesignControl(Control);
if Result=nil then
raise EInvalidOperation.CreateFmt(rsControlHasNoParentFormOrFrame, [Control.Name]);
end;
//------------------------------------------------------------------------------