TForm como parametro

[fliper]

tu lo q estas aciendo es un cine para iaig

[xavinet]

Hola!

Podrias mirar de trabajar con una clase que descienda de la TForm.

Código Delphi [-]
TMiForm = Class(TForm)
public 
  procedure Vaciar;
end;

Así después sólo tendras que llamar al procedure.

Código Delphi [-]
Form1.Vaciar;

Ya que todos los formularios tendran el mismo procedimiento.

No se si te habre ayudado mucho, pero la descripción de lo que pretendes es un poco confusa, o yo poco iluminado hoy, todo podria ser

Hasta pronto!

[Neftali [Germán.Estévez]]

Si pasas el form ya no te hace falta pasar el Grid y el progreso y viceversa.

Código Delphi [-]
procedure Vaciar(AGrid:TStringGrid; AProgreso:TProgressBar; ATexto:TEdit);
begin
 for i := 0 to AGrid.RowCount - 1 do begin
     AGrid.Rows[i].Clear;
 end;
 AProgreso.Position:=0;
 AProgreso.Refresh;
 ATexto.Text:='';
end;

Ahora sólo tienes que llamarlo desde cada form y pasarle como parámetro el Grid y el Progreso.

¿Qué problema hay?