Обработка событий различных объектов одной процедурой

← →
Akella © (2004-07-01 14:40) [0]

На форме куча объектов нескольких типов как по ченджю значения в любом объекте выполнять одну и туже процедуру, кот бы работала с их свойствами т. как name,text,value,caption ...?

← →
Reindeer Moss Eater © (2004-07-01 14:42) [1]

Написать один обработчик.
Всем экземплярам сделать OnChange := MyCommonEventHandler;

← →
_student (2004-07-01 14:46) [2]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask; type TForm1 = class(TForm) Edit1: TEdit; MaskEdit1: TMaskEdit; procedure mychange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.mychange(Sender: TObject); begin TEdit(sender).Text:="sdfg"; end; end.

← →
Sandman25 © (2004-07-01 14:49) [3]

[2] _student (01.07.04 14:46)

Assert(Sender is TCustomEdit);
TCustomEdit(Sender).Text := "1";

← →
Sandman25 © (2004-07-01 14:54) [4]

А вообще-то плохой пример.
У TEdit используется TControl.Text, а у TMaskEdit - TCustomMaskEdit.Text

← →
Sandman25 © (2004-07-01 14:57) [5]

Правда, если not TMaskEdit.IsMasked то вызывется TControl.Text

← →
Akella © (2004-07-01 15:00) [6]

Чё та я не врубился зачем тут TMaskEdit и чё эт такое
и если можно вот это место поподробнее
>Написать один обработчик.
Всем экземплярам сделать OnChange := MyCommonEventHandler;

← →
Reindeer Moss Eater © (2004-07-01 15:04) [7]

и если можно вот это место поподробнее

Подробнее наверное можно.
Только нужно ли?

Нужно!!!

И можно ли как-нить завязать это на несколько различных объектов TEdit, TComboBox

Обработка событий различных объектов одной процедурой Найти похожие ветки