Default value editor: Set focus on checked radiobox to ensure the OnExit event can be fired and close the editor

This commit is contained in:
Ansgar Becker
2009-07-23 21:01:58 +00:00
parent 97839a0409
commit 33937818a2

View File

@ -1033,8 +1033,13 @@ end;
function TColumnDefaultEditorLink.BeginEdit: Boolean; stdcall;
begin
Result := not FStopping;
if Result then
if Result then begin
FPanel.Show;
if FRadioText.Checked then FRadioText.SetFocus
else if FRadioNull.Checked then FRadioNull.SetFocus
else if FRadioCurTS.Checked then FRadioCurTS.SetFocus
else if FRadioAutoInc.Checked then FRadioAutoInc.SetFocus;
end;
end;