Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: Eine Procedure auf 22 Buttons...

  Alt 3. Nov 2009, 07:06
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
Heiko
  Mit Zitat antworten Zitat