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
