Crear procedimiento !!!

[Ledian_Fdez]

Holas amigos de este foro:
Lo que me propongo es lo siguiente:

Este código lo repito en casi todos los formularios en el evento FormShow.

Código Delphi [-]
procedure TTallerForm.FormShow(Sender: TObject);
begin
 DM.QrProv.Open;
 DM.QrProv.First;
 While not DM.QrProv.Eof do
    begin
     ComboBox1.Items.Add(DM.QrProvcodp.AsString);
     DM.QrProv.Next;
    end;
 DM.QrProv.Close;
end;

Intento hacer un procedimiento en el DM (Data Module) para llamarlo desde cualquier lugar, pero no hallo cómo hacerlo ya que no se como referirme a cada uno de los formularios.

nota: A los formularios les asigno memoria dinámica.

gracias de antemano
saludos Ledian

[marcoszorrilla]

Ese código lo tienes que poner en el DataModulo correspondiente y luego hacer un "Uses", en cada formulario en donde pienses utilizarlo y despues símplemente llamarlo por su nombre:

Código Delphi [-]
 procedure Carga_Cuadro_Combinado();
begin
 DM.QrProv.Open;
 DM.QrProv.First;
 While not DM.QrProv.Eof do
    begin
     ComboBox1.Items.Add(DM.QrProvcodp.AsString);
     DM.QrProv.Next;
    end;
 DM.QrProv.Close;
end;

y en los formularios, símplemente:

Código Delphi [-]
 Carga_Cuadro_Combinado();

Un Saludo.

[Ledian_Fdez]

Al crear el procedimiento en el Data Module da el error undeclared identifier:'ComboBox1' y tampoco puedo decir

Código Delphi [-]
TallerForm.ComboBox1

por que va a ser usado no solo por TallerForm, sino por varios formularios.

Espero que me hallan entendido ahora.

Gracias de todas formas.
Saludos Ledian

[yusnerqui]

Está claro, creo que lo que puedes hacer es pasar el combo como parámetro del prcedimiento. Entonces:

Código Delphi [-]
procedure DM.Carga_Cuadro_Combinado(MyCombo:TComboBox);
begin
 QrProv.Open;
 QrProv.First;
 While not QrProv.Eof do
    begin
      MyCombo.Items.Add(DM.QrProvcodp.AsString);
      QrProv.Next;
    end;
 QrProv.Close;
end;

y para llamarlo desde el form

Código Delphi [-]
  DM.Carga_Cuadro_Combinado(ComboBox1);

Saludos.

[Ledian_Fdez]

Hola amigos:
Despues de guiarme por el consejo de yusnerqui me da el siguiente error: Undeclared identifier: TComboBox

Alguien pudiera ayudarme por favor.

gracias
Saludos Ledian.

[[basti]]

Cuando te de un tipo de error como ese, busca la unidad donde está definido en la ayuda de delphi y ponla en el uses del formulario o Datamodule. En este caso tienes que añadir en el uses de tu TDataModule la unidad 'stdCtrls'.

[yusnerqui]

Debes declarar la unit StdCtrls en el uses de tu DM.

Saludos

[yusnerqui]

Caramba Basti te me adelantaste, jejeje.

saludos

[Ledian_Fdez]

Amigos:
Ya no da el error, magnifico. He aprendido mucho aca con ustedes hoy, pero ... a la hora de llamar al procedimiento

Código Delphi [-]
DM.Carga_Cuadro_Combinado(ComboBox1);

en cualquiera de los formularios me da el error undeclared identifier:'Carga_Cuadro_Combinado'. Les aclaro que tengo en uso el DM


Con otra ayuda soluciono el problema.

Saludos Ledian