Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Простой вопрос 
:(
    Опции темы
XaleX
Дата 10.12.2003, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.12.2003

Репутация: нет
Всего: нет
Прошу, ответьте мне на такой, возможно с какой то стороны глупый вопрос!
Как прервать выполнение процедуры на нажатие нопки!?
И чем лучше привязать к проге hlp, с множеством точек входа, подскажите пжлста!
Буду благодарен!
PM MAIL   Вверх
Vit
Дата 10.12.2003, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Canceled:boolean; // нам нужна глобальная переменная

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 Canceled:=False;  // начало бесконечной процедуры
 Repeat   // бесконечный цикл, который надо прервать
   Caption:=inttostr(i);
   Application.ProcessMessages;
   if Canceled then break;  // прервать цикл если вторая кнопка была нажата
 Until False;
 showmessage('We are exit from procedure');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Canceled:=True; // команда для прерывания цикла
end;

end.



Цитата
И чем лучше привязать к проге hlp, с множеством точек входа, подскажите пжлста!
Буду благодарен!


Каждый компонент имеет свойство HelpContext, кроме того объект Application имеет методы работы с Help.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
DonPager
Дата 12.12.2003, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
этот способ хорошо подходит если идёт какойто процесс и его надо прервать ...
у Xalex`a же задача немного другая.....:
идёт процесс, вдруг в процессе его исполнения требуется ввести новые данные, появляется маленький диаложик ... и вот тут то и надо подождать пока юзверь не введёт цифирю...ежели делать repeat..until ето слишком много кушает,
а если преределывать конструкцию проги (нк так уж она написана sad.gif ) - это займёт слишком много времени...
может есть какой ещё способ?...


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Vit
Дата 12.12.2003, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Ничего не понял... Идёт процесс, надо спросить - вызываешь диалог MyFormDialog.showmodal; программа стоит и ждёт пока не закроют эту модальную форму, какой такой repeat...Until? На фига он там нужен?


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
DonPager
Дата 14.12.2003, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
всё конечно хорошо..., однако при шоумодале вылезает отдельное окошко, а нуно чтобы диаложик в тойже форме был...

З.Ы. Да, мы комсомольцы - сначала трудности создаём - а потом преодолеваем.... smile.gif


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
NiJazz
Дата 14.12.2003, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23
Vit, а можно exit?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0571 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.