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