掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アイコンTrackBarコントロールは、それを行う方法です？ (ID:41220)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私は16X16アイコンを見つけ、コンポーネントのアイコンを作りたい。 次に、以下のコードを記述します。 TBtn ICON"E：\ TBTN.ico"コンパイルが成功すると、 私は変更DCR、IDEは、アイコンを表示することができない私を作ることができる、プログラムの次のコンポーネントは、次のとおりです。 unit btn; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TBtn = class(TButton) private FOnMouseLeave: TNotifyEvent; procedure WZMouseLeave(var Msg:TMessage); message CM_MOUSELEAVE; { Private declarations } protected { Protected declarations } public { Public declarations } published property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('com+', [TBtn]); end; { TButton1 } procedure TBtn.WZMouseLeave(var Msg: TMessage); begin inherited; if csLButtonDown in ControlState then begin Self.MouseUp(mbLeft,[ssLeft],0,0); end; if Assigned (FonMouseLeave) then FOnMouseLeave(Self); end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.