ユニット分割について (ID:150063)

名前

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

本文

フォームではなくユニットでフォームを作ったのでフォームが無いのでイベント先が・・・
って話は

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
   TX = class(TComponent)
   public
     procedure DoClick(Sender: TObject);
   end;

procedure GO(Sender: TObject; Form: TForm);

implementation

procedure TX.DoClick(Sender: TObject);
begin
    MessageBox (0,'','',0);
end;

procedure GO(Sender: TObject; Form: TForm);
var
   TF: TForm;
   X: TX;
begin
   TF := TForm.Create(nil);
   TF.OnClick := X.DoClick;
   TF.ShowModal;
   TF.Free;
end;

end.

ユニットじゃなくフォームに作れよって話なんだけど

>そのやり方で今まで行っていたのですが、その方法だと別アプリで利用の際に都度作り直しになってしまうので生成処理を別PASに記述し使い回し>で動的生成を行おうと思いました。

その別pas はフォームでいいんだよ

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;
  procedure GO(Sender: TObject; Form: TForm);

implementation

{$R *.dfm}

procedure GO(Sender: TObject; Form: TForm);
var
   TF: TForm2;
begin
   TF := TForm2.Create(nil);
   TF.OnClick := TF.FormClick;
   TF.ShowModal;
   TF.Free;
end;

procedure TForm2.FormClick(Sender: TObject);
begin
    MessageBox (0,'','',0);
end;

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

戻る