掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TGraphicControlの継承コンポーネントを作成するには (ID：3119)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TGraphicControlの継承コンポーネントを作成しているのですが、何も表示されません。どこが悪いのでしょうか。（長文） フォームの上でマウスをクリックするとそこに四角を表示するプログラムです。 type TCustomCnp = class(TGraphicControl) private protected procedure Paint; override; public constructor Create(AOwner: TComponent); override; end; implementation constructor TCustomCnp.Create(AOwner: TComponent); begin inherited Create(AOwner); end; procedure TCustomCnp.Paint; begin Canvas.Rectangle(10,10,100,100); end; 動的にコンポーネントを生成 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var newCnp: TControl; begin newCnp := TCustomCnp.Create(Form1); newCnp.Parent := Form1; newCnp.Left := X; newCnp.Top := Y; newCnp.Visible := True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.