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

名前

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

本文 > 決まったフォームを呼び出したいという感じでは無く > 動的に中身の違うフォームを引数に応じて作成したい感じです。 そういう場合は，以下のように全て自前でコントロールを生成することになります． これは，貴方が既に書かれている > 共通につかう処理を1つのPASでまかないたい感じになります。 という趣旨のものとは言えなくなりますし，ユニットの分割とも言えませんね． unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } procedure OnBtnClickEvent(Sender: TObject); public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var LForm : TForm; LButton1 : TButton; LButton2 : TButton; begin LForm := TForm.Create(Self); LForm.Position := poDesigned; LForm.Width := 300; LForm.Height := 200; LForm.Left := Self.Left + Self.Width; LForm.Top := Self.Top - Self.Height; LButton1 := TButton.Create(LForm); LButton1.Parent := LForm; LButton1.Left := 20; LButton1.Top := 20; LButton1.Caption := 'Button1'; LButton1.OnClick := OnBtnClickEvent; LForm.Show; end; procedure TForm1.OnBtnClickEvent(Sender: TObject); begin ShowMessage('Clicked !!'); end; end. > 動的にusesさせるためには 実行時に uses 部を編集することはできません． プログラムのコードをコンパイルすると EXE ができます． その EXE はマシン語と呼ばれるコードになります． その時，Uses 部のユニットのコードを参照してマシン語を生成します． つまり，たとえできたとしても意味がありません． uses 部に必要なユニットがないと，コンパイル時に [xxx.dcu が見つかりません] のエラーが発生します． このエラーは実行時でなく，コンパイル時に発生します つまり，実行時にユニットを参照するのではありません．． マシン語は EXE を生成した時のプログラムのコードではありません． そもそも > 決まったフォームを呼び出したいという感じでは無く > 動的に中身の違うフォームを引数に応じて作成したい感じです。 なのであれば，uses 部に必要なユニットは， 上のコードで示すように呼び出し側 (フォームを生成する側) の設定になります．