VPF::Как обратиться к компонентам формы,

Диас

Дата 21.7.2006, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 11.6.2006

Репутация: нет
Всего: нет

Здравствуйте! Проблема такая: динамически создаю кучу однотипных форм, присваиваю им уникальные имя и заголовок. Потом нужно обратиться к мемо-полю конкретной формы. Узнаю ее дескриптор через FindWindow. А что делать дальше не знаю. Пробовал писать

Код


TForm2(hwn).Memo1.text:='dcfhjg';

где hwn-дескриптор, но не получается.

Есть один вариант - создать массив ссылок(Pointer) и при создании форм присваивать их ссылкам, но мне кажется, что должно быть решение на много проще.

Matematik

Дата 21.7.2006, 09:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Чтобы работать с компонентом надо запомнить не его handle, а созданный экземпляр класса.
С handle надо работать на уровне winapi через sendmessage

Код


SendMessage(Handle, WM_SETTEXT, 0, Longint(PChar('text')));

Добавлено @ 09:29
Что мешает запомнить в массиве не handle созданого компонента а его самого?

Snowy

Дата 21.7.2006, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Зачем через поиск?
Все формы живут в объекте Screen.
Screen.FormsCount - кол-во форм и Screen.Forms[n] - массив форм

Диас

Дата 21.7.2006, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 11.6.2006

Репутация: нет
Всего: нет

Цитата

Что мешает запомнить в массиве не handle созданого компонента а его самого?

Нет я и говорю, в массив сохранять сами формы.

Snowy, я не понял, ты предлагаешь использовать это только вместо поиска, а потом делать, как сказал Matematik? Или через Screen.Forms[i] можно обратиться к Memo этой формы?

Snowy

Дата 21.7.2006, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Перебирай массив форм.
Находи нужную по имени или заголовку.

Код

var i: inteher;
begin
  for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].Name = 'Form348' then
      TForm2(Screen.Forms[i]).Memo1.Text := 'А вот и текст';
end;

Диас

Дата 22.7.2006, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 11.6.2006

Репутация: нет
Всего: нет

Спасибо, Snowy! Как всегда помог. Жаль я пока не могу репутацию поднимать. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »