Здравствуйте, Tikhon, Вы писали:
T>Кака мне в Делфи получить указатель на объект.
T>Я создаю объекты, а потом хочу применить какое либо действие на все созданные объекты. Для этого хочу создать список указателей на объекты. Но пока не судьба.... Как сделать?
RTFM TList.
Вообще в Delphi все переменные объекта ЯВЛЯЮТСЯ УКАЗАТЕЛЯМИ, т.е. получать то ничего как раз не надо.
procedure TForm1.CreateList;
begin
List := TList.Create;
// допустим на формне есть две кнопки
List.Add(Button1); // Добавить указатель на Button1 в список
List.Add(Button2);
end;
// пример действия
procedure TFrom1.SetEnabled(Value: boolean);
var
I: integer;
begin
for I:=0 to List.Count-1 do
TButton(List[I]).Enabled := Value;
end;