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

инфа из TMemo   Найти похожие ветки 

← →
reborn   (2005-01-23 12:13) [0]

Привет,мастера!помогите написать прогу которая бы выдерала из друго окна,назовём его XXX ,объекта Tmemo,инфу и писала в Tmemo,только формы,уже моей программы.Заранее спасибо!

---

← →
Piter ©   (2005-01-23 16:04) [1]

и что у тебя не получается?

---

← →
-=SS=- ©   (2005-01-23 16:19) [2]

> Piter ©   (23.01.05 16:04) [1]

Он наверное хотел спросить, - "А не напишет ли хто вместо меня прогу которая бы выдерала ...."

---

← →
-=SS=- ©   (2005-01-23 16:19) [3]

> Piter ©   (23.01.05 16:04) [1]

Он наверное хотел спросить, - "А не напишет ли хто вместо меня прогу которая бы выдерала ...."

---

← →
reborn   (2005-01-23 16:32) [4]

нет,хотел спросить  А НЕ ПОДСКАЖЕТЕ КАКИМ СПОСОБ МНЕ ЭТО РЕАЛИЗОВАТЬ?что для этого надо?

---

← →
-=SS=- ©   (2005-01-23 16:37) [5]

Что то вроде этого
Var
 H,H_Memo : THandle;
 BufSize : Integer;
 Buf : PAnsiChar;
begin
 H := FindWindow(nil,"Form1");
 H_Memo := FindWindowEx(H,0,"TMemo",nil);
 BufSize := SendMessage(H_Memo,WM_GETTEXTLENGTH, 0, 0);
 ShowMessage(IntToSTr(BufSize));
 New(Buf);
 SendMessage(H_Memo, WM_GETTEXT, BufSize, Longint(Buf));
 Memo1.SetTextBuf(Buf);
 Dispose(Buf);

---

← →
-=SS=- ©   (2005-01-23 16:39) [6]

Подойдёт ?  
 Если чё не откомпилится -- извеняй .... делфи под рукой не было

---

← →
reborn   (2005-01-23 16:44) [7]

спасибо,сейчас попробую....

---

← →
Piter ©   (2005-01-23 19:28) [8]

reborn   (23.01.05 16:32) [4]
А НЕ ПОДСКАЖЕТЕ КАКИМ СПОСОБ МНЕ ЭТО РЕАЛИЗОВАТЬ?

очень просто это реализовать:

1) Найти другое окно
2) найти в нем элемент TMemo
3) выдернуть информацию из этого TMemo

Вот так это надо реализовать.

---

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

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



Память: 0.46 MB
Время: 0.021 c