[Delphi] Przekazanie parametru/zmiennej do zdarzenia

Odpowiedz Nowy wątek
2006-07-23 02:58
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"?

Pozostało 580 znaków

2006-07-23 09:02
rol
0

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

Pozostało 580 znaków

2006-07-23 09:04
0

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

Pozostało 580 znaków

2006-07-23 11:04
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.

Pozostało 580 znaków

2006-07-23 11:14
0

Pole Tag możesz odczytać:

(Sender as TButton).Tag

Pozostało 580 znaków

2006-07-23 11:29
0

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

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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