Club Delphi  
    Paypal   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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #12  
Antiguo 13-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Una variante del código anterior puede ser:
FMain:
Código Delphi [-]
  with TFCliente.Create(nil) do
  begin
    Tag:= FNumChild;
    Show;
  end;
  with TFBusca.Create(nil) do
  begin
    Tag:= FNumChild;
    Show;
  end;
  Inc(FNumChild);

FBusca:
Código Delphi [-]
procedure TFBusca.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to FMain.MDIChildCount -1 do
  begin
    if (FMain.MDIChildren[i] <> Self) and
       (FMain.MDIChildren[i].Tag = Tag) then
      (FMain.MDIChildren[i] as TFCliente).Edit1.Text:= 'SALUDOS DE ' + Name;
  end;
end;

De este modo evitas la restricción de nombres que tiene el código anterior, pero tenés que cuidar el valor de los Tag's
que asignes al resto de los Forms. Una posibilidad es inciar FNumChild a un valor alto que sepas, no vas a usar para
el resto.

Saludos.

Última edición por ecfisa fecha: 13-11-2010 a las 21:37:58.
Responder Con Cita
 


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
acceder a los controles de otro formulario MDIChild!! _CALI Varios 1 04-12-2009 22:00:30
Acceder a un sitio .aspx desde otro PC carlosegs11 .NET 2 21-01-2008 06:10:34
Acceder fichero Access desde otro equipo con Ubuntu vía ODBC papulo Tablas planas 2 03-10-2007 12:09:59
Acceder desde un Frame a su formulario rafita Varios 4 07-03-2007 15:29:38
Acceder a otro ordenador desde internet Novás Redes 8 06-06-2005 17:20:46


La franja horaria es GMT +2. Ahora son las 16:46:27.


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