procedure Tfmain.back1Click(Sender: TObject);
begin
if application.FindComponent('fback')=nil then // 这一行什么意思
begin
back:=tfback.create(application) ;
back.Show;
end
else
if not back.Showing then // 这一行什么意思
back.Show;
end;解释一下 这两行 谢谢。
begin
if application.FindComponent('fback')=nil then // 这一行什么意思
begin
back:=tfback.create(application) ;
back.Show;
end
else
if not back.Showing then // 这一行什么意思
back.Show;
end;解释一下 这两行 谢谢。
如果没有找到TBACK的类的实例
if not back.Showing then 如果找到这个实例却没有显示出来,然后
如果没有找到lei为Tback的控件if not back.Showing then
如果控件back的visible为false