Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.035 c
8-1083565954
pirat
2004-05-03 10:32
2004.07.18
Графический редактор: определить объект под крусором. Как?


1-1089130421
rolex
2004-07-06 20:13
2004.07.18
Как узнать находится ли курсор на PopupMenu или нет???


8-1077790323
Umnik666
2004-02-26 13:12
2004.07.18
И снова PNG


3-1087551984
SergBlack
2004-06-18 13:46
2004.07.18
Как создать автоинкрементное поле в таблице FireBird


6-1084790249
AndrewK
2004-05-17 14:37
2004.07.18
Загрузка курса валют с РБК





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский