Procedures Genericos con Parametros de Controles....
 

Buenas Amigos....

Como el titulo dice lo que quieero hacer es procedures que me permitan hacer "cosas" sobre controles diversos .... por ejemplo quiero hacer un procedure que llene un Tcombobox con elementos N , la idea es que yo defino el procedure y como parametro lleva el comboBox al que quiero asignar los valores .... intento con :

Código Delphi [-]
Procedure llenar_combo(Combo:tcombobox);
begin

.........
....

end;

el problema es que no acepta el tipo TcomboBox asi mismo me gustaria con consultas y tablas

Código Delphi [-]
Procedure lo_que_sea(consulta:TdataSet);
begin

.........
....

end;

y da error ...

La pregunta es cual es el "tipo" de parametro correcto en estos casos. ......



Gracias por adelantado ......

Código Delphi [-]
procedure Ocultar(Combo: TComboBox);
begin
 Combo.Visible := False;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Ocultar(ComboBox1);
end;

Que extraño a mi me funcionó siempre a la perfección... será que es la version de Delphi, o que estas haciendo algo mal???

No olvides los conceptos de privado, protegido y publico, en la programación orientada a objetos, talvez por allí viene el problema.

Saludos.

Estoy de acuerdo con cHackAll, por allí debe ser el problema, aún asi si nos dijeras el error que te muestra, quizá sea mas sencillo entender lo que te sucede.

Este es el Error .....
 

procedure TForm1.ocultar_combo(combo:tcombobox);
begin
combo.visible:=false;
end;


[Error] Unit1.pas(25): Undeclared identifier: 'tcombobox'

que tal y con el codigo anterior ......

SEra que falta algo en los Uses ......

Bueno, pues parece que tu mismo haz dado la respuesta... verifica que en el uses este referenciada la unidad StdCtrls ;).

Ah pues en la unidad en que declaras tu función añadele a la clausula USES la unidad "StdCtrls"

Ej.

Código Delphi [-]
uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ....

Ahora si debo decirlo jhonny... esto es el lejano oeste en duelo por el "teclado" más rapido.

Saludos veloces.

Bueno, cHackAll no sabes el sabor a dulce que tengo en mi boca :), esto de la venganza es genial :D.

Eso era .....
 

Gracias amigos , otra cosa


como hago para referencias un query como parametro


Procedure lo_que_sea(Query:tdataset);
begin

end;

en todo caso lo que quiero pasar es un conjunto de datos consulta, tabla etc .....

cual seria la unidad a incluir en el uses .....

Hey, parece que jhonny quiere regresar al ring.....

A ver quien es el mas rápido en soltar el primer golpe :D:D

Salud OS

cuando quieras saber la unidad de un componente busca la ayuda del mismo ahi te dice de donde sale, el caso que nos ocupa es el DB

Nada de eso :D, ahora soy un tipo pacifico, dedicado unica y exclusivamente al periodismo sano :D.

Tranquilo, si regreso Rocky no veo porq tu no puedas hacerlo :D:D

Gracias Amigo .....
 

en efecto es asi .....


Gracias a todos .......


Por cierto yo tambien "Naci en esta rivera del Arauca ......"
Saludos desde Barquisimeto ......

Periodismo sano y veloz debo añadir... o es que ya fueron muchos los golpes recibidos en el ring?

epale Guaro como estamos, ya habemos cuatro occidentales por estos lados, Jure es de Valencia, yo soy de Maracaibo :D:D

pues que bueno....
 

bueno que cresca la comunidad de este lenguaje en el Pais .....


Un dia nos vemos y nos tomamos un vergero de Cervezas ....

Gracias por la ayuda .....

La verdad es que fueron pocos, pero vinieron del campeon de peso super pesado del campeonato, osea de egostar :D, la verdad es que me gusta mas el periodismo, asi puedo tirar "pullas" sin miedo a que me ataquen :D, y cuando lo hacen pues los hago salir mal en PPV :D :D :D.

"Miarma mijito", vamos a ponerlo mejor porq "no me gusta salir con menores"

:D:D:rolleyes::rolleyes::D:D

A ver, los voy a remitir a la guia de estilo del foro, que es eso pues, puro doble sentido aqui...... :D:D:D

Salud OS