没分了,呜呜,控件怎么写啊(5分)

  • 主题发起人 主题发起人 eon_ian
  • 开始时间 开始时间
E

eon_ian

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大富翁,下面的控件有一个问题,就是放在它上面的tgraphiccontrol控件(如tlabel)
不能自动刷新,怎么才能达到panel的效果呢,少写了什么?

interface
uses Controls,classes;

type
TTestControl=class(TCustomControl)
public
constructor Create(AOwner: TComponent); override;
end;

procedure Register;

implementation


{ TTestControl }

constructor TTestControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents,
csOpaque, csDoubleClicks, csReplicatable];
end;


procedure Register;
begin
RegisterComponents('mycontrols', [TTestControl]);
end;
end.
 
invalitead //刷新

你要怎么个刷新呢??
 
在哪里写入刷新才能让TGraphicControl们自动刷新呢?
 
已经解决了,不过还是谢谢
 
后退
顶部