Procedures Genericos con Parametros de Controles....

[[cHackAll]]

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.

[jhonny]

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.

[Kenobi]

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 ......

[jhonny]

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

[[cHackAll]]

Empezado por jhonny

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

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

Saludos veloces.

[jhonny]

Empezado por cHackAll

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

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

[[egostar]]

Empezado por cHackAll

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

Saludos veloces.

Empezado por jhonny

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

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

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

Salud OS

[[cHackAll]]

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, ....

[Kenobi]

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 .....