Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2008, 18:02   #31
Иллидан
Форумчанин
 
Регистрация: 16.01.2008
Сообщений: 288
По умолчанию

Цитата:
Сообщение от _Dmitry Посмотреть сообщение
Читаете весь текст из Memo, находите концы строк #13#10, меняете что нужно и пишите весть текст обратно в Memo.
Хм, логично, тогда такой вопрос: Как прочитать текст из memo и как найти memo, по тексту в нем(у меня FindWindowEx(h,0,0,'Memo1') ничего не находит)

Последний раз редактировалось Иллидан; 05.03.2008 в 18:18.
Иллидан вне форума Ответить с цитированием
Старый 05.03.2008, 18:47   #32
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от Иллидан Посмотреть сообщение
Не понял, вот как мы меняем текст едита:
SendMessage(sh,WM_SETTEXT,0,LParam( PChar('MyText222')));
А я хочу прочитать и поменять, например вторую line memo.
Для этих целей у Edit-контролов существуют сообщения EM_LINEINDEX, EM_SETSEL и EM_REPLACESEL.
-----------------------------
Цитата:
Сообщение от Иллидан Посмотреть сообщение
Как прочитать текст из memo и как найти memo, по тексту в нем(у меня FindWindowEx(h,0,0,'Memo1') ничего не находит)
У Edit-контролов нет заголовка, тем более, что речь идет о дочернем окне. Ищите по классу, например.

Последний раз редактировалось B_N; 05.03.2008 в 18:51.
B_N вне форума Ответить с цитированием
Старый 05.03.2008, 19:41   #33
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Вот пример: прочитать текст из чужого Memo и записать в свой
Код:
var
  h,sh,L: integer;
  S: string;
begin
  h:=FindWindow('TForm1','Form1');
  sh:=FindWindowEx(h,0,'TMemo',nil);
  L:=SendMessage(sh,WM_GETTEXTLENGTH,0,0);
  SetLength(S,L);
  SendMessage(sh,WM_GETTEXT,L-1,integer(S));
  Memo1.Text:=S;
end;
_Dmitry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как имея handle окна узнать handle edit-a который находится в етом окне SeRhy Общие вопросы Delphi 1 20.07.2008 13:48
Запуск своего модуля из чужой программы Volkogriz Общие вопросы Delphi 7 16.10.2007 05:19
Завершение работы чужой программы Viteef Win Api 12 24.09.2007 12:31
Не могу найти KlErik Общие вопросы Delphi 4 11.01.2007 11:40