アイコンTrackBarコントロールは、それを行う方法です？
2つのプランがそれを行うことです？私は円形のスライダーのアイコンを行うには、そのアイコンを行う方法であるにお願いしたい、そのスライダをドラッグすることができないのですか？
私は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.
他の方の質問に対して勝手に[解決]を押してるIDが偶然あなたと一致しているようですが、
ご本人では無いですよね？
もし本人でしたら、明らかな運営妨害行為ですので、直ちにおやめ下さい。
https://www.petitmonte.com/bbs/answers?question_id=7508
https://www.petitmonte.com/bbs/answers?question_id=7505
https://www.petitmonte.com/bbs/answers?question_id=7509
質問に答える側はあくまでボランティアです、
回答が貰えない場合の多くは質問が意味不明、環境が再現し辛い、
また、マナー的には質問後の処理が不適切な場合があります。
冤罪だったらスミマセン。
monaaあなたは、Delphiの研究ノートを持っているのですか？
他の誰かが質問に答える人々は良い結果を持つ人々である、あなたはDelphiの使用スキルを持っているあなた自身のブログを、持っている？
こんにちは．
>私は16X16アイコンを見つけ、コンポーネントのアイコンを作りたい。
アイコンファイルを見つけたんですね．
それを，コンポーネントのアイコンにしたいのですね．
まず，最初に，そのアイコンファイルをビットマップに変換してください．
変換は，自分でプログラムを作成します．
または，誰かが作った画像処理のアプリケーションを利用します．
次の記事を参考にしてください．
機械翻訳(自動翻訳)を利用する時は，日本語に変換した文章を，また中国語にします．
それで確認するといいですよ．
[164_コンポーネントのアイコン作成支援プログラム]
http://mrxray.on.coocan.jp/Delphi/plSamples/164_CreateCompoIcon.htm#04
| ツイート |  |