Ver Mensaje Individual
  #5  
Antiguo 07-06-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
A mi tambien me ha dejado un poco perplejo este hilo, ya que las preguntas son bastante escuetas.

en principio tienes la colección Forma_Mdi.MdiChildrens que puedes recorrerlo a placer y ver que ventanas estan creadas, a partir de ahí puedes hacer algo así:
Código Delphi [-]
if Forma_Mdi.MdiChildrens[i] is TfrmClientes then
begin
  Tfrmclientes(Forma_Mdi.MdiChildrens[i]).Lo que sea
end
Código Delphi [-]
function AlFrente(NombreVentana:string):Boolean;
var i:integer;
    hecho:Boolean;
beginÇ
  for i:=0 to MDI.count -1 do 
  if Tform(MDI.MdiChildren[i]).Name = NombreVentana then
  begin
   Tform(MDI.MdiChildren[i]).BringtoFront;
   result := true;
   break;
 end
 else
   result := false;

Es algo así lo que pides?

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita