Utworzyłem dynamicznie pięć komponenetów (TCheckbox). Jak mogę się dowiedzieć który z nich wygenerował zdarzenie OnClick. (Który z nich został zaznaczony przez użytkownika). Mój adres: [email protected]
Kod tworzący te komponenty jest przedstawiony poniżej:
var
List: TList; // type TList = class(TForm)
ilosc_odpowiedzi:integer;
odpow:array[1..20] of TCheckBox;
item1:TListItem;
//.............
//............
procedure TList.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
j,i:integer;
begin
item1:=item;
ilosc_odpowiedzi:=5;
for j:=1 to ilosc_odpowiedzi do
begin
odpow[j]:=TCheckBox.Create(List);
odpow[j].Parent:=List;
odpow[j].Caption:='Tekst nr '+IntToStr(j);
odpow[j].Top:=80+35*j;
odpow[j].Left:=180;
odpow[j].Show;
odpow[j].OnClick:=MyOnClick;
end;
end;
//Przypominam o istnieniu tagow i
służacych do pisania kodu...=Moderator