专家请答?
kek 2000-08-21 09:43:00 fsMDIChild窗口和fsMDIChild窗口的name分别是main,achild
fsmdichild窗口的类名是lchild
achild窗口上有两个控件:memo1,ProgressBar1(进度条)
main窗口上有两个button
achild的原代码:
...
private
{ Private declarations }
public
procedure run1;
procedure open(const Name: string);
{ Public declarations }
end;
...
procedure Tachild.open(const Name: string);
begin
Caption := ExtractFileName(Name);
memo1.Lines.LoadFromFile(Name);
end;
procedure Tachild.run1;
var i:integer;
begin
for i:=0 to 100 do
ProgressBar1.Position:=i;
end;
main的原代码:
.....
procedure Tmain.button1Click(Sender: TObject);
begin
if opd1.Execute then //opd1是打开对话框
with Tlchild.Create(Self) do
open(opd1.FileName); //这过程调用完全正常
end;
procedure Tmain.button2Click(Sender: TObject);
begin
achild.run1; //就是这过程调用不正常,不知问题出在哪?好象是用类名找不到
end;