Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Alterando a transparencia de sua aplicação em Qui Fev 07, 2013 2:05 pm

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 19
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
0 / 1000 / 100

RodrigoNunes

Admin

Admin

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:


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;




[Você precisa estar registrado e conectado para ver esta imagem.]
O Administrador ℛodrigoNunes sugere:
- Respeite as [Você precisa estar registrado e conectado para ver este link.]
- Participe das nossas [Você precisa estar registrado e conectado para ver este link.]
- Veja a nosso [Você precisa estar registrado e conectado para ver este link.]
- Não peça suporte por MP


Try
Topic.Resolve;
Finally
Topic.Caption := Topic.Caption + '[RESOLVIDO]';
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário https://www.facebook.com/DarkGamesBrasil formatacaodemicros@hotmail.com.br naotenho esqueci

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum