Ver Mensaje Individual
  #2  
Antiguo 11-03-2005
Avatar de User_baja1
User_baja1 User_baja1 is offline
Miembro
 
Registrado: feb 2005
Posts: 99
Reputación: 22
User_baja1 Va por buen camino
yo mismo me contestoo

Vale, chicos... al final la solucion la tengo yo.
De todas formas la comento por si alguien tuviera algun problema parecido:


Como el problema era que las ventanas hijas no se enteraban, lo que he hecho es poner un Timer en el formulario principal y alli mismo compruebo las coordenadas del raton y proceso:

procedure TForm.Timer2Timer(Sender: TObject);
var position:TPoint;
begin
if MDIChildCount=0 then ver_panel_de_menu(true)
else begin
getcursorpos(position);
if (position.x<=5) then ver_panel_de_menu(true)
else
if (position.x> Panel_lateral.Width) then ver_panel_de_menu(false);
Update;
end;
end;

De todas formas gracias al foro.
Responder Con Cita