名前
題名
▼ Mr.XRAYさん > > 実際のコードです，usse 部は省略しています． > > uses 部に追加するものはありません．多分． > > 続いて，TButton の継承クラスを作成して使用する例です． > > type > TMyButton = class(TButton) > protected > procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE; > public > procedure Click; override; > end; > > TForm1 = class(TForm) > Memo1: TMemo; > procedure FormCreate(Sender: TObject); > procedure Button1MouseEnter(Sender: TObject); > private > MyButton1 : TMyButton; > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.DFM} > > procedure TForm1.Button1MouseEnter(Sender: TObject); > begin > Memo1.Lines.Add('AAAA'); > end; > > procedure TForm1.FormCreate(Sender: TObject); > begin > MyButton1 := TMyButton.Create(Self); > MyButton1.Parent := Self; > MyButton1.Left := 20; > MyButton1.Top := 5; > end; > > { TMyButton } > > procedure TMyButton.Click; > begin > inherited; > ShowMessage('クリック'); > end; > > procedure TMyButton.CMMouseleave(var Message: TMessage); > begin > inherited; > Form1.Memo1.Lines.Add('Leave'); > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link