Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Вниз
инфа из 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c
