Witam,
stworzyłem dynamicznie komponent TRenctangle a na nim komponent TLabel.
Gdy klikam w komponent TRectangle wywołuje mi się metoda OnClick, w której chciałbym uzyskać teskt z labela.
Jak mogę to zrobić ?
while(NOT(FDQuery2.Eof)) do
begin
tytul := FDQuery2.Fields[0].AsString;
tlo := TRectangle.Create(listview);
tlo.Parent := listview;
tlo.OnClick := klikniecie_tla;
napis:=TLabel.Create(tlo);
napis.Parent:=tlo; // rodzic przycisku
napis.Text := tytul;
FDQuery2.Next;
end;
procedure Form1.klikniecie_tla(Sender: TObject);
begin
...
end;