自制控件碰到的难韪(200分)

  • 主题发起人 主题发起人 7030
  • 开始时间 开始时间
7

7030

Unregistered / Unconfirmed
GUEST, unregistred user!
我从TGraphicControl派生一控件类似TSpeedbutton,有一属性一直搞不定:transparent,
功能和TIage的transparent一样,看了VCL的源码,可跟看不出个所以来,只好请教各位大侠了!

 
打错字了,应为:
我从TGraphicControl派生一控件类似TSpeedbutton,有一属性一直搞不定:transparent,
功能和TImage的transparent一样,看了VCL的源码,可看不出个所以来,只好请教各位大侠了!
 
试试:
TMyComp = class(TGraphicControl)
private
FTransParent: Boolean;
...
protected
procedure SetTransparent(Value: Boolean);
published
property Transparent: Boolean read FTransParent write SetTransParent;
...
end;
...
procedure TMyComp.SetTransparent(Value: Boolean);
begin
if Value <> FTransparent then
begin
FTransparent := Value;
if Value then
ControlStyle := ControlStyle - [csOpaque] else
ControlStyle := ControlStyle + [csOpaque];
Invalidate;
end;
end;
要不可以把你的 Paint 方法贴上来看看?
 
我不知道该怎么写
 
接受答案了.
 
后退
顶部