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 …ver más…

PESTAÑA UNIDADCONTACTO

unit UnidadContacto;

interface

Type TContacto = class

private NombreContacto : string; TelefonoContacto : string; CorreoContacto : string; FotoContacto