Entwickler-Ecke

Sonstiges (Delphi) - Tasten manipulieren


F.Art - Mi 25.12.02 01:56
Titel: Tasten manipulieren
Wie bekomme ich das hin zB wenn ich im Memofeld die Space-Taste drücke das zB %2B eingetragen wird statt ein leerzeichen?


Delete - Mi 25.12.02 02:21


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 - Mi 25.12.02 02:50

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?


Delete - Mi 25.12.02 02:53


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


F.Art - Mi 25.12.02 03:05

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.


Delete - Mi 25.12.02 03:08

Schreib die Zeile einfach in eine ButtonClick-Prozedur.


F.Art - Mi 25.12.02 03:13

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


Delete - Mi 25.12.02 03:16

Habe dich geadded.