ayuda con problema
Publicado por sonny (5 intervenciones) el 18/04/2008 09:51:41
hola a todos este es un pequeño programa soy novato pero quiero aprender mucho de este lenguaje.........tengo una preguntica quiero añadirle un boton el cual al presionarlo me borre los contenidos y me deje hacer la operacion nuevamente...... el boton podria llamarse NUEVAMENTE...otra preguntita quiero que al digitar el numero pueda presionar enter y este enseguida vaya al otro edit para digitar el segundo y asi pase al de suma....esto es por si el usuario tiene el mouse dañado...gracias de antemano ..
el codigo:
unit sumadosnum;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
sumar: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
cerrar: TButton;
procedure sumarClick(Sender: TObject);
procedure cerrarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.sumarClick(Sender: TObject);
var
num1,num2,r:integer;
begin
num1:=strtoint(edit1.text);
num2:=strtoint(edit2.text);
r:=num1+num2;
label4.caption:=inttostr(r);
end;
procedure TForm1.cerrarClick(Sender: TObject);
begin
close
end;
end.
el codigo:
unit sumadosnum;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
sumar: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
cerrar: TButton;
procedure sumarClick(Sender: TObject);
procedure cerrarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.sumarClick(Sender: TObject);
var
num1,num2,r:integer;
begin
num1:=strtoint(edit1.text);
num2:=strtoint(edit2.text);
r:=num1+num2;
label4.caption:=inttostr(r);
end;
procedure TForm1.cerrarClick(Sender: TObject);
begin
close
end;
end.
Valora esta pregunta


0