DelphiのRADでフォーム以外のクラスを継承できませんか？

解決

---

タイトルが変ですが、
DelphiのRADツールでTPanelやら何やらのTWinControlの継承クラスを継承したクラスを作成できますか？

編集    削除

---

RADでは無理です。
TFrameか、TFormの継承クラスであればできますが。

編集    削除

---

そうですね
出来れば便利なのに...  と、思うのは私だけ？

編集    削除

---

[RADで自動的に] という意味ならできませんが、コードエディタに
派生クラスを宣言実装することはもちろんできますよ。

編集    削除

---

>[RADで自動的に] という意味ならできませんが、コードエディタに
>派生クラスを宣言実装することはもちろんできますよ。
TForm1=Class(TForm)とかを、変更するんですか？

編集    削除

---

こんな感じです。デフォルトで黄色いパネルをつくります。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;   // ExtCtrls を加える

type
TMyPanel = class(TPanel)
private
protected
public
  constructor Create(AOwner: TComponent); override;
end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    MyPanel:TMyPanel;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;
  Color := clYellow;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyPanel := TMyPanel.Create(self);
  MyPanel.Parent := self;
  MyPanel.Left := 10;
  MyPanel.Top := 10;
  MyPanel.Caption := 'This is MyPanel';
end;

end.

編集    削除

---

それなら分かっています
やっぱ無理ですね
Frameでやってみます

編集    削除

---

> それなら分かっています

じゃあ、何が分からなかったんですか？

> Frameでやってみます

TFrame でも TPanel の派生クラスはできませんよ。
なにをやってみるんですか？ 結果をお願いしますね。

編集    削除

---

> それなら分かっています

じゃあ、何が分からなかったんですか？

> Frameでやってみます

TFrame でも TPanel の派生クラスはできませんよ。
なにをやってみるんですか？ 結果をお願いしますね。

編集    削除

---

なんどもすみません。

やりたいことは、Panel1 にボタンやらエディットやらを置いて自動的に派生クラスをつくる、
というようなことだと思いあたりました。それならできません。

編集    削除

---

>それなら分かっています
>やっぱ無理ですね
>Frameでやってみます

礼も言わない、
ソース提示してくれた人に対して
唾吐きかけるかのようですね。

編集    削除

---

RAD では、形式上ユニットファイルに TForm の派生クラスをつくりますが、置かれた
コンポーネントの位置や、オブジェクトインスペクタでの設定やイベントハンドラの
関連づけは *.dfm ファイルに書かれます。ですから、ユニットファイルのコード
だけでは、TForm の派生クラスとしては不完全です。RAD では、ストリーミングで
*.dfm ファイルを実行時に読み出すことで、TForm の派生クラスに対してだけ、
特別扱いしているんですね。他のコンポーネントについても同じことをしようとすると、
Delphi の IDE をもう一つつくるくらい大変でしょう。

編集    削除

---

そうですね
ありがとうございましたn(__)n

編集    削除

---

> Frameでやってみます

これは、何をどうやってみて、結果はどうでしたか？

編集    削除

---

複数のプロゼクトで同じPageCntorolのページを使おうと思いました
まぁ手段はいろいろあるでしょう
手動?で作るのがめんどくさかったので。。

編集    削除

---

フレームの新規作成で作ったものをUnit2として保存
メインユニットのUnit1にページコントロールを置いてページをいくつか作って

下記のように記述するとページ毎にRAD編集できてソースがスッキリする
ということではないでしょうか？
TPageから継承して作るとLeftとか自力ですからね

この方法、前に使おうと思っていたのですが
どうも思い通り行かないことがあって結局自分で書いたことがあります。
理由は何だったっけなぁ思い出せない・・・

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    FFlame : TFrame2;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FFlame := TFrame2.Create(Self);
  FFlame.Parent := TabSheet2;
end;

編集    削除

---

takeさんありがとうございます
FrameののったTabSheetをクラスにしてみます

編集    削除

---

>FrameののったTabSheetをクラスにしてみます
Frameを指定するプロパティとかを用意するわけです

編集    削除

---

名前

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

本文

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