モナーの *やさしい* Delphi質問スレ Ver3
■ このスレッドは過去ログ倉庫に格納されています
0684デフォルトの名無しさん
NGNGForm1 上にあるコンポーネントの Owner はすべて Form1 だよ
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Comp:TComponent;
begin
for i := 0 to ComponentCount-1 do begin
Comp := Components[i];
if (Comp is TControl) then
if (Comp as TControl).Parent = Panel1 then
(Comp as TControl).Enabled := false;
end;
end;
■ このスレッドは過去ログ倉庫に格納されています