oder du machst dir eine eigene
Unit in der Art (musst dir dann jedoch die Controls alle einmal selsbt erstellen und als letztes einbinden):
Delphi-Quellcode:
unit Unit17;
interface
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls;
type
TEdit =
class(StdCtrls.TEdit)
public
procedure SetEnabled(Value: Boolean);
override;
end;
TForm17 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure NotifyEnabled(_Control: TControl);
end;
var
Form17: TForm17;
implementation
{$R *.dfm}
procedure TForm17.Button1Click(Sender: TObject);
var
C: TControl;
begin
C := FindComponent(Format('
Edit%d', [Random(2) + 1]))
as TControl;
C.Enabled :=
not C.Enabled;
end;
procedure TEdit.SetEnabled(Value: Boolean);
begin
inherited;
Form17.NotifyEnabled(Self)
end;
procedure TForm17.NotifyEnabled(_Control: TControl);
begin
caption := _Control.
Name + '
' + BoolToStr(_Control.Enabled, True);
end;
geht dann auch mit ueberschriebenen Funktionen