Registriert seit: 8. Mär 2006
119 Beiträge
Delphi 2007 Professional
|
JvDBUltimGrid - Fehler beim KeyDown ?
13. Jan 2009, 13:26
Hallo,
ich habe im JvUltimGrid folgendes im KeyDown-Ereignis:
Delphi-Quellcode:
if (( Key in [VK_NUMPAD0,VK_NUMPAD1,VK_NUMPAD2,VK_NUMPAD3,VK_NUMPAD4,
VK_NUMPAD5,VK_NUMPAD6,VK_NUMPAD7,VK_NUMPAD8,VK_NUMPAD9]) or
(chr(key) in ['1','0','2','3','4','5','6','7','8','9']) or
(chr(key) in ['a','A','b','B','c','C','d','D','e','E','f','F','g','G',
'h','H','i','I','j','J'
,'k','K','l','L','m','M','n','N','o','O','p','P','q','Q','r','R','s','S','t','T','u','U'
,'v','V','w','W','x','X','y','Y','z','Z','$']))
then
begin
if (AdoDataSet1.State = dsBrowse) then
begin
if JvDBUltimGrid1.SelectedField.AsString = '' then
AdoDataSet1.Edit
else
AdoDataSet1.Append;
key:=ord(#0);
end
end;
Wenn ich nun z. B. AltGr+F7 (oder auch nur F7) drücke, erfolgt "AdoDataSet1.Append" da, obwohl die Abfrage ja "False" ergeben müsste, scheinbar "True" ist. Ist das ein Fehler der Komponente oder mach ich da irgend einen Fehler ?
Gruß
Matthias
|