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

Вниз

abort в KOL   Найти похожие ветки 

 
Ilnur   (2005-06-06 16:24) [0]

Скажите, пожалуйста, как реализована в KOL функция "Abort" для прекращения действия функции, но не для выхода из нее
В моём случае:

SaveResp := Messagebox(applet.Handle,pchar(Format(sSaveChanges, [FFileName])),"do you want to save changes?",3);
case SaveResp of
   idYes: KOLForm1Savemenu(self.MainMenu1,1);
   idNo: {Nothing};
   idCancel: {I don"t know???} ;
 end;
end;

Что нужно вставить в idCancel? (но не exit, т.к. exit выходит из процедуры, а мне нужно вставить это в KOLForm1Close).


 
Thaddy   (2005-06-06 17:58) [1]

That is not a KOL question, but an algorithmic question:
ask your self:
- How many options do I have to provide for (hint: 1 2 3) ?
- What exactly are the numbers I get back?
- What structures does Delphi provide to handle these? (hint: case)
- What is the right place in my program to put such a question? (hint: if you get stuck, it is too late!)

I can give you an example of what you want, but you should first try to solve this well known problem yourself!

(Follow the hints: it is not difficult)



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

Форум: "KOL";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.038 c
2-1136402904
aleccc
2006-01-04 22:28
2006.01.22
Работа с массивами компонентов


2-1136559332
_kostet
2006-01-06 17:55
2006.01.22
RAISERROR


1-1134722616
The Only
2005-12-16 11:43
2006.01.22
comdlg32


1-1135073226
Фагот
2005-12-20 13:07
2006.01.22
как определить бездействие пользователя?


14-1135751116
Ega23
2005-12-28 09:25
2006.01.22
Нужна толковая информация про Flash





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