FIX: TKASCDEdit - ReadOnly flag

This commit is contained in:
Alexander Koblov 2024-10-05 21:37:43 +03:00
commit 87ae081b9b

View file

@ -382,6 +382,10 @@ begin
end;
end;
end;
if ReadOnly and (Key in [VK_BACK, VK_DELETE]) then
begin
Key:= 0;
end;
inherited KeyDown(Key, Shift);
end;