Sendmessage und onChange, onKeypress

[t.roller]

Folgendes Beispiel löst ein OnChange-Ereignis aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var text : String;
begin
text:= 'test';
SendMessage(Edit1.Handle, WM_SETTEXT, 0, LPARAM(PCHAR(Text)));
end;