Einzelnen Beitrag anzeigen

Morphie

Registriert seit: 27. Apr 2008
Ort: Rahden
630 Beiträge
 
#2

Re: alle untergeordneten Fenster bearbeiten

  Alt 17. Jan 2009, 21:40
Hmmm so z.B.:

Delphi-Quellcode:
procedure SetChildsDisabled(C: TCustomControl);
var
i: integer;
begin
  for i := 0 to C.ControlCount-1 do
  begin
    C.Controls[i].Enabled:=false;
    SetChildsDisabled(TCustomControl(C.Controls[i]));
  end;
end;
Aufruf mit

SetChildsDisabled(Panel1);
  Mit Zitat antworten Zitat