FORM TRANSPARENTE USANDO MENU PARA ESCOLHAR A % DE TRANSPARENCIA

Criando um formulário simples , e usando comando práticos para fazere a form ficar transparente de acordo com a % escolha

1º -->  Com a form já aberta , inserir um mainmenu . E no mainmenu por um menu transparencia e dentro do menu transparencia , as porcentagens 90,80,70,60,50 usarei modelo apenas até ao 50 % e um normal , para poder voltar a form a seu status normal sem transparencia

Agora para configurar para que cada porcentagem funcionem de acordo basta abrir o mainmenu clicar encima da porcentagem que deseja configurar e por e seguintes comando em cada porcentagem .

procedure TForm1.P90Click(Sender: TObject); \\Obs : P90 é representado 90%
begin
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 230;
end;
procedure TForm1.P80Click(Sender: TObject); \\Obs : P90 é representado 80%
begin
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 199;
end;
procedure TForm1.P70Click(Sender: TObject); \\Obs : P90 é representado 70%
begin
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 179;
end;
procedure TForm1.P60Click(Sender: TObject); \\Obs : P90 é representado 60%
begin
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 102;
end;
procedure TForm1.P50Click(Sender: TObject); \\Obs : P90 é representado 50%
begin
    Form1.AlphaBlend := true;
    Form1.AlphaBlendValue := 127;
end;
procedure TForm1.NormalClick(Sender: TObject); \\Obs : Normal indicando que a form volta a sua forma original , sem
begin                                                                       transparencia
    Form1.AlphaBlend := False;
    Form1.AlphaBlendValue := 255;
end;

Artigos relacionados