FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
TForm como parametro
Holaa chavales/as!!
Aqui estoy intentando pasar un formulario (TForm) como parametro para un procedimiento. procedimiento: Código:
procedure Vaciar(Grid:TStringGrid;progreso:TProgressBar;texto:TEdit;form:TForm); begin for i := 0 to form.Grid.RowCount - 1 do begin form.Grid.Rows[i].Clear; end; form.progreso.Position:=0; form.progreso.Refresh; form.texto.Text:=''; end; Código:
procedure TForm1.Sala72Click(Sender: TObject); begin for i := 0 to Form8.StringGrid1.RowCount - 1 do begin Form8.StringGrid1.Rows[i].Clear; end; Form8.ProgressBar1.Position:=0; Form8.ProgressBar1.Refresh; Form8.Edit1.Text:=''; end; procedure TForm1.Sala82Click(Sender: TObject); begin //for i := 0 to Form9.StringGrid1.RowCount - 1 do begin // Form9.StringGrid1.Rows[i].Clear; //end; //Form9.ProgressBar1.Position:=0; //Form9.ProgressBar1.Refresh; //Form9.Edit1.Text:=''; Vaciar(StringGrid1,ProgressBar1,Edit1,F9); end; Aver si alguien me puede echar una mano para llamarla, y en caso de que no se pueda, como se podria hacer Muchas Gracias!! |
#2
|
|||
|
|||
soy oscar
tu lo q estas aciendo es un cine para iaig
|
#3
|
||||
|
||||
Propuesta
Hola!
Podrias mirar de trabajar con una clase que descienda de la TForm.
Así después sólo tendras que llamar al procedure.
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! |
#4
|
||||
|
||||
Si pasas el form ya no te hace falta pasar el Grid y el progreso y viceversa.
Ahora sólo tienes que llamarlo desde cada form y pasarle como parámetro el Grid y el Progreso. ¿Qué problema hay?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cómo insertar "NULL" en un parametro de INSERT en SQL | Joselito | SQL | 4 | 23-10-2005 00:17:35 |
Pasar como parametro el where en una funcion | cso2000 | MS SQL Server | 2 | 15-02-2005 02:49:47 |
Restringirá Microsoft parches de seguridad | marcoszorrilla | Noticias | 17 | 03-02-2005 01:14:12 |
Utilizar Word Pad Como Editor de Texto | ASAPLTDA | Servers | 3 | 15-01-2005 16:03:35 |
Como paso un la intancia Tstrings de un TComboBox (ComboBox.items) por parametro? | orfeo | OOP | 1 | 05-05-2003 07:58:52 |
|