also bei mir funzt es. habs einfach mal in ein OnClick des Buttons gemacht
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(GetFocus, WM_Settext,0,Integer(Pchar(Edit1.Text)));
end;
und resultat ist das nach dem Klick jedesmal der Button die Caption des Edit1.Text hat (weil ja der Button den Focus beim klick bekommen hat). Ich denk mal du machst irgendwo anders was falsch denn den geposteten source hab ich vorher beim explorer ausprobiert und somit von diesem die caption geändert..