实现部分改成这样试试:
procedure Tform1.togglecheck(Item:TMenuItem);
begin
Item.Checked:=Not Item.Checkd;
end;
procedure Tform1.togglecheck(Item:TMenuItem);
begin
Item.Checked:=Not Item.Checkd;
end;
解决方案 »
- 如何用Delphi 设置 Excel 中 批注 的长度和宽度???
- 为什么DBGRID不显数据~~初学DELPHI,大家指教~~
- 如何在DBGRID中获取一个已知行的各个字段的数据
- 请问:怎么才能让DBGrid中的列宽不变,(如果不约束的话是随着数据库中的长度来变的吧)?
- 第一次来,找点资料,斑竹手下留情!!
- 招聘信息
- 如何在richedit(或其它可显示文本块的控件)中实现类似文字超链接的点击事件,但不是打开网页,而是产生相当于按钮onclick的事件
- 有关ListView的简单问题
- ****小问题,但是急急急***
- 怎样屏蔽WINDOWS NT4.0系统键。
- 一个小问题?
- 谁能给我一个套打的程序,谢谢,我急用,送分
实现部分表明这是一个函数,并不是类中的一个方法。申明跟实现不统一,自然有这个编译错误。不要乱骂Delphi哦。
1。将这个过程定义为TForm1定义成类成员过程。也就是楼上的改法。
2。将这个过程定义为一个单元的内部的过程。这时,去掉你的声明部分。
3。如果你想让别的单元也可引用这个过程,在interface区声明这个过程,
注意:不是写在Tform1或其他类的声明中。
代码如下:
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure togglecheck(Item:TMenuItem);
end;var
Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.togglecheck(Item: TMenuItem);
begin
Item.Checked:=Not Item.Checkd;
end;
FORM1= CLASS(TFORM)
。。
PRIVATE
procedure togglecheck(Item:TMenuItem);。END
procedure TFORM1。togglecheck(Item:TMenuItem);
BEGIN
Item.Checked:=Not Item.Checkd;END