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