Скачать: CL | DM;

Как получить текст из TEdit не моего приложения?   Найти похожие ветки 

← →
Шустрый ©   (2003-08-11 12:22) [0]

AHandle := FindWindow("Notepad", nil);
Win32Check(AHandle <> 0);
memo1.Text := GetWindText(AHandle);
Так допустим я получаю текст из блокнота в свой TMemo, а как сделать то же самое с TEdit? Спасибо!

---

← →
Игорь Шевченко ©   (2003-08-11 13:52) [1]

Так ты не получишь текст из блокнота...

---

← →
Шустрый ©   (2003-08-11 17:08) [2]

2 Игорь Шевченко: так тебя устроит? Я же писал что допустим.

function GetWindText(AHandle: THandle): String;
var
cb : DWord;
begin
cb := SendMessage(AHandle, WM_GETTEXTLENGTH, 0, 0);
SetLength(Result, cb);
if cb > 0 then
SendMessage(AHandle, WM_GETTEXT, cb+1, LParam(@Result[1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow("Notepad", nil);
Win32Check(AHandle <> 0);
AHandle := FindWindowEx(AHandle, 0, "Edit", nil);
Win32Check(AHandle <> 0);
Memo1.Text := GetWindText(AHandle);
end;

---

← →
clickmaker ©   (2003-08-11 18:53) [3]

А какая разница: Memo, Edit?.. На уровне API это все равно один класс окна "EDIT", только в случае с Memo он многострочный

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c