TastenkombinationProblem!!!!

[Geraldine83]

Hallöchen,

ich habe ein Problem beim Programmieren.
Ich habe ein Formular mit einem DBGrid.
Über eine Tastenkombination kann ich einen Datensatz löschen (STRG+Entf)
oder über F1 einen neuen Anlegen.
Wenn ich im Anlegefenster bin und rausgehe und nochmals F1 drücke passiert nichts.
Erst wenn ich wieder ins DBGrid klicke.
Das gleiche passiert beim löschen. Wenn gelöscht wurde kann ich noch so oft Strg+Entf drücken. Passiert nichts! Erst wieder wenn ich ins DBGrid klicke.

Mein Quellcode:

Delphi-Quellcode:

procedure THaupt.FormCreate(Sender: TObject); 
begin 
KeyPreview := true; 
end; 


procedure THaupt.FormKeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
case Key of 
VK_F1 : begin 
DBModul.TierdatenT.Insert; 
Bearbeiten.ShowModal; 
end; 
VK_ESCAPE: begin 
Application.Terminate; 
end; 
end; 
if (shift = [ssCtrl]) AND (Key = VK_DELETE) then 
begin 
try 
//Makierter Datensatz wird gelöscht 
if MessageDlg('Diesen Datensatz wirklich löschen', 
mtConfirmation, [mbYes, mbNo], 0) = mrYes 
then 
begin 
DBModul.TierdatenT.Delete; 
end; 
except 
ShowMessage('Kein Datensatz zum löschen vorhanden!'); 
end; 
end; 

end;

An was kann das liegen?
Bitte um Antwort. ich weiß nicht mehr weiter!

Gruß Jerry