Главная страница
    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.033 c
1-1099331941
UDS
2004-11-01 20:59
2004.11.14
Как зациклить MediaPlayer?


1-1098995456
Khabibulin
2004-10-29 00:30
2004.11.14
Replace System Tray


1-1098867355
_Сергей_
2004-10-27 12:55
2004.11.14
Дизайнер форм


9-1088316706
X-Disa
2004-06-27 10:11
2004.11.14
Asteroid Killer


1-1098940211
Font
2004-10-28 09:10
2004.11.14
Unicode и VCL





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