OnResizeイベントの発生について (ID:11707)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

では、下記コードで試してみてください。
MyForm2の宣言部分がミソだと思います。
今回のコードは、既にMyForm2が生成されているときは、Showのみ実行します。

//-------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
var
  MyForm2: TForm2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '生成・表示';
  Button2.Caption := '破棄';
  Button3.Caption := '確認';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(MyForm2) then
    MyForm2 := TForm2.Create(self);
  MyForm2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyForm2.Free;
  MyForm2 := nil;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Assigned(MyForm2) then
    ShowMessage('インスタンス化されています')
  else
    ShowMessage('インスタンス化されていません');

end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る