Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Имеется у меня дескриптор (Handle) элемента(TEdit), с помощью какой функции API мне можно вставить в этот элемент какой либо текст.

Имеется у меня дескриптор (Handle) элемента(TEdit), с помощью какой функции API мне можно вставить в этот элемент какой либо текст.

Можно воспользоваться SendMessage (посылать сообщение внутри приложения или другой программы). Для этого необходимо знать хэндл окна программы источника и получателя сообщения.

данный код демонстрирует возможность посылки соообщения внутри программы

procedure TForm1.WMCopyData;
begin
 edit1.Text:=PChar(PCopyDataStruct(msg.LParam)^.lpData^);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 cds:TCopyDataStruct;
 dt:string;
begin
 dt:='example';
 cds.cbData:=sizeof(dt);
 cds.lpData:=@dt;
 sendmessage(handle,wm_copydata,form1.handle,longint(@cds));
end;

Коментарий от "Naumov E.Dmitry"
 Все гораздо проще...

  var EditHandle: THandle;
      TextToSet: PChar;
      
  procedure TForm1.SetTextToEdit(Sender: TObject);
  begin
    SendMessage(EditHandle, WM_SETTEXT, 0, Integer(TextToSet));
  end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru