5 respuestas en este tema

[Caral]

Hola
Como estoy aprendiendo a hacer cositas nuevas tengo preguntas nuevecitas y frescas.
Supongamos que tengo varios forms y los quiero cerrar todos de golpe, entonces hago esto:

delphi

var
  i :Integer;
  comp:TComponent;
begin
  for i := 1 to 100 do begin
  comp := FindComponent('Form' + IntToStr(i));
  if assigned(TForm(comp)) then
  begin
  TForm(comp).Close;
  end;
  end;

Bien; Esto me cierra todos los forms, pero los que se llaman form 1, 2, 3 etc.
Pregunta:
Como cierro los forms que tienen Nombre diferente, digamos:
FCliente, FBanco, Ftal, FCual etc..........

Ideas?
Saludos

[egostar]

Hola amigo

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  comp: TComponent;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if Components[i] is TForm then
    begin
      comp := FindComponent(Components[i].Name);
      if assigned(TForm(comp)) then
      begin
        TForm(comp).Close;
      end;
    end;
  end;
end;

Salud OS

[Caral]

Hola
Muy bueno amigo.
Que me haria sin ti
Saludos
PD: Otro hilo resuelto por el Maestro Egostar
PD2: Por lo menos no amerito una respuesta asi.

[egostar]

Hola
Muy bueno amigo.

Saludos

Que bueno que te sirvió.

PD2: Por lo menos no amerito una respuesta asi.

jajajajajajajajajajajajajajajajaja, que kbron eres jajajajajajajajaja

Salud OS

[Caral]

Hola
Me he dado cuenta que el primer codigo, el que puse, tambien cierra los forms aun con otro nombre
Esto me pasa por preguntar sin probar antes.
De todos modo me alegro haberte sacado codigo amigo, asi aprendo algo nuevo.
Saludos
PD: No me voy a colgar por esto........

[egostar]

Hola
Me he dado cuenta que el primer codigo, el que puse, tambien cierra los forms aun con otro nombre
Esto me pasa por preguntar sin probar antes.
De todos modo me alegro haberte sacado codigo amigo, asi aprendo algo nuevo.
Saludos
PD: No me voy a colgar por esto........

Y yo igual por no ejecutar tu code antes de quebrarme el cerebro que se ha ido de vacaciones

Salud OS