Hier mal der Code:
Delphi-Quellcode:
procedure TPanelSchadenErstell.Memo_Sch_anlegen_Bemerk_KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = 84) and (shift = [ssSHIFT]) then
begin
Memo_Sch_anlegen_Bemerk.Text:= Memo_Sch_anlegen_Bemerk.Text + ' '+DateToStr(now);
Memo_Sch_anlegen_Bemerk.SelStart:= Memo_Sch_anlegen_Bemerk.GetTextLen; //Auf zum Ende des Textes
end;
end;
Habe folgendes Problem:
Bei Shift + T soll das Datum ins Memo kommen --> Das funkt auch nur wird leider auch das T mitgeschrieben.
Das sieht dann so aus 29.03.2005T
Kann man das irgendwie unterbinden
