Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Обработка события   Найти похожие ветки 

 
Pashkerton   (2004-10-27 14:11) [0]

Добрый день.
Вопрос: Как обрабтать нажатия внопок в цикле?
На форме есть несколько кнопок, по нажатию на одну из них
Flag принимает одно из значений ModalResult.

Flag : TModalResult;

Flag:= mrNone;

while (Flag <> mrAbort) do begin
.
.
 case Flag of
   mrYes: BlaBlaBla;//При нажатии на кнопку 1
   mrNo : BlaBlaBla;//При нажатии на кнопку 2
   .
   .
 end;
.
.
end;
Согласитесь что такая конструкция нелепа.
Как правильно пускать цикл по одной из веток в зависимости от нажато Button?


 
Pentium133 ©   (2004-10-27 14:15) [1]

в OnClose формы анализируй ModalResult


 
Rem ©   (2004-10-27 14:15) [2]

>> Согласитесь что такая конструкция нелепа.
Вопрос задан не лучше...

Sender не помогает?


 
Pashkerton   (2004-10-27 14:24) [3]

>> Вопрос задан не лучше...
сосогласен.
Sender не помогает.


 
Sphinx   (2004-10-27 14:29) [4]

> Pashkerton   (27.10.04 14:24) [3]

> в OnClose формы анализируй ModalResult

Самое надежное решение. И самое простое, ни каких циклов. А если надо чтобы форма при нажатии на какую-то кнопку не закрывалась делай Action:=caNone



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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.04 c
14-1098183034
Kerk
2004-10-19 14:50
2004.11.14
Орешник отдыхает.


3-1096268547
Virgo
2004-09-27 11:02
2004.11.14
Вопрос по ТDataBase.Params


14-1098884123
peypivo
2004-10-27 17:35
2004.11.14
Как завсегдатаи форума умудряются работать?


1-1098850367
Franzy
2004-10-27 08:12
2004.11.14
"Теологический" вопрос о динамических массивах


9-1090357842
RyDmi
2004-07-21 01:10
2004.11.14
Создание спрайтов





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