Изменить свойства динамически созданного объекта

[Marsel737]

Всем привет.

Вообщем такая проблема: у меня есть динамически созданные объекты к примеру Memo1 и Button2 и мне нужно менять свойства или того или этого, в зависимости от того что выбрано в ComboBox. Сложно объяснить, поэтому лучше смотрите на скрин:



Вообщем если в ComboBox выбрано Memo, то меняем свойства Memo, если Button, то св.-ва Button'а. Вся проблема в том, что таких динамически созданных объектов может быть очень много и это может быть не только кнопки и мемо. Поэтому такой код не подойдёт:

procedure TForm1.ButtonOkClick(Sender: TObject);
begin
  if ComboBox1.Text='Memo1' then  
  begin
    Memo1.Height:=Edit1.Text;
    Memo1.Width:=Edit2.Text;
  end;
  if ComboBox1.Text='Button1' then  
  begin
    Button1.Height:=Edit1.text;
    Button1.Width:=Edit2.Text;
  end;
end;

Нужно чтобы было как-то так:

"(ComboBox1.Text).Height:=Edit1.Text;"

Но естественно в кавычках, потому что такого не бывает

[mihali4]

if (Sender is TComboBox) then
with (Sender as TComboBox) do ...
else
if (Sender is TMemo) then
with (Sender as TMemo) do ...

А остальное - в виде функции (процедуры).

Сообщение от Пепел Феникса

FindComponent

Это - естественно, в самом начале...
Что ж вы так торопитесь, ТС-у подумать не даете ?

[Пепел Феникса]

FindComponent

[Marsel737]

Пепел Феникса, я уже думал насчёт FindComponent, но не додумался как им пользоваться:

Components.FindComponent(ComboBox1.Text). ???

mihali4, что значит TC? Тупой студент??

[Пепел Феникса]

ТС=Топик Стартер, автор топика.

(FindComponent(ComboBox1.Text) as TControl).Width{или Height}

[mihali4]

ТС - это ТопикСтартер, то есть вы.
По поводу FindComponent - набираем, жмем заветную F1 и читаем.
Здесь - не ликбез. Занимайтесь самообразованием...

Влюблен в Delphi
Форумчанин
Регистрация: 09.11.2009
Сообщений: 252

Стыдно "влюбленному в Дельфи" задавать такие вопросы...