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

Вниз

Срочно нужна помощь!!!   Найти похожие ветки 

 
ДмитрийК.   (2002-12-20 22:56) [0]

Уважаемые Господа!
Возникла проблема, с которой как-то раз справлялся, а теперь хоть головой об стол
бейся, не могу вспомнить как. Ниже привожу кусок кода, принципиально показывающий
проблему. Как при нажатии Button1, в середине процедуры остановиться и подождать, пока
не закроется Form2, а потом продолжить выполнение?




unit Unit1;
...

uses
...Unit2;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
....
end;

var
Form1: TForm1;
N:byte;

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Visible:=true;
{В этом месте нужно дождаться закрытия Form2}
Label1.Caption:= inttostr(n);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
N:=1;
end;

end.




unit Unit2;
....

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

var
Form2: TForm2;
......
uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
N:=N+1;
close;
end;

end.


 
Юрий Зотов   (2002-12-20 23:18) [1]

Вариант 1.

procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(nil) do
try
ShowModal
finally
Free
end;
Label1.Caption := IntToStr(N)
end;


Вариант 2.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
while Form2.Visible do Application.ProcessMessages;
Label1.Caption := IntToStr(N)
end;

Вариантов еще много. Все зависит от того, что именно требуется.



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

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

Наверх





Память: 0.54 MB
Время: 0.017 c
4-1924
Loda
2002-11-12 15:53
2003.01.02
Список окон у MDI формы


1-1838
VaS
2002-12-19 16:02
2003.01.02
DCOM


14-1898
adur
2002-12-13 20:10
2003.01.02
DLL


14-1859
MaximatorVeter
2002-12-12 13:34
2003.01.02
Горяченькими!


4-1935
.nuke
2002-11-16 14:07
2003.01.02
grayscale





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