Нужна помощь

← →
Dimaond Cat (2001-12-19 01:36) [14]

проблема собственно в том что передавая сообщения так как передаешь его ты та передаешь не сам текст а его адрес в адресном пространстве твоего приложения, соответственно если твое сообщение принимает другое приложение со своим адресным пространством , то по полученному адресу оно находит черте-что, а переслать непосредственно текст можно так
var
Cds: TCopyDataStruct;
begin
listbox1.ItemIndex:=listbox2.Itemindex;
Cds.lpData:=pchar("проба");
SendMessage (handle интересующего нас окна,WM_settext,0,Cardinal(Cds.lpData) );
end;
правда в данном примере есть засада сообщение wm_settext приходит например к форме в момент ее создания и содержит в себе caption окна так что если ты отправляешь сообщение на хендл окна формы то нужно перестраховаться примерно так

procedure TForm1.OnMyMessage(var Msg:TMessage);
var S:String;
begin
if Visible then begin
S:=String(Msg.LParam);
ListBox1.items.Add(S)
else inherited;
end;

Нужна помощь Найти похожие ветки