procedimiento con componentes.

[jachguate]

Solo debo añadir, que en caso que el Método o procedimiento no lleve parámetros, no es necesario (y de hecho no compilará el código) poner los paréntesis vacios (al mejor estilo de c). Basta con añadir el punto y coma... algo como:

Código Delphi [-]
Procedure TForm1.casa;

Begin
  Sentencias;
end;

Empezado por roman

que un procedimiento global haga referencia a un formulario en particular.

El principal problema de esto, es que el día que necesitas mas de una instancia del formulario... todo fallaría, o mas bien, el código afectaria siempre al formulario apuntado por Form1... y si ha sido llamado por Form1A, que es otra instancia de TForm1??

Empezado por roman

o pasas el formulario como parámetro al procedimiento:

Esto también seria funcional, pero para evitar TypeCast, en lugar de recibir un parámetro del tipo TForm, seria mejor recibir un parámetro de la clase puntual del formulario a tratar (o del ancestro base donde estén los componentes a modificar, en caso de usar herencia visual)

Es decir..

en lugar de

Procedure Casa(Forma : TForm);

es preferible:

Casa(Forma : TForm1); o
Casa(Forma : TFormBaseConsultas);

Hasta luego.



pd. Román: veo que vas bien en las clases de Adivinación para Moderadores del club...... a ver si me das copia para el examen..