Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: 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 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
14-1105697193
Shaman_Naydak
2005-01-14 13:06
2005.02.06
Kylix oидам! Помогите плиз


1-1106167593
Blaster
2005-01-19 23:46
2005.02.06
В чом ошыбка?


3-1104828677
Гость
2005-01-04 11:51
2005.02.06
SQL server 2000


3-1105272952
makey22
2005-01-09 15:15
2005.02.06
Создание отчета


3-1104820506
YurikGL
2005-01-04 09:35
2005.02.06
Автоподстановка из родительской таблицы