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

LCL: Check TRadioButton when using keyboard accelerator ("&" in caption)

Browse Source
This commit is contained in:
n7800 2024-08-16 01:15:11 +05:00 committed by Martin
parent bc6df44ffa
commit 63f44cf8e7
1 changed files with 2 additions and 0 deletions

2
lcl/include/radiobutton.inc
View File

@ -115,6 +115,8 @@ begin
if IsAccel(Message.CharCode, Caption) and CanFocus then
begin
SetFocus;
if Focused then
Checked := True;
Result := True;
end else
Result := inherited;