FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ventanas MDI Hijas
Hola, tengo una Ventana Madre y varias hijas (MDI's) y tengo un problema como hago para que cuando de click en las opciones que abren las hijas estas se creen si no estan activas ó se despliegen al frente si ya estan abiertas, me fui a buscar en el historico acerca de este asunto encontre un codigo que use y que muestro a continuación :
function ExisteFrm(UnaForma:TForm): Boolean; var i:Integer; xFrm:Tform; begin Result:=False; for i:=0 to Screen.FormCount - 1 do begin xFrm:=Screen.Forms[i]; if TFormClass(xFrm) = TFormClass(UnaForma) then begin Result:=true; exit; end; end; end; procedure TForm1.Actividad1Click(Sender: TObject); var MyChildForm: TForm2; begin if not ExisteFrm(Form2) then begin LockWindowUpdate(Handle); MyChildForm := TForm2.Create(Application); MyChildForm.Caption := 'Actividad '; LockWindowUpdate(0); end else Form2.BringToFront; end; la primera es la función que verifica la existencia de la hija y el procedimiento es el que la llama, pero no me funciona, es decir me la crea tantas veces la llame y solo quiero que se abra una vez, alguien me podria decir que esta mal en mi codigo o si me falta algo por hacer, gracias |
|
|
|