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

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
6-1094494684
pkm
2004-09-06 22:18
2004.11.14
Net.exe


14-1099038151
}|{yk
2004-10-29 12:22
2004.11.14
Умберто Эко. Имя розы.


3-1097922799
Нулевой
2004-10-16 14:33
2004.11.14
Помогите перевести код чтоб заработало на FB1.5 Плз!!!


1-1099426141
SteelMan
2004-11-02 23:09
2004.11.14
что за файл qtintf.dll


14-1098709470
astalavista
2004-10-25 17:04
2004.11.14
Как засунуть изображения в ячейки StringGrid ?





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