Ao passar o mouse o Painel fica visivel ao sair não

Delphi

31/07/2005

Olá a todos,

Gostaria de ter um painel com um treeView do lado esquerdo do meu projecto que contém um menu de atalhos, o meu ojectivo e quando passar o rato pela zona esquerda o painel fica visivel quando tiro ele desaparece. +- como um botão Flat. O então gostaria de colocar um efeito desvanecer.

Obrigada


Porty

Porty

Curtidas 0

Respostas

Marco Salles

Marco Salles

31/07/2005

Talves lhe sirva

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Visible:=True;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Visible:=True;
end;



GOSTEI 0
Porty

Porty

31/07/2005

coloquei assim e funciona
procedure TFrPrincipal.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if x < 178 then
    Panel1.Visible:=True
else
    Panel1.Visible:=false;


mas existe um problema é que eu tenho uma imagem de fundo e quando movo o rato ela pisca.

Tem mais alguma solução?


GOSTEI 0
Marco Salles

Marco Salles

31/07/2005

Eu não sei como esta imagem esta associada ao Panel.. Fiz um Teste simples aqui , usando um componete image ´Dentro´ do Panel e ela não piscou :cry: :cry: :cry:


GOSTEI 0
Porty

Porty

31/07/2005

[quote:e8383909ae=´Marco Salles´]Eu não sei como esta imagem esta associada ao Panel.. Fiz um Teste simples aqui , usando um componete image ´Dentro´ do Panel e ela não piscou :cry: :cry: :cry:[/quote:e8383909ae]

eu estou usando MDI, tenho uma imagem de fundo e pois coloco um painel em cima.


GOSTEI 0
POSTAR