.Createでnull参照になってしまう件について (ID：19680)

名前

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

本文

何をしたいのかよくわかりませんが、普通の方法でやるなら、
単に、Show で済むでしょうから、「動的に作り出すには・・」と言う観点から
上げてみます。

// 新しいフォームを動的に作り出す。
unit Unit1;

interface

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

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

type
  TForm2 = class(TCustomForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form2 <> nil then Exit;

Form2 := TForm2.CreateNew(self);
  with  Form2 do
  begin
    Top := 100;
    Left := 100;
    Show;
    Button1 :=  TButton.Create(Form2);
    with  Button1 do
    begin
      Parent :=  Form2;
      Top := 20;
      Caption := 'My Botton';
      OnClick := Button1Click;
    end;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Showmessage('OK');
end;

end.

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

戻る