Скачать: CL | DM;

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

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

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

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

---

← →
Akella ©   (2004-07-01 15:12) [8]

Нужно!!!

---

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

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

---

← →
begin...end ©   (2004-07-01 15:17) [10]

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

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

---

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

Скачать: CL | DM;



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