同じフォームを複数開く

解決

DelPhi初心者 2005-06-13 19:39:09 No: 15588

フォームにポップアップを作成しポップアップのメニューをクリックすると
同一のフォームを表示したい。

VisualBasicで言うところの・・・

Public NewMemoForm As New MemoForm

Set NewMemoForm = New MemoForm
NewMemoForm.Show

のような感じなのですが、どなたかご教授ください。

deldel 2005-06-13 19:46:07 No: 15589

なんか違う気がしますが・・・
動作はしますが・・・
どなたか添削お願いします。

private
{ Private 宣言 }
FFF: TForm1;

・・・・・・・

procedure TForm1.Button1Click(Sender: TObject);
begin
FFF := TForm1.Create(Self);
FFF.Visible := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FFF.Close;
FFF.Free;
end;

DelPhi初心者 2005-06-13 19:56:41 No: 15590

ありがとうございました。