| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Оптимальный метод передачи значения компонента процедуре

kesha ©   (2009-11-01 15:21:00) 

К примеру процедура в ней я передаю настройки одного из оконного компонента
procedure TForm1.MyComponent (rect: TRect; AHandle: HWND; ATabOrder: TTabOrder; AEnabled: Boolean);
begin
///
end;

Если передавать конкретный компонент то я обхожусь без лишней писанины
procedure TForm1.MyComponent (APanel: TPanel);
begin
///
end;
Думаю вопрос простой но ответа на него
Так можно ли передать процедуре любой оконный компонент для дальнейшей обработки приведенных выше свойств этого компонента

---

Юрий Зотов   (2009-11-01 16:58:00) [1]

> Фуфик   (01.11.09 16:52) [3]

> ищу подходящие

Тут не надо искать. Вам нужен хэндл окна - значит, однозначно TWinControl. Это самый "старший" класс оконных компонентов.

---

Фуфик   (2009-11-01 16:55:00) [2]

Знаю нарушил правила
Извините предедушее писал с работы, а шас с дома пишу

---

Фуфик   (2009-11-01 16:52:00) [3]

Да я уже нашел как раз перепробовал вот и ищу подходящие для себя
TControl, TWinControl, TCustomControl.

Как то тупа пытался осуществить вот так:
type
AComponents = record
 AButton: TButton;
 APanel: TPanel;
 AMemo: TMemo;
End;
procedure TForm1.MyComponent(AComponent: AComponents, X: Integer);
begin
///
end;

---

Юрий Зотов   (2009-11-01 16:13:00) [4]

То есть:
procedure TForm1.MyComponent(Control: TWinControl);

---

Плохиш   (2009-11-01 16:05:00) [5]

Передаваемый параметр описать типом предка всех желаемых компонентов.

---

Наверх