Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.027 c
2-1135951119
Id
2005-12-30 16:58
2006.01.22
Данные не сохраняются


3-1132729810
syte_ser78
2005-11-23 10:10
2006.01.22
Помогите с написанием запроса


3-1132681869
vladik
2005-11-22 20:51
2006.01.22
сколько записей обработано запросом


2-1136528201
Alex7
2006-01-06 09:16
2006.01.22
Изменение свойств фрейма


14-1135978840
Sergey Masloff
2005-12-31 00:40
2006.01.22
Оказывается сегодня уже 31





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