同じフォームを複数開く

解決

DelPhi初心者 2005-06-13 10:39:09 No: 15588 IP: 192.*.*.*

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

VisualBasicで言うところの・・・

Public NewMemoForm As New MemoForm

Set NewMemoForm = New MemoForm
NewMemoForm.Show

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

編集削除

deldel 2005-06-13 10:46:07 No: 15589 IP: 192.*.*.*

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

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 10:56:41 No: 15590 IP: 192.*.*.*

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

編集削除