unit qUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses qunit2;
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
Form2:=Tform2.Create(Self);
form2.ShowModal;
form2.Free;
end;
end.
**************************
unit qUnit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses qunit1;
{$R *.dfm}
procedure TForm2.FormActivate(Sender: TObject);
begin
Form1.Hide;
end;
end.
在 TForm2.FormActivate 希望將 from1 隱藏出現
cannot change visible in onshow or onhide錯誤訊息
請問如何將from2 中 將 from1 hide

如果沒記錯，當你使用

ShowModal時，呼叫者（就是你的 form1，是在等待狀態，無法被操作的，因為 delphi會等到你的form2關閉後，才會回來操作 form1，也就是說，所以你會有那個訊息

解決方法
1. 改用show 來呼叫 form2
2. 在 form2.ShowModal 前先讓 form2 隱藏、ShowModal 後，顯示form1

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2:=Tform2.Create(Self);
form2.Show;
還是沒用不知為何
end;