@ Mavarik
Meine Auffassung, dass >self< sich auf das Formular bezieht ist wohl doch richtig:
Delphi-Quellcode:
procedure TWinForm.TextBox3_Enter(sender: System.Object; e: System.EventArgs);
begin
Self.Width := 500;
Self.BackColor := System.Drawing.Color.Red;
end;
Hier wird die Breite des
Formulars und dessen BackColor verändert.
@ Hawkeye219
Dein Beispiel klappt wunderbar:
Delphi-Quellcode:
procedure TWinForm.TextBox1_Enter(sender: System.Object; e: System.EventArgs);
begin
(Sender as TextBox).Width := (Sender as TextBox).Width*2;
(Sender as TextBox).Text := (Sender as TextBox).Tag.ToString;
end;
Das klappt auch, wenn mehrere TextBoxen die gleiche Prozedur verwenden.
Ein Problem ist aber doch noch aufgetaucht:
Delphi-Quellcode:
procedure ChangeColor;
begin
TextBox3.BackColor := System.Drawing.Color.Yellow; // Fehler: nicht deklarierter Bezeichner TextBox3 ...
Self.TextB.... // Fehler: nicht deklarierter Bezeichner
end;
Wie kann ich denn auf die Eigenschaften einer Komponente von ausserhalb zugreifen?
Gruß Jürgen