屬性展開 |
尚未結案
|
jasonma168
一般會員 發表:39 回覆:33 積分:14 註冊:2002-05-24 發送簡訊給我 |
TTCP = class(TComponent)
private
protected
FWindowsSize: Word;
FPacketSize: Word;
FPackets: Word;
public
published
property WindowsSize: Word read FWindowsSize write FWindowsSize;
property PacketSize: Word read FPacketSize write FPacketSize;
property Packets: Word read FPackets write FPackets default 0;
end; TGWNode = class(TGraphicControl)
private
FTCP: TTCP;
published
property TCP: TTCP read FTCP write SetTCP;
end; 我希望 TGWNode 元件安裝完,有一個TCP的屬性可以展開,請問錯在哪?
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
You need to create a valid object for the property.. e.g.
unit TCP; interface uses SysUtils, Classes, Controls; type TTCP = class(TComponent) private protected FWindowsSize: Word; FPacketSize: Word; FPackets: Word; public published property WindowsSize: Word read FWindowsSize write FWindowsSize; property PacketSize: Word read FPacketSize write FPacketSize; property Packets: Word read FPackets write FPackets default 0; end; TGWNode = class(TGraphicControl) private FTCP: TTCP; procedure SetTCP(const Value: TTCP); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property TCP: TTCP read FTCP write SetTCP; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TGWNode]); end; constructor TGWNode.Create(AOwner: TComponent); begin inherited; FTCP := TTCP.Create(self); end; destructor TGWNode.DEstroy; begin FTCP.Free; inherited; end; procedure TGWNode.SetTCP(const Value: TTCP); begin end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |