Memo Tastenkombinations - Problem

[Schuster]

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: :wall:
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 :?: :?:

[Schuster]

Habs gelöst kann geschlossen werden.

Hier noch für die es Interessiert:
Habs ins KeyUp statt KeyDown gepackt

Delphi-Quellcode:

procedure TPanelSchadenErstell.Memo_Sch_anlegen_Bemerk_KeyUP(Sender: TObject; var Key: Word; Shift: TShiftState);
var temp: String;
x : integer;
begin
    if (Key = 84) and (shift = [ssSHIFT]) then
        begin
            temp:= Memo_Sch_anlegen_Bemerk.Text + ' '+DateToStr(now);
            x:= length(temp);
            delete(temp,x-11,1);
            Memo_Sch_anlegen_Bemerk.Text:= temp;
            Memo_Sch_anlegen_Bemerk.SelStart:= Memo_Sch_anlegen_Bemerk.GetTextLen;  //Auf zum Ende des Textes
        end;
end;

[Khabarakh]

Key ist ein var-Parameter, d.h. du musst im oberen Code nur noch am Ende Key 0 zuweisen.

[Binärbaum]

Sollte es nicht eher

Delphi-Quellcode:

if (Key = 84) and (ssShift in Shift) then....

heißen?
Den wenn z.B. Shift und alt gedrückt wurde, enthält Shift die Werte ssAlt und ssShift und deine obige Abfrage würde nicht mehr funktionieren.

MfG
Binärbaum

[Lesco]

vllt soll sein code nur ausgeführt werden wenn nur shift und t gedrückt wird

[Schuster]

Shift + T hab ich nur als Beispiel verwendet.

Habe nun den Tastencode Alt + T verwendet.

Thx für euer Hilfe