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

← →
kesha (2009-11-01 15:21) [0]

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

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

← →
Плохиш © (2009-11-01 16:05) [1]

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

← →
Юрий Зотов © (2009-11-01 16:13) [2]

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

← →
Фуфик (2009-11-01 16:52) [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:55) [4]

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

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

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

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

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