(1)参考Delphi的MDI向导。 (2)参考Delphi的MDI向导,在它的Mdi子窗口上放上Image1。procedure TMainForm.Button1Click(Sender: TObject); var i: Integer; begin for I := MDIChildCount-1 downto 0 do if Self.MDIChildren[I].Active then ShowMessage(IntToStr(Self.MDIChildren[I] as TMDIChild).Image1.height)); end;
thanks to ether!能不能给我封装一个函数?比如AA函数,然后我ShowMessage(IntToStr(AA.Image1.height))就可以了还有怎样激活MDIChild窗口?
to ether:好像ShowMessage(IntToStr(Self.MDIChildren[I] as TMDIChild).Image1.height)); 中少了个括号 还有这不能取得Image1.height的值
(2)参考Delphi的MDI向导,在它的Mdi子窗口上放上Image1。procedure TMainForm.Button1Click(Sender: TObject);
var
i: Integer;
begin
for I := MDIChildCount-1 downto 0 do
if Self.MDIChildren[I].Active then
ShowMessage(IntToStr(Self.MDIChildren[I] as TMDIChild).Image1.height));
end;
中少了个括号
还有这不能取得Image1.height的值