Главная страница
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.131 c
1-1106308897
Aleks
2005-01-21 15:01
2005.02.06
Как програмно определить подключён ли компьютер к интернету.


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


1-1106552655
Евг
2005-01-24 10:44
2005.02.06
Excel и Delphi


4-1103552114
berezne
2004-12-20 17:15
2005.02.06
Как програмно выключить компьютер?


3-1104315782
ceval
2004-12-29 13:23
2005.02.06
В свое время задовал вопрос если правельно будет