Delphi [Comandos e Tutorial] Deixando o projeto mais bonito!

[Kaao]

Aqui vo dar alguns comandos que ajudam a deixar o projeto mais bonito, uns deles eu coloquei no Super Tutotial.

1 - Aparaçer e sumir lentamente...
É bem mais bonito um objeto apareçer lentamente do que apareçer do nada. Então vo por aqui o comando, no exemplo será clicado num button e irá aparaçer lentamente um edit.
Faça o seguinte:

1. Adicione um button, edit e timer.
2. Deixe o edit1 com width 0.
3. Deixe o timer com enabled false.
4. Deixe o timer com interval 50.

Adicione o seguinte comando num button:

timer1.Enabled := true;

No timer adicione o seguinte comando:

edit1.Width := edit1.width + 1;

if edit1.width = 96 then
begin
timer1.enabled := false;
end;

Pronto! Agora edite como quiser!!

2 - Projeto estilo Windos XP!
Muito fácil e simples de se fazer!
Procure esta linha de comando (pode estar ingual ou similar):

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Agora, após o último ítem, adicione o seguinte:

, XPMan

Pronto! O projeto ficou estilo Windos XP!!
Com botões redondos, azulados, etc.

3 - Adicionar um Splash.
Siga este tutorial passo a passo feito pelo white tiger.

bm Nesse Tuto Vou Mostrar Como Criar a Famosa Splash em delphi Primeiro
o que Ser splash ?
Splash é aquela Tela de Inicialização que abre antes do programa Principal
igual ao do Emule,LimeWire,sss,acunetix,etc.
existem Splash com Barra de Progresso e etc a que Vamos Lidar é a simples
mesmo
Primeiramente No seu Projeto Adicione um Form Novo File-->new-->Form
Em Seguida Vamos Salvar o Projeto
Após Salvo o Projeto Vamos no form2 e Vamos add 1 componente image1 da paletta adittional,Modificar Sua Propriedade
align --> alclient //alinha o componente Para o tamanho inteiro do Form
Picture --> Imagem Qualquer para a splash //Carrega Uma imagem
stretch --> true //estica a Imagem de Acordo com a Image1

agora Redimensione o Form a seu gosto deixado um tamanho não
MuitoGrande e Uma Largura Não Muito Pequena e nem grande
media ta bm Ok .

Agora Vamos Savlar Nosso Projeto Novamente
Agora com o form2 selecionado Vamos em Project -->View Source
Vai Tar Um Codigo Assim :

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

Agora em Uses Vamos Declarar a SysUtils Ficando Assim :

uses
Forms,
Sysutils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

bm Agora Entre

Application.CreateForm(TForm2, Form2);

e
Application.Run;

Vamos adicionar o Seguinte Codigo

Form2.Show; //Abre o Form2
Form2.Refresh;//Atualiza o Form2
Sleep(8000);//Tempo da splash apos acabar abre o form principal aqui 8 seg;
Form2.Release;//Apaga o form
Form2 := nil;//Libera a Form

Ficando assim o Codigo Final :

program Project1;

uses
Forms,SysUtils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm2, Form2);
Form2.Show;
Form2.Refresh;
Sleep(8000);
Form2.Release;
Form2 := nil;
Application.Run;
end.

BM é Issu Galera Espero que Tenham Gostado Abraços WhiteTiger


4 - Edits enfeitados.
Óbviamente adicione um edit, na caractesrísticas dele color altere para qual quer cor, no exemplo vo por amarelo (clYellow).
Agora, na aba events, na parte OnChanger adicione o seguinte comando:

edit1.Color := clCream;

Pronto! Agora quando algum texto for adiciona no edit mudará da cor amarela para branco!

5 - PopMenu ou MainMenu enfeitados.
Do lado do item você pode por um ícone (que esteja no formato bmp), para isso basta escolher qual e na característica BitBtp escolher a figura!
Você pode procurar em sites as figuras, ou converte no site abaixo para o formato bmp.
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

6 - Form apareçer lentamente.
Já postei antes mas vo fazer uma mudança...

Adicione um Timer no form e nas características dele coloque o interval 1.
Agora no form na característica AlphaBlendValue coloque 0 e na AlphaBlend ponha true.

No Timer acrecente os seguintes comandos:

form1.AlphaBlendValue := form1.AlphaBlendValue + 2;

if form1.AlphaBlendValue = 254 then
begin
timer1.enabled := false;
end;

Você pode alterar o 2 (na primera linha) para a velocidade que vai aparecendo, mas lembre-se de colocar na terceira linha (if form1.AlphaBlendVa...) o maior valor múltiplo do número que colocou até 255.

Para os preguisosos coloquei alguns exemplos ^^

Lento

form1.AlphaBlendValue := form1.AlphaBlendValue + 1;

if form1.AlphaBlendValue = 255 then
begin
timer1.enabled := false;
end;

Rápido

form1.AlphaBlendValue := form1.AlphaBlendValue + 3;

if form1.AlphaBlendValue = 255 then
begin
timer1.enabled := false;
end;

7 - Botão com ícone.
Usse o bitbtn (2 aba) em vez do button!
No bitbtn na característica Kind ussa os ícones do Delphi, na Glyph você ussa o do seu PC.

8 - Botão seleciado ser alterado.
Adicione um button, no events OnMoseMove adicione o seguinte comando:

button1.Font.size := 10;

O resto fica por conta da sua criatividade!!
Se gosto clique no agradeçer, seu clique vale muito pra min ^^

[bitraptor]

interesting tips.

Good for begginners. congratulations

[CzarSuvorov]

assim fica massante de ler, da proxima vez coloque imagens e algo q possa interagir com a leitura, se vc está falando de projeto bonito vc tem q mostrar... não gostei do post, mas o conteúdo dá pra engolir

[Te[k]n0]

Boms tutos...
eu ja conhecia, mas ajuda muito a galera q acha q o estilo do delphi eh "feio" apesar de estar ultrapassado...

[.:JR:.]

Ótimas dicas obrigado por compartilhar o seu conhecimento.

[tecjas]

Valeu cara muito bom, estou chegando agora no forum e navegando nas paginas encontrei esse post. essa do estilo XP foi da hora.
Valeu Mesmo.

[wesleyrocha]

grande dicas vlw