Usando AlphaBlendValue para Marca d’água na tela do usuário

Ola a todos da DevMidea.

Bom, está é a minha primeira postagem aqui na DevMedia, espero que vocês gostem.

Fiz um programa que você pode utilizar para fazer uma publicação utilizando a imagem da DevMedia colocando em modo transparente.

Utilizei componentes simples que tem nos Delphi’s 7 a 2007  para faze – lo.

Monte o form desta maneira assim você terá uma melhor visão do sistema.

 São estes componentes.

4 Image

1 TrackBar

1 BitBtn

1 Memo

1 TrayIcon

Mãos a obra.

Configuração e propriedade de botões, imagens e form.

Coloque a imagem de sua preferência caso queira fazer para outro sistema.

Insira no evento do  formShow.

procedure TfrmGota.FormShow(Sender: TObject);

begin

  //image1

 if FileExists(ExtractFileDir(Application.ExeName)+ '\imagem\clubeDelphi.jpg') then

    Image1.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\imagem\clubeDelphi.jpg');

 // Image2

 if FileExists(ExtractFileDir(Application.ExeName)+ '\imagem\DEVMedia.jpg') then

    Image2.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\imagem\DEVMedia.jpg');

 // Image2 bandeira do meu pais de origem

  if FileExists(ExtractFileDir(Application.ExeName)+ '\imagem\flag_BRA.ico') then

    Image3.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\imagem\flag_BRA.ico');

 // Image2 bandeira do meu estado de orgem

  if FileExists(ExtractFileDir(Application.ExeName)+ '\imagem\bandeira_sp.jpg') then

    Image4.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\imagem\bandeira_sp.jpg');

 // icone para o componente TrayIcon

  if FileExists(ExtractFileDir(Application.ExeName)+ '\imagem\devmediaball.icon') then

    TrayIcon1.Icon.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\imagem\devmediaball.icon');

    Memo1.Lines.Add('Programa: Gota em Tela ');

    Memo1.Lines.Add('Desenvolvedor: Alan Adolfo');

    Memo1.Lines.Add('Tecnologia desenvolvida:');

    Memo1.Lines.Add('Delphi 7 e 2007');

    Memo1.Lines.Add('uso: Para apresentação de');

    Memo1.Lines.Add('Software');

    Memo1.Lines.Add('Componentes Utilizados:');

    Memo1.Lines.Add('form e TImage, TrayIcon');

end;

Obs.: Assim as imagens serão carregadas na execução melhorando o desempenho do programa sem ocupar memória do computador.

o        Para aumenta e diminuir a visibilidade do form utilizei o componente trackBar, com ele você pode aumenta ou diminuir o brilho do forme deixando transparente pouco a pouco de acordo com a sua necessidade visual .

procedure TfrmGota.TrackBar1Change(Sender: TObject);

begin

  TrackBar1.Position := TrackBar1.Position;

  frmGota.AlphaBlendValue := TrackBar1.Position;

end;

o        Movimenta o form pela tela sem utilizar o borderStyle pois ele estará bsNome.

Declare no public

procedure WMNChitTest(var M: TWMNchitTest);

message WM_NCHITTEST;

procedure TfrmGota.WMNChitTest(var M: TWMNchitTest);

begin

  inherited;

  if M.result = htclient then

    M.result := htCaption;

end;

o        BitBtn1 para poder sair do programa.

Estou utilizando este botão, pois quando utilizei o comando acima ele não me permitiu que eu usasse o duplo clique no forme ou na imagem para que ele possa sair.

procedure TfrmGota.BitBtn1Click(Sender: TObject);

begin

  close;

end;