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

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

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

Akella ©   (2004-07-01 14:40:00) 

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

---

begin...end   (2004-07-01 15:17:00) [1]

> [9] Akella ©   (01.07.04 15:15)

Edit1.OnChange := MyCommonEventHandler;
Edit2.OnChange := MyCommonEventHandler;

---

Akella   (2004-07-01 15:15:00) [2]

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

---

Akella   (2004-07-01 15:12:00) [3]

Нужно!!!

---

Reindeer Moss Eater   (2004-07-01 15:04:00) [4]

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

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

---

Akella   (2004-07-01 15:00:00) [5]

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

---

Sandman25   (2004-07-01 14:57:00) [6]

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

---

Sandman25   (2004-07-01 14:54:00) [7]

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

---

Sandman25   (2004-07-01 14:49:00) [8]

[2] _student   (01.07.04 14:46)

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

---

_student   (2004-07-01 14:46:00) [9]

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.

---

Reindeer Moss Eater   (2004-07-01 14:42:00) [10]

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

---

Наверх