2014年9月3日水曜日

Create でフォームの動的構築

こんにちは、

やっとXe7をインストールがし終わった。

やましょうです。

さて、初日に私がVCL=>FMに移行しはじめて最初の挫折を書いたのですが、

なんと、 本日確認したところ、XE2でもちゃんと動作する事を確認しました。


あれ?たしかXE3もだめだった記憶があるのですが、UPDATEで対応

してくれたのでしょう。


ちなみに、ソースはBLOW.

unit unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,unit2;

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

var
  Form1: TForm1;
  FormD: TForm2;

implementation

{$R *.fmx}


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Formd.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Formd := TForm2.Create(Self);
end;

end.
 
だったのですが、XE2の頃ですよ。
ともかく現在は問題なく動作するので良かった。
よかった。


え!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
え!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

私のソフトこれの対応でいろいろしちゃってましたけど、
もうこの対応いらないのですね。

それではまた明日。



0 件のコメント:

コメントを投稿