一个初级的问题,主帮忙指点!
=================代码=====================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TMainForm = class(TForm)
BitShow: TSpeedButton;
BitHide: TSpeedButton;
BitExit: TSpeedButton;
SBLeft: TBitBtn;
SBMid: TBitBtn;
SBRight: TBitBtn;
BtDisplay: TButton;
procedure FormCreate(Sender: TObject);
procedure BitShowClick(Sender: TObject);
procedure SBLeftClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
MainForm.Caption:= '按钮实例 ';
MainForm.Width:=480;
MainForm.Height:=380;
MainForm.Top:=150;
MainForm.Left:=300;//设定窗体尺寸和大小
//下面设置3个加速按钮的属性
BitShow.Kind:=bkOK;
BitShow.Caption:= '显示 ';
BitShow.Layout:=blGlyphLeft;
BitShow.Default:=true;
BitHide.Kind:=bkNo;
BitHide.Caption:= '隐藏 ';
BitExit.Kind:=bkAbort;
BitExit.Caption:= '退出 ';
BitExit.Cancel:=true;
BitExit.Layout:=blGlyphRight;
//下面设置3个位图按钮的属性
SBLeft.Visible:=false;
SBMid.Visible:=false;
SBRight.Visible:=false;
// BtDisplay.Visible:=false;
SBLeft.Caption:= '左边 ';
SBMid.Caption:= '中间 ';
SBRight.Caption:= '右边 ';
SBLeft.GroupIndex:=1;
SBMid.GroupIndex:=1;
SBRight.GroupIndex:=1; //设为同一组,用于模拟单选按钮
//下面设置普通按钮的属性
BtDisplay.Visible:=false;
BtDisplay.Caption:= '未选中 ';
end;
procedure TMainForm.BitShowClick(Sender: TObject);
begin
SBLeft.Visible:=true;
SBMid.Visible:=true;
SBRight.Visible:=true;
BtDisplay.Visible:=true;
end;
procedure TMainForm.SBLeftClick(Sender: TObject);
begin
BtDisplay.Caption:= '选中左边 ';//指示那个按钮被选择
end;
end.
======================错误======================
[错误] Unit1.pas(42): Undeclared identifier: 'Kind '
[错误] Unit1.pas(45): Undeclared identifier: 'Default '
[错误] Unit1.pas(50): Undeclared identifier: 'Cancel '
[错误] Unit1.pas(60): Undeclared identifier: 'GroupIndex '
我想应该是没有用Uses引入相关属性的一些系统单元所造成的!
请帮我看看,这些属性都需要引入哪些系统单元呢?
顺便问一下,有没有相关属性 与 系统单元的对照表呢??
有的话,请发一份给我,谢谢!
[解决办法]
下面是TSpeedButton的所有公布的属性，找一下有没有 Kind、Default、Cancel
published
property Action;
property AllowAllUp: Boolean read FAllowAllUp write SetAllowAllUp default False;
property Anchors;
property BiDiMode;
property Constraints;
property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
property Down: Boolean read FDown write SetDown default False;
property Caption;
property Enabled;
property Flat: Boolean read FFlat write SetFlat default False;
property Font;
property Glyph: TBitmap read GetGlyph write SetGlyph;
property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;
property Margin: Integer read FMargin write SetMargin default -1;
property NumGlyphs: TNumGlyphs read GetNumGlyphs write SetNumGlyphs default 1;
property ParentFont;
property ParentShowHint;
property ParentBiDiMode;
property PopupMenu;
property ShowHint;
property Spacing: Integer read FSpacing write SetSpacing default 4;
property Transparent: Boolean read FTransparent write SetTransparent default True;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;
同样地找一下TBitBtn有没有 GroupIndex属性
[解决办法]
有没有相关属性 与 系统单元的对照表呢??
有的话,请发一份给我,谢谢!
-------------------------------------
不用发给你的，Ctrl + 鼠标左键 单击代码里的类名，就会打开相应的单元，你就看到这个类的属性和方法的列表了
