Question

delphi我用Tbitbtn做个1的按钮,想实现当我按下这个按钮时,TEDIT就显示为1

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:='1';
end;

追问

如果我按两下想输出的11该怎么做呢，麻烦解答下，谢谢

追答

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:='1'+Edit1.Text;
end;

你的需求不明确。