Tasten manipulieren

F.Art · Beiträge: 434

Wie bekomme ich das hin zB wenn ich im Memofeld die Space-Taste drücke das zB %2B eingetragen wird statt ein leerzeichen?

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_SPACE then
  begin
    Memo1.Text := Memo1.Text+'%2B';
    Memo1.SelStart := length(Memo1.Text);
    Key := 0;
  end;
end;

F.Art · Beiträge: 434

Und wie kann ich das machen das wenn ich im Memofeld einen Text eingeben mit leerzeichen das er nach einem klick auf einen Button alles in ein anderes Memeofel kopiert aber bei den leerzeichen %2B überträgt?

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:	Memo2.Text := StringReplace(Memo1.Text, ' ', '%2b', [ReplaceAll]);

F.Art · Beiträge: 434

Mit dem zweiten Schritt komme ich nicht klar.
Also ich schreibe was in Memo1 und wenn ich auf ein button drücke soll alles von memo1 in memo2 kopiert werden und dann die spacetaste um geändert werden.

Ehemaliges Mitglied Erhaltene Danke: 1

Schreib die Zeile einfach in eine ButtonClick-Prozedur.

F.Art · Beiträge: 434

Das habe ich aber es kommt ne fehlermeldung.
Wenn du ICQ hast dann würde ich mich freuen wenn du mir hilfst.

Ehemaliges Mitglied Erhaltene Danke: 1

Habe dich geadded.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme