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

RxFPC:fix closeformvalidator on disabled controls

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8923 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2023-09-14 07:34:09 +00:00
parent 66b826e5cf
commit 162be1c7af
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxcontrols/rxcloseformvalidator.pas
View File

@ -328,7 +328,7 @@ begin
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(F as TCustomForm)) then if FItems[i].Enabled and (FItems[i].FControl.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);