Dear sir
我目前在設計一個元件,但我想讓它在designing期間我可以double click元件icon讓它顯示出一個設定窗來做初使值的設定,但一直找不到sample來參考,有那位大大可以指導一下嗎!感恩喔!

一般delphi內建的資料型態,ide皆能呼叫對應的屬性編輯器
要自定特殊編輯器,需在Register程序裡用RegisterComponentEditor向IDE註冊

不知道您要做的是什麼型態的屬性編輯器? 如果有進一步的想法,提出來,讓大家幫您想想辦法

下面片斷是我根據
http://delphi.about.com/od/vclusing/a/customvcldev.htm
剛才試驗的程式碼

[code delphi]
type
TLineDirection = (drLeftRight,
drUpDown,
drTopLeftBottomRight,
drTopRightBottomLeft);
TMyTestControl = class(TGraphicControl)
private
{ Private declarations }
FLineDir: TLineDirection;
function GetLineWidth: Integer;
function GetLineColour: TColor;
procedure SetLineWidth(const NewWidth: Integer);
procedure SetLineColour(const NewColour: TColor);
procedure SetLineDir(const NewDir: TLineDirection);
protected
{ Protected declarations }
public
{ Public declarations }
published
property Direction: TLineDirection read FLineDir write SetLineDir;
property LineColour: TColor read GetLineColour write SetLineColour;
property LineWidth: Integer read GetLineWidth write SetLineWidth;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMyTestControl]);
end;
{ TLine }
function TMyTestControl.GetLineColour: TColor;
begin
Result := Canvas.Pen.Color;
end;
function TMyTestControl.GetLineWidth: Integer;
begin
Result := Canvas.Pen.Width;
end;
procedure TMyTestControl.SetLineColour(const NewColour: TColor);
begin
if NewColour <> Canvas.Pen.Color then
begin
Canvas.Pen.Color := NewColour;
Invalidate;
end;
end;
procedure TMyTestControl.SetLineDir(const NewDir: TLineDirection);
begin
if NewDir <> FLineDir then
begin
FLineDir := NewDir;
Invalidate;
end;
end;
procedure TMyTestControl.SetLineWidth(const NewWidth: Integer);
begin
if NewWidth <> Canvas.Pen.Width then
begin
Canvas.Pen.Width := NewWidth;
Invalidate; // redraws the component
end;
end;
[/code]


進一步資料吸收,請參考
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=22211
http://www.drbob42.com/delphi/property.htm

我要一個類似TTreeView元件可以用來編輯預設樹狀圖的Form,我想把它改成用來建一個預設的Ini檔架構,配合TParams來用!!