Текущий архив: 2009.12.20;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

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

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

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2009.12.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c