名前 題名 ▼ Mr.XRAYさん > protected 部のメンバーにアクセスするには, > 対象のコントロールの継承クラスを定義します. > > implementation > > {$R *.dfm} > > type > TMyPanel = class(TPanel); > > procedure TForm1.Button1Click(Sender: TObject); > begin > TMyPanel(Panel1).Click; > end; > > procedure TForm1.Panel1Click(Sender: TObject); > begin > ShowMessage('Clicked '); > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link