paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomForm.SetFocusedControl fixed COntrol=nil

Browse Source 
git-svn-id: trunk@13132 -
This commit is contained in:
mattias 2007-12-03 22:36:48 +00:00
parent d01719fc58
commit 50ebba2ee8
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/customform.inc
View File

@ -888,9 +888,9 @@ begin
if (FActiveControl = nil) and (Parent=nil) then begin
// automatically choose a control to focus
SetFocusedControl(FindDefaultForActiveControl);
{ $IFDEF VerboseFocus}
{$IFDEF VerboseFocus}
DebugLn('TCustomForm.WndProc Set FActiveControl := ',DbgSName(FActiveControl));
{ $ENDIF}
{$ENDIF}
end;
if FormStyle = fsMDIFORM then
@ -1625,7 +1625,8 @@ var
CurControl: TWinControl;
begin
Result := False;
if (csDestroying in Control.ComponentState) then exit;
if (Control<>nil)
and (csDestroying in Control.ComponentState) then exit;
if (Parent<>nil) then begin
// delegate to topmost form
@ -1644,22 +1645,25 @@ begin
// update Screen object
Screen.FActiveControl := Control;
Screen.FActiveCustomForm := Self;
Screen.MoveFormToFocusFront(Self);
if Self is TForm then
Screen.FActiveForm := TForm(Self)
else
Screen.FActiveForm := nil;
if Control<>nil then begin
Screen.FActiveCustomForm := Self;
Screen.MoveFormToFocusFront(Self);
if Self is TForm then
Screen.FActiveForm := TForm(Self)
else
Screen.FActiveForm := nil;
end;
{$IFDEF VerboseFocus}
DbgOut('TCustomForm.SetFocusedControl Self=',DbgSName(Self));
DbgOut(' Control=',DbgSName(Control),' Control.HandleAllocated=',dbgs(Control.HandleAllocated));
if Control<>nil then
DbgOut(' Control=',DbgSName(Control),' Control.HandleAllocated=',dbgs(Control.HandleAllocated));
DebugLn();
{$ENDIF}
Result:=true;
if not (csFocusing in Control.ControlState) then begin
if (Control<>nil) and (not (csFocusing in Control.ControlState)) then begin
// prevent looping
Control.ControlState := Control.ControlState + [csFocusing];
try