如何在自己的类中使用一般控件??? ( 积分: 100 )

  • 主题发起人 主题发起人 6ysnow
  • 开始时间 开始时间
6

6ysnow

Unregistered / Unconfirmed
GUEST, unregistred user!
我自己创建了一个类,同时申明了一个TEdit类:MyEdit,目的是想:一旦在这个类中我将MyEdit赋植后,窗提类中的Edit同时被赋相同的植!(类似回调使用)!
希望大侠门给我一个例子!!!
 
我自己创建了一个类,同时申明了一个TEdit类:MyEdit,目的是想:一旦在这个类中我将MyEdit赋植后,窗提类中的Edit同时被赋相同的植!(类似回调使用)!
希望大侠门给我一个例子!!!
 
不懂你的意思
 
不明白??

我想在自建的类中引用Edit,可以:MainWin.Edit1.text:='';
关键是我不想在自建的类中引用主窗体的空件。
所以我就想在自建的类中声明一个,于是我可以在自建的类中:myEdit.text:='';
而主窗体同样也被有值
 
type
TMyEdit=class(TEdit)
private
F_MainEdit:TEdit;
protected
procedure Change;override; //控件内容改变时触发OnChange事件
public
property MainEdit:TEdit read F_MainEdit write F_MainEdit; //记录主窗体Edit指针
end;

procedure TMyEdit.Change;
begin
if Assigned(F_MainEdit) then F_MainEdit.Text:=Self.Text;
end;

--------------------------------------------
//初始化
var MyEdit:TMyEdit;
begin
MyEdit:=TMyEdit.Create(MainWin);
MyEdit.MainEdit:=MainWin.Edit;
end;

//当MyEdit的Text发生变化,则MainWin的Edit的Text也变化
 
谢谢!plenilune168!!
 
后退
顶部