VPF::Перебор Контролов в окне? - Форум программистов

0FF

Дата 18.9.2003, 10:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Где то читал что это можно сделать, но как увы не помню.

x77

Дата 18.9.2003, 11:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

dfm:

Код


object Form1: TForm1
  ...
  object Edit1: TEdit
    ...
  end
  object Button1: TButton
    ...
  end
  object Panel1: TPanel
    ...
    object Edit2: TEdit
      ...
    end
    object Button2: TButton
      ...
    end
  end
end

pas:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Registry, Grids, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    Edit2: TEdit;
    Button2: TButton;
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure ScanControls (AControl: TWinControl; var List: TStrings);
var
  i: integer;
begin
  with AControl do
    for i := 0 to ControlCount - 1 do
      begin
        List.Add ('(' + Controls [i].Parent.Name + ') ' + Controls [i].Name + ': ' + Controls [i].ClassName);
        ScanControls (TWinControl (Controls [i]), List);
      end;
end;

procedure TForm1.FormDblClick(Sender: TObject);
var
  fList: TStrings;
begin
  fList := TStringList.Create;
  try
    ScanControls (Self, fList);
    ShowMessage (fList.Text);
  finally
    fList.Free;
  end;
end;

end.

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

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

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