Главная страница
    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.055 c
14-1135978840
Sergey Masloff
2005-12-31 00:40
2006.01.22
Оказывается сегодня уже 31


2-1135921105
Alex7
2005-12-30 08:38
2006.01.22
Обращение к БД при активизации формы


1-1134480593
Reset
2005-12-13 16:29
2006.01.22
Поиск компонента и выяснение его свойств...


2-1135937910
Silver__Dragon
2005-12-30 13:18
2006.01.22
запуск exe


2-1135652426
stef
2005-12-27 06:00
2006.01.22
Не правильно работает цикл for





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