L
li__lu
Unregistered / Unconfirmed
GUEST, unregistred user!
在Form1上自定义了一个过程 Form1.procedure setting();
在Form1.button1click中直接调用不了
应当如何解决？
在Form1.button1click中直接调用不了
应当如何解决？
D
del520
Unregistered / Unconfirmed
GUEST, unregistred user!
先申明在
private中
Procedure Seting();
然后
Tform1.Procedure setting();
begin
end;
private中
Procedure Seting();
然后
Tform1.Procedure setting();
begin
end;
L
li__lu
Unregistered / Unconfirmed
GUEST, unregistred user!
声明过了
L
li__lu
Unregistered / Unconfirmed
GUEST, unregistred user!
等待
X
xianjun
Unregistered / Unconfirmed
GUEST, unregistred user!
都不知你在等待什么！
调用不了出什么错？
就象下面这样，没有调用不了的。[
]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure setting();
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Setting;
end;
procedure TForm1.setting;
begin
ShowMessage('My Setting() Procedure!');
end;
end.
调用不了出什么错？
就象下面这样，没有调用不了的。[
]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure setting();
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Setting;
end;
procedure TForm1.setting;
begin
ShowMessage('My Setting() Procedure!');
end;
end.
G
goease
Unregistered / Unconfirmed
GUEST, unregistred user!
不是啦，加入过程名称是setting
在Form1中。那么
声明
public
procedure setting;
implementation
TForm1.procedure setting;
begin
end;
在Form1中。那么
声明
public
procedure setting;
implementation
TForm1.procedure setting;
begin
end;
L
li__lu
Unregistered / Unconfirmed
GUEST, unregistred user!
goease,你的方法我试过
不行啊
不行啊
L
leizengzheng
Unregistered / Unconfirmed
GUEST, unregistred user!
给过程换个名称,try again
A
antic_ant
Unregistered / Unconfirmed
GUEST, unregistred user!
xianjun的就对呀，为什么不试试
S
shbjkl
Unregistered / Unconfirmed
GUEST, unregistred user!
给过程换个名称[8D]
M
maplesw
Unregistered / Unconfirmed
GUEST, unregistred user!
如果过程的参数没错的话，先换个名称，xianjun的方法再试
P
panjf
Unregistered / Unconfirmed
GUEST, unregistred user!
过程定义错了吧
>>Form1.procedure setting();
应该这样写
procedure TForm1.Setting;
>>Form1.procedure setting();
应该这样写
procedure TForm1.Setting;
L
li__lu
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。