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

Вниз

Изменение переменной   Найти похожие ветки 

 
ilg   (2002-07-22 16:42) [0]

Можно ли сделать так, чтобы при изменении переменной X своего значения возникало событие, которое можно обрабатывать? Может быть это возможно, если X описать, как свойство какого-либо класса?
В общем, как поймать момент изменения значения переменной?
Заранее, большое спасибо!


 
Skier   (2002-07-22 16:45) [1]

>ilg
Сделай свойство YourProperty написи процедуру
SetYourProperty(Value : TYourType) и будет тебе счастье...


 
Виктор Щербаков   (2002-07-22 16:46) [2]


> Может быть это возможно, если X описать, как свойство какого-либо
> класса?

Обычно так и делают. Синтаксически это выглядит как присваивание переменной значения. Компилятор же генерирует код для вызова метода записи свойства.


 
ilg   (2002-07-23 10:36) [3]

Виктор Щербаков, извините, можно подробнее?
Я не совсем понял... Если можно, пожалуйста с примером!


 
MBo   (2002-07-23 10:59) [4]

type
TXX = class
private
FX: integer;
FOnXChanged: TNotifyEvent;
procedure SetX(const Value: Integer);
public
property X: integer read FX write SetX;
property OnXChanged: TNotifyEvent read FOnXChanged write FOnXChanged;
end;


procedure TXX.SetX(const Value: Integer);
begin
if FX <> Value then
begin
FX := Value;
if Assigned(FOnXChanged) then
FOnXChanged(Self);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xx: txx;
begin
xx := txx.create;
xx.OnXChanged := Button2Click;
xx.x := 3;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Showmessage("X has been changed");
end;




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

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

Наверх





Память: 0.55 MB
Время: 0.017 c
14-13796
Катерина
2002-07-10 12:23
2002.08.05
Help`ы. Крик души


1-13685
Извращенец
2002-07-14 20:04
2002.08.05
флаг, показывающий положение кнопки мыши ?


3-13583
Ребенок Кирилл
2002-07-14 04:01
2002.08.05
Подключение к базе данных Access


8-13726
Рафик
2002-03-30 18:52
2002.08.05
помогите


3-13532
Tenger
2002-07-14 09:32
2002.08.05
РАЗДЕЛИТЕЛЬ ОПЕРАТОРОВ В SQL





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский