Einzelnen Beitrag anzeigen

brechi

Registriert seit: 30. Jan 2004
823 Beiträge
 
#8

AW: CodeRedirect von Protected-Methoden

  Alt 4. Apr 2012, 18:38
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
  Mit Zitat antworten Zitat