Hi,各位先進大家好:
因專案需由Form1 call Form2 顯示並處理完後回到 Form1,
可是 Form2 於 FormActive 中處理完成後下了 Close,
當 Form1 使用 Form2.ShowModal 時, Form2 下 Close 並不會關閉,
當 Form1 使用 Form2.Show 時, Form2 下 Close 會關閉,
程式如下,
因Form2顯示時不希望焦點回到 Form1,
請問有沒有解決方法?
謝謝!

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.Show;
end;


procedure TForm2.FormActivate(Sender: TObject);
begin
Close;
end;

阿 .....close不會寫在Activate內吧
如果你有這樣的需求應該是這樣寫才對...
{
procedure TForm1.Button1Click(Sender: TObject);
var
mform:Tform2
begin
mform := Tform2.create(nil);
mform.ShowModal;

call you proc ...........

mform.Free;
end;
}

編輯記錄

  如果你是希望 form2 被啟動時要自動執行某些事情, 建議用以下做法來取代 FormActive 的事件
參照下列位置的程式碼撰寫

TForm2.....
private
....
Application.OnIdle := StartRun;
end;

Form2.Close;
end;

但要確定 Form1 呼叫 Form2的模式要為

Form2 := TForm2.Creae(self);
try
Form2.ShowModal;
finally
Form2.Free;
end;

以上適用 win vcl for delphi 任何版本, 但不一定適用 fmx 介面
===================引 用 blue 文 章===================
Hi,各位先進大家好:
因專案需由Form1 call Form2 顯示並處理完後回到 Form1,
可是 Form2 於 FormActive 中處理完成後下了 Close,
當 Form1 使用 Form2.ShowModal 時, Form2 下 Close 並不會關閉,
當 Form1 使用 Form2.Show 時, Form2 下 Close 會關閉,
程式如下,
因Form2顯示時不希望焦點回到 Form1,
請問有沒有解決方法?
謝謝!

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.Show;
end;


procedure TForm2.FormActivate(Sender: TObject);
begin
Close;
end;

編輯記錄

Hi,
感謝 Kiraki5336 & P.D.