无
无头骑士
Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么样判断PANEL中是否有一个FORM在存呢？如果是其它的控件呢？
Z
zbwsh
Unregistered / Unconfirmed
GUEST, unregistred user!
with (sender as Panel) do
begin
for i:=0 to ControlCount -1 do
begin
if Controls is tform then//判断PANEL中是否是TFORM
showmessage((Controls as tform).caption);
if Controls is tedit then//是否是其它的控件
(Controls as tedit).Clear;
end;
end;
begin
for i:=0 to ControlCount -1 do
begin
if Controls is tform then//判断PANEL中是否是TFORM
showmessage((Controls as tform).caption);
if Controls is tedit then//是否是其它的控件
(Controls as tedit).Clear;
end;
end;
W
wr960204
Unregistered / Unconfirmed
GUEST, unregistred user!
zbwsh说得对所有TControl都有个Controls属性是个数组,里面装的是以这个控件本身为容器的
控件的集合.
控件的集合.
无
无头骑士
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.IsFormHave;
begin
with FormPanel do
begin
if Controls[0] is TChildForm then
// Controls[0].close;
Controls[0].Free;
Controls[0].close;
end;
end;
如果是话，我想释放，可是Controls[0].close;这样不行。请教各位兄台！！
begin
with FormPanel do
begin
if Controls[0] is TChildForm then
// Controls[0].close;
Controls[0].Free;
Controls[0].close;
end;
end;
如果是话，我想释放，可是Controls[0].close;这样不行。请教各位兄台！！
卡
卡色
Unregistered / Unconfirmed
GUEST, unregistred user!
TChildForm(Controls[0]).close
Controls[0]是TControl那有什么CLOSE
Controls[0]是TControl那有什么CLOSE
D
datou
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.IsFormHave;
begin
with FormPanel do
begin
if Controls[0] is TChildForm then
(Controls[0] as TChildForm).close;
end;
end;
begin
with FormPanel do
begin
if Controls[0] is TChildForm then
(Controls[0] as TChildForm).close;
end;
end;
M
Milpas
Unregistered / Unconfirmed
GUEST, unregistred user!
TChildForm(Controls[0]).close;[
]
]
无
无头骑士
Unregistered / Unconfirmed
GUEST, unregistred user!
结题了！！！！分已散！
