Eine Procedure auf 22 Buttons...

[hoika]

Hallo,

Tag im Object-Inspector setzen.
cb17 bekommt also die 17

Dann eine neue Prozedur definieren,
also im Interface + im Implementation

Delphi-Quellcode:

procedure TForm1.OnButtonClick(Sender : TObject); 
begin
  with Sender As TButton do
  begin
    TuWas(Tag);
  end;
end;



procedure TForm1.TuWas(Nummer: Integer);
begin
end;

Diese im Object-Inspector Prozedur beim OnClick
der einzelnen Buttons auswähhlen (über die ComboBox)


Heiko