VPF::Список контролов по хэндлу окна

SmaLL

Дата 28.10.2003, 11:41 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

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

Можно ли и как получить сабж?

--------------------

Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!

<Spawn>

Дата 28.10.2003, 12:47 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

EnumChildWindow?

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 28.10.2003, 12:56 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Вот примерчик на ету функию

Код

function EnumProc(wnd:HWND; lParam:integer):Boolean;stdcall;
var
buf:array[0..255] of Char;
begin
  GetWindowText(wnd, Buf, 256);
  Form1.ListBox1.Items.Add(Format('text - %s, handle - %d',[buf, wnd]));
  Result:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
lParam:integer;
begin
EnumChildWindows(Handle, @EnumProc, lParam);
end;

Правда ето будет работать, только если контрол имеет хендл. Например TLabel не имеет хендла, т.к. он наследник TGraphicControl.

Это сообщение отредактировал(а) <Spawn> - 28.10.2003, 12:58

--------------------

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