|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передать значение переменной в процедуру
Перед закрытием формы обрабатываю событие OnCloseQuery, которое спрашивает точно ли я хочу закрыть форму, но решил сделать "по-умному", то бы даное сообщение выскакивало только если изменялись данные в компонентах на форме.
В общем на форме 3 эдита, 1 комбобокс и spinedit. С эдитами легко - там есть свойство Modified, а что делать с Combobox? Думал записывать itemindex при создании формы и проверять его при закрытии, и если они не идентичны - вызываю closequery с вариантом сохранить данные. Собственно вопрос: как передать значение переменной из процедуры OnCreate в OnCloseQuery? |
#2
|
|||
|
|||
Сделать атрибутом класса?
Код:
type TForm1 = class(TForm) ... private FMyVariable : String; end; ... procedure TForm1.FormCreate(...); begin FMyVariable := '1'; end; procedure TForm1.CloseQuery(...); begin If ComboBox1.Text <> FMyVariable Then CanClose := MessageDlg(...) = mrYes; end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
toddams (02.02.2013)
|
#3
|
|||
|
|||
спасибо, помогло
|