Alle Child-Komponenten deaktivieren

[sakura]

Zitat von Luckie:

Das ganze auf ein Panel legen bringt auch nichts.

Stimmt, aber auf D3K habe ich mal eine Lösung daüfr bereit gestellt.

Hier der Code

Delphi-Quellcode:

unit uRealPanel; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls; 

type 
  TRealPanel = class(TPanel) 
  private 
  protected 
    procedure SetEnabled(Value: Boolean); override; 
  end; 

procedure Register; 

implementation 

procedure Register; 
begin 
  RegisterComponents('gate(n)etwork', [TRealPanel]); 
end; 

{ TRealPanel } 

procedure TRealPanel.SetEnabled(Value: Boolean); 
var 
  I: Integer; 
begin 
  inherited; 
  if csDesigning in ComponentState then 
    Exit; 
  for I := 0 to Pred(ControlCount) do 
    if Controls[I] is TWinControl then 
      (Controls[I] as TWinControl).Enabled := Value; 
end; 

end.

Alles weitere auf der Seite: http://www.delphi3000.com/articles/article_2962.asp

......