掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
自作コンポーネントの parent プロパティ (ID:44374)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ただし，そうすると，全てのマウス関係のメッセージを自前で処理しなければなりません． スミマセン．情報が断片的で申し訳ないのですが． このメッセージの処理は，WM_LBUTTONDOWN とかでなく，コンポーネント内部で 使用する MouseUp とか MouseDown メソッドを override して使います．例えば，以下のように procedure TplMyPanel.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var AForm : TForm; begin inherited; if csDesigning in ComponentState then begin AForm := TForm(GetParentForm(Self, False)); Self.ParentBackground := False; Self.Color := clRed; Self.Caption := AForm.Name; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.