Hallo,
ich habe ein Problem mit den Stringgrid. Ich brauche in der Validierungsroutine meines Stringgrids die Information welche Taste zuletzt gedrückt wurde und ob es eine Maustaste war oder nicht.
Ein Ansatz den ich hier im Forum gefunden habe war folgender:
Delphi-Quellcode:
procedure TfrmJournal.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
pLastKey:= Key
end;
procedure TfrmJournal.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pLastKey:= 0;
end;
// Das Validierungsevent in dem ich die zuletzt gedrückte Taste brauche
procedure TfrmJournal.CellValidate(Sender: TObject; ACol, ARow: Integer;
var Value: string; var Valid: Boolean);
begin
inherited;
if (pLastKey <> 0) then
begin
// Mach irgedwas
end;
end;
Leider geht das so nicht, da das Validierungsevent vor den beiden anderen Events aufgerufen wird und
ich dann immer die vorletzt gedrückte Taste erhalte.
Hat irgendjemand eine Idee ??