Главная страница
    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.044 c
2-1136274898
g.town
2006-01-03 10:54
2006.01.22
BDE


14-1136026952
Kerk
2005-12-31 14:02
2006.01.22
Стратегия и тактика


1-1134852272
Steplerr
2005-12-17 23:44
2006.01.22
Как использовать "голубой" стиль Win XP


3-1132841563
salluy
2005-11-24 17:12
2006.01.22
Получить список PRIMARY KEY


2-1136539055
mss
2006-01-06 12:17
2006.01.22
Сколько файлов





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