1 Alterando a transparencia de sua aplicação Qui Fev 07, 2013 2:05 pm
Moedas : 278
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
RodrigoNunes
Eai galera, nesse tuto irei ensinar a como criar um controle deslizante que altera a transparência de seu Form
Insira em um form um TrackBar (aba Win32) e 1 label (Standard)
Altere as propriedades deste componentes para:
Agora de dois cliques em sua form e adicione o código abaixo em "Uses":
Adicione isso em Type:
E isso em Implementation
Insira em um form um TrackBar (aba Win32) e 1 label (Standard)
Altere as propriedades deste componentes para:
Max = 10
Min = 0
Orientation = trVertical
Position = 10
SelEnd = 0
SelStart = 0
}
Agora de dois cliques em sua form e adicione o código abaixo em "Uses":
- Código:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
Adicione isso em Type:
- Código:
TForm1 = class(TForm)
TrackBar1: TTrackBar;
Label1: TLabel;
procedure TrackBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
E isso em Implementation
- Código:
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Form1.AlphaBlend := True;
Form1.AlphaBlendValue := (TrackBar1.Position * 20) + 55;
Label1.Caption := IntToStr(100 - (TrackBar1.Position * 10)) + '%';
TrackBar1.SelStart := TrackBar1.Position;
TrackBar1.SelEnd := 10;