我在網上下了一個控制元件
這個控制元件 ,然后用的是里面的Rzline,
因為覺得想給它添加一個我可以用的到的屬性,就是這個線段兩端的端點添加屬性,顯示坐標值,可以在屬性監視器看得到。
一個端點添加一個。
怎么做呢
uj5u.com熱心網友回復:
設計時顯示的話基本無解,除非你從該組件原始碼重新開始改,前提你看得懂并且有原始碼。
uj5u.com熱心網友回復:
我想從這個空間里面派生一個,然后自己添加一個屬性,變成新的控制元件
uj5u.com熱心網友回復:
可以繼承它,并派生一個新的控制元件。增加相應的屬性一,但是如果要顯示出來,還得畫圖。比較復雜。
uj5u.com熱心網友回復:
Quote: 參考 3 樓 lyhoo163 的回復:
可以繼承它,并派生一個新的控制元件。增加相應的屬性一,但是如果要顯示出來,還得畫圖。比較復雜。
能不能幫我寫一下原始碼 ,只用顯示屬性就可以
uj5u.com熱心網友回復:
uj5u.com熱心網友回復:
加一屬性顯示出來簡單,但關鍵是要讓屬性應用起來,比較復雜。
uj5u.com熱心網友回復:
參考 6 樓 lyhoo163 的回復: 加一屬性顯示出來簡單,但關鍵是要讓屬性應用起來,比較復雜。
你好 我就是讓它顯示出來就好,
uj5u.com熱心網友回復:
因為就是想通過這個屬性 來判斷線段的兩個端點的
uj5u.com熱心網友回復:
unit RzLine3;
interface
uses
Windows,SysUtils, Classes, Controls, RzLine;
type
TRzLine3 = class(TRzLine)
private
Fpoint:TPoint;
procedure setpoint(value:TPoint);
{ Private declarations }
protected
property onepoint: TPoint read Fpoint write setpoint;
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TRzLine3]);
end;
procedure TRzLine3.setpoint(value:TPoint);
begin
Fpoint:=value;
end;
end.
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/86075.html
標籤:GAME 圖形處理/多媒體
上一篇:求助 SQL打不開是為什么呀。。。
下一篇:Delphi7報錯 No argument for format '%'