Form2を表示しているときにForm1を触れないようにするには？2

解決

ルイージ 2003-09-26 02:32:29 No: 4992

Form1で処理を行っている間、アナウンスを表示する為だけに
Form2を表示して、メッセージやステータスを表示したいのです。

ですので、Form2を表示している間は、Form1にフォーカスが
こないようにしたいのです。

過去Logを見て、似たような件を見つけたのですが、
ShowModalでは、そこで処理が止まってしまい、
Form1で処理を続ける事ができません。

ご存知の方がいらっしゃいましたら、どうかご指導ください。

Halbow 2003-09-26 02:49:56 No: 4993

Halbow です。

TForm には Enabled プロパティーがあるので

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
Enabled := false;
Form2.Show;
end;

として Form2 を Show し、

uses
Unit1;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Enabled := true;
end;

として、Form2 を閉じるとき true にしたらよいと思います。

ルイージ 2003-09-26 18:36:51 No: 4994

Halbowさん、ありがとうございます。
Form.Enable:=Falseで解決しました！
ありがとうございます。

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Enabled := false;
Form2.Show;

//処理

Form2.Hide;
Form1.Enabled := true;

end;