En este grupo En todos

Grupo de Aprendamos Delphi



Clases en delphi

juan carlos
Tecnologo en sistemas cidca (centro de...
Escrito por Juan Carlos Salazar Amaya
el 18/08/2010

Crear clases en delphi para poder simplificar el código,creando objetos para después reutilizarlos....

Aquí un pequeño ejemplo creando una barra de progreso:



Uses

Classes,Gauges;

Type

TUCLConsultar = class(TObject) // También puede ser solo class si derivas directamente de TObject

Class var

Barra:TGauge;

Private

{ Declaraciones privadas de la clase }

Public

Procedure MoverBarra(var Barra: TGauge);

// Métodos

Constructor Create(const Barra: TGauge;maximo:integer);

{ Declaraciones públicas de la clase }

End;


Implementation


{ TUClBarraProgreso }

Constructor TUCLConsultar. Create(const Barra: TGauge;maximo:integer);

Begin

Barra. MinValue:=1;

Barra. MaxValue:=maximo;

Barra. Progress:=0;


End;


Procedure TUCLConsultar. MoverBarra(var Barra: TGauge);

Begin

Barra. Progress:=Barra. Progress+1;

End;


End.


Juan Carlos Salazar Amaya
Tecnologo en sistemas cidca (centro de...
Escrito por Juan Carlos Salazar Amaya
el 18/08/2010

Esta clase es algo sencilla,quisiera ampliarla..................... Con un poco de ayuda de ustedes gracias

Juan Carlos Salazar Amaya
Tecnologo en sistemas cidca (centro de...
Escrito por Juan Carlos Salazar Amaya
el 13/09/2010

Yo tengo el objeto ya creado en modo diseño sencillo solo esta el tamaño y la pocision de este, pero tengo una clase del objeto que sirve para ampliar sus propiedades y funciones... La duda mia estoy haciendo mal por haber dos objetos despues de ejecutar la clase..

Gracias