Sie will aber nicht den Inhalt, sondern den Namen der Komponente, die gedrückt wurde, oder?
Ich nehme mal an, du verwendest bei mehreren Labels die gleiche OnClick. (Sonst wüsstest Du ja den Name)
Der Name ist in der Eigenschaft .Name enthalten.
Nur hast Du ja 'nur' den Sender, und Sender.Name funktioniert leider nicht.
Also mußt Du für alle Typen die dieses OnClick aufrufen folgendes machen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.IrgendwasClicked(Sender: TObject);
begin
If Sender is TLabel then
Edit1.Text := (Sender as TLabel).Name;
If Sender is TButton then
Edit1.Text := (Sender as TButton).Name;
// eventuell andere aufrufende ObjektKlassen hinzufügen
end; |
Wobei es egal ist wieviele Labels oder Buttons das aufrufen.
Den Rest kannst wie gesagt mit
pos,
copy oder sonstigem erledigen.
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."
