Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi - button

Obsluha je pre každé tlačítko tá istá... pochopiteľne... netreba robiť pre každé tlačíttko zvlášť obsluhu, stačí jedna.
V obsluhe sa predá parameter Sender:TObject = to znamená, že vieš aké tlačítko bolo stlačené.
A keďže tam bude:

procedure TForm1.MyButtonClick(Sender: TObject);
var
  Button: TButton;
begin
  Button := Sender as TButton;                           <= práve toto je to stlačené tlačítko
  ShowMessage(Button.Caption + ' clicked');              <= zobrazí sa to čo nesie tlačítko ako titulok, vždy bude iný....
end;
No a keďže už vieš, čo presne je v titulku, môžeš s ním ďalej robiť...

čiže si môžeš uložiť titulok (caption) do premennej a túto premennú použiť ako parameter pre lHTTP.Get(tvoja_premenna);

nejak takto:

var
  Button: TButton;
  moja_premenna: String
begin
  Button := Sender as TButton;                          
  moja premenna:= Button.Caption;     

  ...
  try
    s:= lHTTP.Get(moja_premenna;
  ...
           
end;
Naozaj toto sú jednoduché veci, predávanie parametrov sú úplné základy...

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny