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

Вниз

выполнение модуля   Найти похожие ветки 

 
Анатолий   (2002-01-01 03:51) [0]

Как прервать выполнение модуля? Необходимо открыть новую форму Form2, прервав вычисления в Unit1 формы Form1. При этом старая форма Form1 не должна быть закрыта.
Пишу:
procedure TForm6.Button1Click(Sender: TObject);
begin
if Label7.Caption="" then
begin
form32.Show;
form32.label1.Caption:="Введите последнюю цифру шифра";
form32.label1.Visible:=True;
stop:=true;
end;
Открывается новая форма Form2, но после
Stop:=true;
Обрабатываются команды дальше на старом Unit1. Может какие-то изменения нужны в событиях?


 
MBo   (2002-01-03 08:12) [1]

не очень понятно, что нужно, может, спасет
form32.ShowModal;


 
Анатолий   (2002-01-04 05:53) [2]

Спасибо за помощь. Надо было заменить form32.Show на form32.ShowModal



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

Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.014 c
1-66242
Ivanov
2002-01-03 12:25
2002.01.21
Люди, подскажите алгоритм


4-66412
AlexandrH
2001-11-19 11:20
2002.01.21
Как получить дескриптор активного окна.


1-66231
Oleg Fomicheff
2001-12-31 05:26
2002.01.21
ComboBox: проверка уникальности элементов


1-66254
Builder
2002-01-03 17:00
2002.01.21
Копирование запущенного файла


1-66235
AST
2001-12-30 01:42
2002.01.21
Размеры в Qreport





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