|
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.
|