Hallo,
Bei drücken von F5 soll ganz so wie im Notepad in eine TDBMEMO Komponente bei Cursor ein Datum und eine Uhrzeit eingefügt werden.
Der Cursor soll hinter den eingefügten Text plaziert werden.
Ich mache das so.
Delphi-Quellcode:
procedure Formular.DbMemoKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var s,sdt:string;
begin
if key = VK_F5 then
Begin
s := TdbMemo(Sender).Text;
sdt := DateTimetoStr(Now);
system.insert(sdt,s,TdbMemo(Sender).Selstart);
TdbMemo(Sender).Text := s;
TdbMemo(Sender).Selstart := TdbMemo(Sender).Selstart+length(sdt);
end;
end;
Ich weiß warum das nicht geht. (TdbMemo.Fdatalink.Edit wird nicht gefeuert)
Aber ich weiß nicht wie ich mache das es geht.
Das Symptom:
Wenn F5 getdrückt wird passiert genau was ich will!!!
Wird Anschließend Return gedrückt verschwindet der Text und das Return passiert da wo der Cursor vor dem F5 stand.
Wie mache ich es besser.
Direkt in die Tabelle schreiben? Aber das hilft mir dann immer noch nicht mit dem cursor