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

Вниз

кнопкой превать цикл   Найти похожие ветки 

 
Electric   (2001-12-24 05:24) [0]

Как нажатием кнопки на своей форме прервать цикл в своей программе ?


 
Sergey_n   (2001-12-24 06:36) [1]

flgCancel: Boolean; // глобальная переменная(флаг)

procedure TForm1.btnStartClick(Sender: TObject); //Кнопка запуска цикла
var
i: Integer;
begin
flgCancel := False;
for i:=0 to 200000000 do begin
Application.ProcessMessages();
if (flgCancel) then Exit;
end;
end;

procedure TForm1.btnStopClick(Sender: TObject); //Кнопка останова цикла
begin
flgCancel := True;
end;

Проверил, работает.


 
SergVlad   (2001-12-26 20:31) [2]

Можно обойтись без флага:
..
Application.ProcessMessages();
if (csLButtonDown in btnStop.ControlState) then Exit;

И даже одной кнопкой:
..
Application.ProcessMessages();
if (csLButtonDown in ControlState) then Exit;




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

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

Наверх









Память: 0.81 MB
Время: 0.123 c
14-79452
otari
2002-01-08 22:50
2002.02.25
Как мне узнать какого приказов отправляет Trojan


7-79485
VaaL
2001-09-21 18:20
2002.02.25
swf и Делфи


1-79381
IronHawk
2002-02-08 18:47
2002.02.25
Обьединение нескольких *.txt файлов !


6-79412
eblade
2001-12-08 21:56
2002.02.25
TClientSocket.OnWrite


14-79439
Alex!!!
2002-01-04 13:15
2002.02.25
Подскажите, какой язык программирования учить для заработка денег?





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