feladó TObject

Sender: TObject

Hogyan kell használni a feladó paraméter: TObject, amelyet át eseménykezelõkkel szinte minden alkatrészt.
Megértem, hogy szükség van, hogy melyik alkatrész generált esemény. (Ha rossz - csípés)

Van több komponensből (eseménykezelőkkel osztoznak).
Például számos gombok egy eseménykezelő:

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik

Hogyan tudhatok meg ebben az eljárásban, hogy melyik gombot okozott a felvezető?
De általában azt kell rendelni egy string változó az egyik Property komponens generált esemény.
Csak soha nem találtam példát, ahol ez alkalmazható, hogy megnézze.
Írja hogyan kell csinálni.

eljárás TForm1.Button1Click (Sender: TObject);
var btButton. TButton
kezdődik
ha a feladó TButton majd
kezdődik
btButton: = TButton (feladó);
ha btButton = gombbal 1, akkor
.
más
ha btButton = Button2 majd
.
más
.
vég

Lehetőség van, és könnyű, akkor pontosan tudja, mit fog esni, hogy a felvezető?

ha Küldő = Button1 majd.

2 Real
Hozok létre egy komponens futásidejű, az alábbiak szerint:
gombok: array [1..10] az TButton;
.

ha tudok ebben az esetben össze az alábbiak szerint:
i: = 1-től 10 do
kezdődik
ha a feladó = gombok [i], majd. ;
végén;
?

vagy, akkor is alkalmazni kell az ingatlan egy komponens nélkül nevüket, és kizárólag a feladó, hogy milyen ügyben.
var z: integer;
.

PS Tudom, hogy az utolsó sor érvénytelen, és nem működik, de csak meg akartam mutatni, mit jelent.

> Gombok [i] .create (ön);

furcsa létrehozza őket

> I ebben az esetben tudom összehasonlítani az alábbiak szerint:
> Az i: = 1-től 10 do
> kezdődik
> Amennyiben a feladó = gombok [i], majd. ;
> End;
>.

képes

> Z: = sender.tag;

1 z: = (küldő, mint TButton1) .Tag
2 z: = TButton (feladó) .Tag // teljes biztonsággal

Nos, nem emlékszem pontosan, hogy megírtam. A szöveget viszont nem.
Különben is, én csak a közelmúltban kezdtek próbál létrehozni valamit a futás, így tudott hibázni nélkül szövegben.
És én gomb például hi, valójában ez a másik komponens, de a lényeg ugyanaz marad, de valami ilyesmi.

> 1 z: = (küldő, mint TButton1) .Tag
> 2 z: = TButton (feladó) .Tag // teljes biztonsággal

És erre nagyon köszönöm. Én ezt a lehetőséget, és érdekel.
Csak mit jelent a „teljes bizalmát”. Ie mi?

Feladó hogy pontosan TButton
Már elkészült az út felfelé
ha a feladó TButton majd Lala más bla.

A helyzet olyan, hogy a processzor is lógott az esetben a halom alkatrészek, sőt, az alkatrészek nem csak a TButton
és a speciális eseteket, és ez lesz
ha Küldő = TButton majd

És a többi cikkek ebben a fejezetben olvasható - sooo sok érdekes fog összegyűlni.

PS: ismét bocsánatot kérünk minden ugyanazt a szöveget össze minden héten. De én továbbra is megtenni, mert úgy gondolja, igaza van.