Memo Zeichen löschen

[Luki206]

Hi, die Frage mag sich zwar komisch anhören nur ich komme gerade nicht drauf, wie kann man in einem Memo ein Zeichen löschen also eigentlich den Druck der "Zeichenlöschtaste" simulieren?
Danke
Luki :)

[DeddyH]

An der aktuellen Cursorposition? Da würde ich es mit Markierung versuchen:

Delphi-Quellcode:

Memo.SelLength := 1;
Memo.SelText := '';

Ungetestet.

[Luki206]

Ok danke, ich habe das jetzt einmal ausprobiert nur löscht es das Zeichen hinter dem Cursor und nicht das vordere. Probieren wir mal die Frage anders zu stellen: Ich will dass beim Tastendruck auf dem Memo ein bestimmtes Zeichen eingefügt werden soll. Klappt auch gut nur kommt dann noch z.B. ein a mit dazu und das möchte ich nicht

[DeddyH]

Das hab ich nicht verstanden. Wo und wie kommt ein a dazu?

[Luki206]

Wenn ich auf die Taste 'A' drücke soll ein anderes Zeichen ins Memo eingefügt werden als 'A' nur kommt zu dem Zeichen auch nochmal ein 'A'.

[DeddyH]

Wie sieht denn der Code aus?

[Luki206]

Delphi-Quellcode:

procedure TForm1.BtnQClick(Sender: TObject);
begin
Schreib.Text := Schreib.Text+BtnQ.Caption;
end;

procedure TForm1.SchreibKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
81: begin BtnQClick(nil); key := 0; end;
end;
end;

Die Caption von BtnQ ist das andere zeichen

[DeddyH]

Wieso nicht einfach

Delphi-Quellcode:

procedure TDeinForm.DeinMemoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = 'A' then
    Key := 'Ö';
end;

oder etwas in der Richtung?

[Luki206]

Ich weiß nicht ob das funtzt weil ich keine normalen Buchstaben habe sondern irgendwelche Zeichen aus der Schriftsammlung
Edit: Es geht ;) vielen Dank

[DeddyH]

Man könnte es ja mal ausprobieren :). BTW bedeutet Char ein Zeichen und nicht ein Buchstabe.