Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: TObjekt ???

   
    by sniper_w, 28. Mär 2005
  Richtig. Dann wird auch den code so aussehen :wink: :
  
  procedure TForm1.ButtonXClick(Sender: TObject);
  begin
  case TComponent(Sender).Tag of // TButton(Sender).Tag
  1: ShowMessage('Button1');
  2: ShowMessage('Button2');
  3: ShowMessage('Button3');
  ...
  end;