Problema de espacio entre TToolBar y TImage en Form Principal
 

Hola buenos dias.

Ya tengo rato buscando dentro de las opciones de delphi y de los diferentes componentes que utilizo dentro de mi form principal, el quitar un espacio q me aparece entre el ToolBar y un TImage, mismo que no he podido quitar....

EXPLICO:

Tengo un form principal en el cual tengo un MainMenu, ToolBar, y luego tengo un TImgae, en este ultimo tengo una imagen JPG con un fondo "X" y la descripción o nombre del Sistema....lo raro es que en tiempo de diseño, el espacio entre el ToolBar y el TImage no me aparece, pero lo ejecuto y aparece....como le puedo hacer para que este espacio no aparezca.

Anexo imagen para mejor explicación. Saludos y gracias por su apoyo.

has provado de poner la alineacion del timage a alClient ?

Gracias por contestar.

Efectivamente el TImage un su propiedad Align, esta en alClient.

Alguna otra opción?

mRoman,

:rolleyes:

Pregunto :

1- ¿Que versión de Windows y de cuantos bits (32/64) utiliza la aplicación?.

2- ¿Que versión de Delphi utiliza la aplicación?.

3- ¿Haz probado borrar y crear nuevamente el componente TImage?.

4- ¿Haz verificado que no se modifique la propiedad Height del componente TToolBar en tiempo de ejecución?.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, ToolWin, Menus, ImgList;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Opcion11: TMenuItem;
    Opcion21: TMenuItem;
    Opcion31: TMenuItem;
    ToolBar1: TToolBar;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    Image1: TImage;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Align := alClient;
   Image1.Center := True;
   Image1.Stretch := True;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Implementa un formulario con los componentes TMainMenu, TToolBar, TImage y TStatusBar sin espacio entre el TToolBar y el TImage, como se muestra en la siguiente imagen:



Espero sea útil :)

Nelson.

Gracias por contestar....

Asi es Nelson....ese es el efecto que quiero, pero no lo he logrado....

Respuestas:

1.- Windows 7 Profesional de 64 bits
2.- Delphi 6
3.- Borrar y crear el componente TImage....mmmmm....te refieres a en tiempo de ejecución?
4.- Si, lo he verificado, en tiempo de diseño es 46 y en ejecucion es los mismo.

En cuanto a la version del S.O., he trabado con delphi6 en Windows XP y desde entonces me hace lo mismo.....

Una cosa Nelson, los botones de que clase son?....yo use TSpeedButton....no use la opcion "New Button" del ToolBar....talvez aqui este el problema.

GRacias por tu tiempo Nelson.

El efecto se quita si en el Align del ToolBar, la cambio a "alCustom".....esto podría resolverlo, pero creo que no sería ésta la solución mas óptima.

Nelson, el ToolBar lo tienes en su Align igual a "alTop" ?

Bueno....creo que ya lo solucioné:

En mi form le agregue un ScrollBox y dentro de él le puse el ToolBar y con su propiedad Align=alTop y un Timage con su align="alClient"....y esto al perecer quito el especio que nos ocupa de este hilo.

Los demas foreros asi tienen sus aplicaciones en su form principal donde se enceuntra el TMainMenu ???....o es diferente ???

mRoman,

No :rolleyes: , me refiero a borrarlo y crearlo nuevamente en tiempo de diseño a efectos de prueba, lo mismo se puede aplicar al TToolBar.

Son del tipo TToolButton como se muestra en el código del Msg #4 y fueron creados con la opción New Button del TToolBar.

Es correcto ^\||/ , la propiedad Align esta establecida a alTop (Valor por Default).

:confused:

Te sugiero probar el código del Msg #4 y ver su comportamiento en relación al problema planteado, quizás te sirva para acotar el problema.

Espero sea útil :)

Nelson.

Ok....gracias...probaré tu código.

Efectivamente con tu código no muestra el espacio en cuestión.....la solución que publique pues no fue solución, presenta un comportamiento extraño al momento de mandar llamar otros formularios.....

Hice una aplicación tomando como ejemplo tu código, y efectivamente hace lo que yo quiero.....veré como le puedo aplicar a mis aplicaciones.

Gracias Nelson

Ok...encontré el porque existe ese espacio entre el ToolBar y el TImage...

Resulta que el Form principal en su propiedad FormStyle tiene fsMDIForm.....esto hace que me aparezca ese espacio que les comento....cuando se lo cambio a fsNormal....LO QUITA !!!....PERO NO PUEDO MANDAR LLAMAR MIS FORMULARIOS, me manda un error:

'Cannot create form. No MDI forms are currently active'

Mis demas formularios son fsMDIChild....entiendo el porque del error.....necesitan que sean llamados desde un form MDI....

NELSON : Tu ejemplo le cambio el estilo del formulario a fsMDIForm y que crees.....ME APARECE EL ESPACIO !.....

Para los demas foreros.....COMO SE LO QUITO ??. A alguien le paso los mismo que a mi....???....como lo solucionaron???

Saludos

mRoman,

:rolleyes:

Cambia la propiedad de todos los formularios a fsNormal



Espero sea útil :)

Nelson.

Ok...gracias Nelson por tu tiempo.....

Efectivamente eso mismo pensé.....lo estoy aplicando a manera de prueba....obviamente al aplicarlo y visualizar el efecto al llamar otro fomulario desde el menu principal, pues es algo que no estoy acostumbrado....pero veré las ventajas.

Agradezco tu apoyo y orientación.