inserir numeros atravez de botoes

[Fábio Leandro 0]

Olá pessoal, estou querendo criar uma calculadora que mostre os numeros atravez dos botões

 

ai eu tenho que clicar no botão do numero para este ser inserido no memo.

 

igual essas do windows, so que eu tenho que inseri-las num memo, como faço para inserir os numeros atravez dos botões sem que um não substitua o outro?

 

isso acontece quando eu uso memo.text

 

e quando eu uso memo.seltext, ai ele inserir os numeros só que antes dos que ja estava la, sendo que eles tem que ir depois

 

me ajudem pessoal, passo a passo como resolver isso, uma vez que sou iniciante no delphi

 

 

muito obrigao

[rvlira 0]

Não entendi muito bem o que você está querendo, mas veja se isso resolve:

 

Coloque dez botões no form. Preenche em cada um os números de 1 a 0.

Preencha a propriedade Tag de cada botão com o número que você colocou no caption.

No OnClick do botão você coloca o seguinte código:

 

Memo1.Text := Memo1.Text + IntToStr(TButton(Sender).Tag);

 

Agora faça com que todos os botões executem essa mesma procedure no OnClick.

Acho que isso já resolve. Veja se é isso e qualquer coisa volte a postar aqui.

 

t+!

[marcio.theis 3]

Pode fazer o seguinte:

 

Memo1.Text:=Memo1.Text + TBitBtn(Sender).Caption;

Vai pegar o texto que já tem no memo e adicionar o valor no final, no caso criei um pequena procedure que é atribuída ao evento OnClick de todos os botões, então ele pega o Caption do botão e atribui no memo.

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
	Memo1: TMemo;
	BitBtn1: TBitBtn;
	BitBtn2: TBitBtn;
	BitBtn3: TBitBtn;
	procedure InsereNumeroMemo(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.InsereNumeroMemo(Sender: TObject);
begin
Memo1.Text:=Memo1.Text + TBitBtn(Sender).Caption;
end;

end.