Backstep senden mit PostMessage

[lotte]

Hallo Leute,

kann mir jemand sagen, wie ich einen backslash mit PostMessage versende??

:wall:

[turboPASCAL]

Mal so ins Blaue:

Delphi-Quellcode:

var
  Key: Char;
begin
  Key := '\';
  SendMessage(DasFensterHandleWoEsHinnSoll, WM_CHAR, ord(Key), 0);
  ...

//Edit: Äh, PostMessage halt verwenden, SendMessage funktioniert auch (einfügen von) ... ;)

[lotte]

aber er soll natürlich auch das letzte zeichen löschen ...

[Matze]

Zitat:

Zitat von lotte

aber er soll natürlich auch das letzte zeichen löschen ...

Was meinst du?

Matti hat dir deine Frage doch beantwortet. :gruebel:

[turboPASCAL]

Oder meinst du etwa die Löschtaste [<-] ?

[lotte]

genau die ...

[marabu]

back space .... Chr(8)

marabu

[turboPASCAL]

Das ist dann aber eine Becksteptaste. ;)

Mit einem Editfeld Namens "Edit1" auf der Form und in ein ButtonClick mal das reinschreiben:

Delphi-Quellcode:

begin
  sendmessage(edit1.Handle, WM_KEYDOWN, VK_END, 0);  // An das Ende gehen
  sendmessage(edit1.Handle, wm_char, VK_BACK, 0); Ein Zeichen löschen
  sendmessage(edit1.Handle, wm_char, ord('\'), 0); Ein Backslash hinzufügen
end;

Habe es jetzt aus dem Kopf gemacht, bitte sagen ob es funktioniert.

//Edit: Och manno... marabu war schneller ;)

[Matze]

Das kannst du mal versuchen.

Aber bitte ändere den Titel (Backslash = Backspace)

[lotte]

Vielen Dank Jungs hat suuuuper geklappt. :firejump:

Könnte Ihr mir auch noch sagen, warum ich zwar einzelne Zeichen aber nciht ein ganzes Wort aus einem Stringgrid über ein Richedit-Feld mit der folgenen zeile aus dem Zwischenspeicher senden kann:

h := GetFocusedControl;
SeekRecord(stringgrid1,[1],[edit1.text]);
richedit1.Text:= stringgrid1.Cells[0,stringgrid1.row];
K:=length(richedit1.text);
richedit1.SelectAll;
richedit1.CopyToClipboard;

PostMessage(hwnd,wm_paste,length(richedit1.text),0 ); :wall: