Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-02-2006
Delpho Delpho is offline
Registrado
 
Registrado: feb 2006
Posts: 3
Poder: 0
Delpho Va por buen camino
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;
llamada:
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;
El caso es que tengo varios formularios, y cuando en el formulario principal clickeo en vaciar sala 1, vaciar sala2, etc se tienen que ejecutar esas acciones, pero para no repetir mucho codigo pues quiero hacer un procedimiento.
Aver si alguien me puede echar una mano para llamarla, y en caso de que no se pueda, como se podria hacer
Muchas Gracias!!
Responder Con Cita
  #2  
Antiguo 07-02-2006
fliper fliper is offline
Registrado
 
Registrado: feb 2006
Posts: 5
Poder: 0
fliper Va por buen camino
soy oscar

tu lo q estas aciendo es un cine para iaig
Responder Con Cita
  #3  
Antiguo 07-02-2006
Avatar de xavinet
xavinet xavinet is offline
Miembro
 
Registrado: mar 2005
Posts: 41
Poder: 0
xavinet Va por buen camino
Propuesta

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!
Responder Con Cita
  #4  
Antiguo 07-02-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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?
__________________
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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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 01:17:35
Pasar como parametro el where en una funcion cso2000 MS SQL Server 2 15-02-2005 03:49:47
Restringirá Microsoft parches de seguridad marcoszorrilla Noticias 17 03-02-2005 02:14:12
Utilizar Word Pad Como Editor de Texto ASAPLTDA Servers 3 15-01-2005 17:03:35
Como paso un la intancia Tstrings de un TComboBox (ComboBox.items) por parametro? orfeo OOP 1 05-05-2003 08:58:52


La franja horaria es GMT +2. Ahora son las 01:19:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi