窗体A有一个按钮Button1,B窗体有一事件TfrmCMain.Open。要怎么样才能使按下A窗体的按钮而执行B窗体的事件呢?procedure TForm1.Button1Click(Sender: TObject);
begin
TfrmCMain.Open;//这是我使用的代码,提示[错误] Undeclared identifier: 'TfrmCMain'
end; //[致命错误] Could not compile used unit 'Unit1.pas'procedure TfrmCMain.Open;
var
a:string;
begin
a:='hhhbbbccc'
end;
begin
TfrmCMain.Open;//这是我使用的代码,提示[错误] Undeclared identifier: 'TfrmCMain'
end; //[致命错误] Could not compile used unit 'Unit1.pas'procedure TfrmCMain.Open;
var
a:string;
begin
a:='hhhbbbccc'
end;
B窗体单元;
procedure TForm1.Button1Click(Sender: TObject);
begin
frmCMain.Open;//这里不要直接使用窗体类,而应使用窗体实例,所以改成了在B窗体单元声明了的frmCMain
end;
试试吧,这样就好了
type
AA= ^BB;//这里的^代表什?有什么作用?
B= record
CC: string[50];
DD: Integer;
end;
var
GG: AA;当我使用
var
HH: GG;
begin
HH.CC:='测试' ;//这里都没问题
HH.DD:=7000' ;//为什么这里出错了呢?[错误] Incompatible types: 'Integer' and 'String'
end;
这帖有两个问题,希望帮忙解答,我初学DELPHI很多不懂,分不多,以后有分了,全部送上!
第二个是:
HH.DD:=7000 ' ;//为什么这里出错了呢?[错误] Incompatible types: 'Integer ' and 'String '
7000不能加引号,因为HH.DD为整形,所以所赋值也改须为整型