Einzelnen Beitrag anzeigen

onkelmehli

Registriert seit: 8. Mär 2006
119 Beiträge
 
Delphi 2007 Professional
 
#1

JvDBUltimGrid - Fehler beim KeyDown ?

  Alt 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
  Mit Zitat antworten Zitat