Ver Mensaje Individual
  #4  
Antiguo 30-04-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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
Cita:
Empezado por Bluefox Ver Mensaje
...
No se si me explique bien es un poco lioso y un comportamiento raro el que tiene.
Hola Bluefox.

Te has explicado claramente. En lo particular prefiero que no se muestren ScrollBars en el MDIForm, esto lo logras del siguiente modo:
Código Delphi [-]
...
implementation

function ClientWndProc(wnd: HWND; Msg: Cardinal; wParam, lParam: Integer): Integer; stdcall;
begin
  if Msg = WM_NCCALCSIZE then
    if (GetWindowLong(wnd, GWL_STYLE)and(WS_HSCROLL or WS_VSCROLL)) <> 0 then
      SetWindowLong(wnd, GWL_STYLE,
      GetWindowLong(wnd, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL));
  Result:= CallWindowProc(Pointer(GetWindowLong(wnd, GWL_USERDATA)), wnd, Msg, wParam, lParam);
end;

procedure TMDIForm.FormCreate(Sender: TObject);
begin
  if (ClientHandle <> 0)and(GetWindowLong(ClientHandle, GWL_USERDATA) = 0) then
    SetWindowLong(ClientHandle, GWL_USERDATA,
      SetWindowLong(ClientHandle, GWL_WNDPROC, Integer(@ClientWndProc)));
end;
...
Obviamente, de este modo no se provoca el efecto que mencionas y siempre dispones de los métodos Cascade y Tile para organizar los MDIChilds:
Código Delphi [-]
procedure TMDIForm.Cascade1Click(Sender: TObject);
begin
  Cascade;
end;

procedure TMDIForm.TileHor1Click(Sender: TObject);
begin
  TileMode:= tbHorizontal;
  Tile;
end;

procedure TMDIForm.TileVer1Click(Sender: TObject);
begin
  TileMode:= tbVertical;
  Tile;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 30-04-2014 a las 07:50:53. Razón: tabulación
Responder Con Cita