paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:19:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

focus window only if possible

Browse Source 
git-svn-id: trunk@6461 -
This commit is contained in:
micha 2005-01-02 22:27:15 +00:00
parent 1eb68ebe5b
commit 51fba3ead7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -782,7 +782,8 @@ Begin
if lWinControl is TRadioButton then
Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
// focus window
if Windows.GetFocus <> Window then
if (Windows.GetFocus <> Window) and
((lWinControl = nil) or (lWinControl.CanFocus)) then
Windows.SetFocus(Window);
End;
WM_LBUTTONUP:
@ -1488,6 +1489,9 @@ end;
{
$Log$
Revision 1.178 2005/01/02 22:27:15 micha
focus window only if possible
Revision 1.177 2005/01/02 22:18:52 micha
focus window on left-click