процедура для TSpeedButton

[filter2030]

Товарищи помогите пожалуйста! Надо решить такую задачу: на форме есть 5 кнопок типа TSpeedbutton. Написать процедуру (одну для всех кнопок), которая при нажатии на любую из кнопок выводит в ее свойство Caption номер нажатой кнопки. Номера должны выводиться в порядке нажатия, то есть, например, если первой нажата четвертая от начала кнопка, то ее Caption должен содержать цифру 1.

[Valio]

У них есть такая штука как Sender.

[Pein95]

обявите глобальную переменную и напишыте чтото типа етого

i:=i+1;
speedbutton.caption:=inttostr(i);

[werder4u]

Тоесть тебе, я так понимаю, надо в кепшени загнать цифри в каком порядке били нажати ети кнопки? Да?

[evg_m]

на форме есть 5 кнопок типа TSpeedbutton

которая при нажатии на любую из кнопок выводит в ее свойство Caption номер нажатой кнопки

а они разве пронумерованы?

У них есть такая штука как Sender.

(sender as TSpeedButton).Name;
(sender as TSpeedButton).Tag;

[Sparkman]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     inc(n);
     TSpeedButton(Sender).Caption:=IntToStr(n);
end;

end.

Для события OnClick всех спидбатонов нужно назначить процедуру SpeedButton1Click.

[d3qoot]

Тыкните, пожалуйста, почитать про Sender, и про TSpeedButton, TButton и вообще про всё, где есть первая T...Погуглил, не нашёл, либо не правильно спрашивал.

[Sparkman]

Сообщение от d3qoot

Тыкните, пожалуйста, почитать про Sender, и про TSpeedButton, TButton и вообще про всё, где есть первая T...Погуглил, не нашёл, либо не правильно спрашивал.

набираете искомый контрол, например, TButton, затем нажимаете сочетание клавиш Ctrl+F1.