ideintf: Esc key for cancel in Object Inspector (#0002007 from Alexander S. Klenin)

git-svn-id: trunk@17926 -
This commit is contained in:
paul 2008-12-24 09:25:53 +00:00
parent 69556d7ab8
commit 8367b491f6

View File

@ -2170,6 +2170,11 @@ begin
if (FCurrentEdit is TCustomEdit) then
TCustomEdit(FCurrentEdit).SelectAll;
end;
VK_ESCAPE:
begin
RefreshValueEdit;
end;
else
Handled := false;
end;