Delphi

Solo disponible en BuenasTareas
  • Páginas : 3 (627 palabras )
  • Descarga(s) : 0
  • Publicado : 17 de octubre de 2010
Leer documento completo
Vista previa del texto
PESTAÑA PANTALLA CELULAR

unit PantallaPrincipal;

interface

//Agregar la libreria de la clase, en este caso UCelular
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms,
Dialogs, StdCtrls, UCelular;

type
TForm1 = class(TForm)
Edit1: TEdit;
btnLlamar: TButton;
btnColgar: TButton;
btnContactos: TButton;
btnUno: TButton;btnDos: TButton;
btnTres: TButton;
btnCuatro: TButton;
btnCinco: TButton;
btnSeis: TButton;
btnSiete: TButton;
btnOcho: TButton;
btnNueve: TButton;
btnApagar:TButton;
btnAsterisco: TButton;
btnCero: TButton;
btnMichi: TButton;
procedure btnLlamarClick(Sender: TObject);
procedure btnColgarClick(Sender: TObject);
procedurebtnContactosClick(Sender: TObject);
procedure btnUnoClick(Sender: TObject);
procedure btnDosClick(Sender: TObject);
procedure btnTresClick(Sender: TObject);
procedurebtnCuatroClick(Sender: TObject);
procedure btnCincoClick(Sender: TObject);
procedure btnSeisClick(Sender: TObject);
procedure btnSieteClick(Sender: TObject);
procedure btnOchoClick(Sender: TObject);procedure btnNueveClick(Sender: TObject);
procedure btnApagarClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedureFormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
//1ero van los atributos
//2do van los metodos
//3ero van las funciones (parael caso de Private y Public)

//esta referencia nos sirve para llamar a los objetos de la clase Celular
objCelular : TCelular;

procedure Mostrar();

//function Mostrar() :Integer;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnLlamarClick(Sender: TObject);
begin
//Al hacer clic en llamar...
tracking img