Delphi 7下控件编写的问题
在学习控件的编写的,由于找不到Delphi7 相关的资料所以只能用Delphi 5 的
但是碰到一个问题
我在
uses
Windows,Messages,SysUtils, Classes, Graphics,Controls,Forms,Dialogs,StdCtrls,Buttons;
type
TShade=record
C:array[0..15] of TColor;
end;
type
XPButton = class(TButton)
private {在private里定义的变量在下面却不能用}
FBaseColor:TColor;
FCanvas:TCanvas;
IsFocused:Boolean;
Shade:TShade;
………………………
………………………
………………………
………………………
………………………
………………………
constructor XPButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas:=TCanvas.Create();{这里它不认识 FCanvas}
FBaseColor:=$00DDB9B9;//$00777777;
ControlStyle:=ControlStyle-[csDoubleClicks];
Width:=85;
Height:=30;
Shade:=LoadShades(FBaseColor);
end;