[Delphi] Przekazanie parametru/zmiennej do zdarzenia

0

Mam mały problem, potrzebuję przekazać do zdarzenia OnClick przycisku, dodatkowego parametru/zmiennej typu Integer. Niestety nie mogę znaleźć nic na ten temat ;/, a wydawało mi się, że gdzieś to widziałem.

[...]
procedure btnSpeed_OnClick(Sender : TObject; i : Integer);
[...]
procedure TForma.btnSpeed_OnClick(Sender : TObject; i : Integer);
begin
// instrukcje...
end;
[...]
with TButton.Create(Forma) do
  begin
    Name := 'Button';
    Top := 8;
    Left := 5;
    Caption := 'Button';
    Parent := Forma;
    OnClick := btnSpeed_OnClick(Sender, 1); // tutaj jest problem
  end;

Właśnie przy przypisaniu procedury OnClick do zdarzenia przycisku mam problem -> co wstawić za "Sender`a"?

0

Tak to ci nie wyjdzie, zrób sobie jakaś zmienną globalną albo ewentualnie użyj tablicy.

0

Albo użyj pola Tag, potem w Senderze łatwo się do niej odwołać :)

0

Gdybym mógł użyć "Tag" to bym to zrobił. Niestety, button jest tworzony dynamicznie (i to nie jeden a kilka). Buttony te mają za zadanie modyfikację np. Labelów. Każdy Label ma np. nazwę: "Label1", "Label2"...., dlatego potrzebuje przekazać podczas tworzenia przycisku zmienną i do zdarzenia OnClick. Siłą rzeczy, nie odczytam pola Tag, dlatego, że nie wiem jaką, pełną, nazwę ma sam przycisk...
Myślę, że w miarę jasno to przedstawiłem.

0

Pole Tag możesz odczytać:

(Sender as TButton).Tag
0

Hmm.. racja, właśnie o tym zapomniałem. Dzięki za pomoc...

1 użytkowników online, w tym zalogowanych: 0, gości: 1