• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Sender - TButton.Caption

одной процедурой обрабатывается несколько кнопок от которых мне нужно получить Caption
попробовал 3 варианта и в каждом получаю ошибку.. 

procedure clickButCal (Sender: Tobject);
var
sButt:TButton;
begin
  sButt:=TButton(Sender);
  Form1.Edit1.Text:=Form1.Edit1.Text + sButt.Caption;
end;
procedure clickButCal (Sender: Tobject);
var
sButt:TButton;
begin
  sButt:=Sender As TButton;
  Form1.Edit1.Text:=Form1.Edit1.Text + sButt.Caption;
end;
procedure clickButCal (Sender: Tobject);
begin
  Form1.Edit1.Text:=Form1.Edit1.Text + (Sender As TButton).Caption;
end;
  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: Sender - TButton.Caption

procedure SetText(Sender: TObject);
begin
  Form1.Edit1.Text := Form1.Edit1.Text + ' '+TdbButton(Sender).Caption;
end;

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;

begin
end.
Системы безопасности в Белгороде

vovka3003's Website

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Sender - TButton.Caption

Спасибо!