Saludos amigos, gracias por ayudarmen, pude terminar mi pequeño programita con exito, ahora me gustaria saber si alguien sabe el codigo, para hacer dinamico el progressbar, y asi quede animado, para simular que esta cargando un programa o lo que sea....
Posdata: Que no sea el ejemplo que viene incluido en delphi 7.0, es que no lo entiendo por que soy pollo....algo que sea sencillo de entender....
Gracias por su atencion prestada.y asi me quedo el codigo de mi programita.
Código Delphi
[-]
unit ufrmsegundo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Mask;
type
Tfrmsegundo = class(TForm)
MainMenu1: TMainMenu;
Operaciones1: TMenuItem;
icoSuma: TMenuItem;
icoResta: TMenuItem;
icoMultiplicacion: TMenuItem;
icoDivision: TMenuItem;
icoSalir: TMenuItem;
StaticText1: TStaticText;
StaticText2: TStaticText;
lblEdit1: TEdit;
lblEdit2: TEdit;
StaticText3: TStaticText;
Button1: TButton;
Help1: TMenuItem;
About1: TMenuItem;
procedure icoSumaClick(Sender: TObject);
procedure icoRestaClick(Sender: TObject);
procedure icoMultiplicacionClick(Sender: TObject);
procedure icoDivisionClick(Sender: TObject);
procedure icoSalirClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
private
public
end;
var
frmsegundo: Tfrmsegundo;
resul : double;
implementation
{$R *.dfm}
procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
var x,y :real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x+y);
end;
procedure Tfrmsegundo.icoRestaClick(Sender: TObject);
var x,y : real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x-y);
end;
procedure Tfrmsegundo.icoMultiplicacionClick(Sender: TObject);
var x,y :real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x*y);
end;
procedure Tfrmsegundo.icoDivisionClick(Sender: TObject);
var x,y : real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x/y);
end;
procedure Tfrmsegundo.icoSalirClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tfrmsegundo.Button1Click(Sender: TObject);
begin
ShowMessage(FloatToStr(resul));
end;
procedure Tfrmsegundo.About1Click(Sender: TObject);
begin
ShowMessage('Creado Por: Ing. John Quintero / / Elaborado en: Delphi 7.0!');
end;
end.