Delphi - ayuda con problema

   
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- NotePlus
- Notepad mejorado
- Solitario Inglés

RE:ayuda con problema

Publicado por juancho (193 intervenciones) el 18/04/2008 20:01:46
Para el primer caso Edit1.Text := EmptyStr y un poco de ingenio y lo lograras.
Para el segundo uno de los trucos mas famosos en delphi checa este link:
http://www.q3.nu/trucomania/ftesp.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar