(Sender as TLMDEdit) wie variabel gestalten

[Thorben_K]

Omg man sollte keine texte schreiben wenn man zu müde ist...

ich meinte das TCaption eine Eigenschaft von TControl ist, und die TControl eine überklasse von TEdit usw. So das wann man ein TControl per Parameter "verlangt" wenn alles was man braucht (z.B. Label, Edit oder Buttons) übergeben kann, um so die Caption bzw den Text zu bearbeiten

sry für mein dummes Deutsch gestern nacht

PS: Muss halt irgendwie raus finden ob jetzt der "text" sichbar ist (Edit) oder die Caprion (Label, GrpupBox usw)

BSP:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    procedure AAA(Comp : TControl; Text : String);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AAA(Comp : TControl; Text : String);
begin
  if Comp is TLabel                                        //Prüfen was ein Type Comp ist
  then (Comp as TLabel).Caption := Text                    //Dann casten wir das Object und weisen den Wert zu
  else (Comp as TEdit).Text := Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AAA(Label1, 'Test');
end;

end.

EDIT: Du kannst natürlich auch TComponent per Parameter übergeben, ich halt TControl aber für besser