pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: Fixed a bug when the TRxCloseFormValidator on TFrame

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2694 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-03-04 20:21:52 +00:00
parent c70a742cf7
commit c2ab127031
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/rxcloseformvalidator.pas
View File

@@ -305,11 +305,19 @@ end;
function TRxCloseFormValidator.CheckCloseForm: boolean; function TRxCloseFormValidator.CheckCloseForm: boolean;
var var
i:integer; i:integer;
F:TComponent;
begin begin
F:=Owner;
while Assigned(F) and not (F is TCustomForm) do
F:=F.Owner;
Result:=false; Result:=false;
if not Assigned(F) then exit;
for i:=0 to FItems.Count-1 do for i:=0 to FItems.Count-1 do
begin begin
if FItems[i].Enabled and (not FItems[i].CheckClose(Owner as TCustomForm)) then if FItems[i].Enabled and (not FItems[i].CheckClose(F as TCustomForm)) then
begin begin
FItems[i].SetFocus; FItems[i].SetFocus;
Application.MessageBox(PChar(FItems[i].ErrorMessage), PChar(FErrorMsgCaption), MB_OK + MB_ICONERROR); Application.MessageBox(PChar(FItems[i].ErrorMessage), PChar(FErrorMsgCaption), MB_OK + MB_ICONERROR);