F�rum Problema Posicionar o form self.top :=0 - ajuda por favor... #354668

02/03/2008

Bom o seguinte...
Preciso de uma ajuda urgente.

Tenho um sisteminha uso componente da DevExpress o dxBarManager
para fazer o menu e uma barra de ferramentas.

At� ai tudo bem...
Porem quando vou abrir uma tela fiz um c�digo para que qdo abrir... a tela
n�o seja possivel maximizar e abra do tamanho da tela pai, na posicao 0 ou 1
ex:
Self.Top := 1;
Self.Left := 1;
Self.Height := Application.MainForm.Height - 110;
Self.Width := Application.MainForm.Width - 15;

Os valor que subtraem (- 110, -15 ) � o tamanho da barra.
A tela � criada do tamnho certo..
por�m...
eu posiciono self.top:=0 ou self.top:=1;
A tela ate coloca nessa posi��o, mas ela fica uns 5 pixels abaixo da barra de menu.
Ent�o debugando qdo coloco no lugar que o form deveria ficar mostra top := -5

entao tentei
Self.Top := -5;
E n�o funciona...!
N�o sei o que fazer para posicionar no lugar correto
abaixo da barra de ferramentas.

Imagem de como fica (errado)
[img]http://img204.imageshack.us/my.php?image=erroposicaopj4.jpg[/img]

Imagem de como deveria ser...
[img]http://img204.imageshack.us/my.php?image=corretoposicaoor4.jpg[/img]

Alguem poderia me ajudar???
eu ja fiz de tudo...!

obrigado

Davefloripa

Curtir t�pico

+ 0

Responder

Posts

02/03/2008

Marco Salles

voce vai fazer o seguinte...

var
pos:Tpoint;
begin
 pos:=formPrincipal.ClientToScreen(point(Controle.Left,Controle.Top));
 formQueSeraAberto.Top:=pos.Y+Controle.Height;
 formQueSeraAberto.Show;

Que d�..

p:s
Controle no seu caso � o MainForm

Responder

Gostei + 0