FORM MDICHILD FICA EMBAIXO DO PICTURE DO MDIFORM

CLEBERBALMEIDA 29/08/2013 16:52:04
#428288
Amigos, boa tarde,

Alguem sabe a solução para que o MDICHILD vb6, fique por cima de um picture que quero colocar no MDIFORM (principal).

Coloco um picture no MDIFORM, que nele vou colocar um image e colocar uma imagem para ocupar toda a tela do MDIFORM, servindo de plano de fundo, porém, quando abro o MDICHILD, ele fica abaixo do picture que está alinhado como align top. Quero que o MDICHILD fique por cima (sobrepondo), o picture do MDIFORM. Inclusive o picture do MDIFORM está descendo até mesmo a barra de rolagem do MDIFORM, como posso alterar isso?

Estou enviando em anexo até mesmo um exemplo de como está ficando e as imagens de como fica e como quero que fique.

Obrigado!
EPISCOPAL 30/08/2013 10:16:26
#428307
Olha até onde sei não há jeito pra alterar isso .... você pode colocar a image no MDIForm pela propriedade picturure ...


você pode alterar a propriedade Align para alignbottom para colocar o Picture em baixo do mdiForm ....


Ou pode usar setparent e colocar conforme o exemplo em anexo ..... o problema que não vai aparecer as barras de rolagem, a não ser que você coloque isso manualmente .....


CLEBERBALMEIDA 03/09/2013 07:47:50
#428425
Tem algum outro componente que eu consiga colocar no Mdiform, para que dentro dele, possa colocar um objeto Image, assim eu jogaria a minha imagem no objeto Image? Eu só tava querendo colocar o objeto Picture1 no Mdiform, porque pelo que eu conheço, é o único objeto que posso colocar no Mdiform e dentro dele colocar o objeto Image, que recebe a minha imagem, más, se tiver outro objeto que fique por trás dos outros forms abertos é melhor.

Ou sabe como que eu possa colocar a barra de rolagem manualmente, como você fala no comentário acima?

Obrigado!
MARCELO.TREZE 03/09/2013 11:32:08
#428436
Resposta escolhida
fácil de resolver

primeiro o primeiro form a abrir deve ser o MDI form, então faça o seguinte coloque seu picture neste mdiform, mude a propriedade visible do picture para False, coloque o imge detro detse picture com a propriedade resize=true, e no resize do mdiform coloque isto

Private Sub MDIForm_Resize()
Picture1.Height = Me.Height
Image1.Top = 0
Image1.Left = 0
Image1.Height = Picture1.Height
Image1.Width = Picture1.Width
Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height
Me.Picture = Picture1.Image
Form1.Show
End Sub




pronto sua imagem de fundo, veja o exemplo em anexo




CLEBERBALMEIDA 03/09/2013 13:46:25
#428442
Ok Marcelo, está praticamente o que quero mesmo, porém, não sei se percebeu, mas nesse teu exemplo ai, quando clico na janelhinha do canto direito em cima, para restaurar o tamanho da janela e após isso, alterar o tamanho do mdiform, clicando e arrastando, a imagem fica distorcida na tela, tem como verificar o que acontece?

Tentei alterar algumas coisas, o que mais cheguei perto, para não distorcer a imagem, foi colocando os códigos que estava no resize do mdiform, para o active do mdiform e colocando o mesmo código em um timmer, assim, sempre quando altero o tamanho do mdiform, clicando com o mouse e arrastando, a imagem fica sempre no mesmo tamanho do mdiform, porém, quando clico na janelilha de restaurar tamanho do mdiform, a imagem não fica do tamanho do Mdiform, tenho que mexer alguma coisa nele para a imagem ficar normal.

Se possível, verifique o teu exemplo e o que estou enviando agora, da forma que fiz.

Obrigado!
MARCELO.TREZE 03/09/2013 16:51:06
#428459
to fazendo uns testes aqui colega
CLEBERBALMEIDA 04/09/2013 10:14:12
#428473
Ok Marcelo, quando tiver alguma novidade me avisa, valew!!!
EPISCOPAL 04/09/2013 17:47:31
#428496
é .... este negocio de colocar imagem com paint no form eu aprendi com marcelo
CLEBERBALMEIDA 16/09/2013 08:25:02
#428881
Marcelo, bom dia, você conseguiu fazer algum teste para identificar o problema da imagem não redimensionar quando alterno o form para minimizado?

Valew
Tópico encerrado , respostas não são mais permitidas