アイコン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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する