.:fuu:.

Toda vez que o form recebe um comando para ser fechado,

tal como Form1.Close / application.Terminate ou ateh mesmo uma mensagem WM_CLOSE, o evento, OnCloseQuery é usado. Este evento passa um parâmetro por

referência normalmente chamado de CanClose. Se alternarmos o valor

deste parâmetro para false o processo de fechar o formulário

sera cancelado.

1. Declare um campo (variável) na seção Private:

2. No evento OnCreate (2 cliques no form) coloque:

3. No evento OnCloseQuery do form coloque:

Mas ai sem o Alt+F4, o usuario nao podera fexar a aplicaçao, para isso , poderemos botar um Button, com a funçao de fexar o form, ou liberar o Alt F4 :D

4. Coloque o botão no form e declare no OnClick:

Assim, ao apertar o Botao Fechar, seu form sera fexado =]

Bjundas ;*

Esse eh um simples programinha pra ti sabe seu propio IP .-.

1° Declare nas uses:

2° Declare loga abaixo de {$R *.dfm} :

Essa eh a funçao pra pega o IP ( Avá .-.)

3° Depois Declare em um Button, Nesse exemplo eu usei um edit pra mostra o IP, mas voce poderia usa um ShowMessage, label o baralho a 4...

4° Nome da maquina:

4.1° Declare isso em algum lugar depois de um end;

Para retornar o nome da maquina basta declarar em um button:

Voce pode utilizar um label, showmessage...

5° IP Externo

5.1° Declare em um button:

Eu coloquei tudo em um button soh ficando assim:

Assim, clicando no button, ele jah mostra todas as informaçoes :D

Resultado :

Boa noite emos .-.

Beijo na bunda

Eu vi que quase todos os tema de windows 7 pra xp que tem por ae, nao tem o Aero e a barra de tarefas do win7, ai como antigamente ( tempo do EPA) eu mexia com skins no pc, eu lembrei dos programas que eu usava pra da esse efeito :D

1° Aero (True Transparency):

True Transparency é um aplicativo simples que altera as bordas das janelas de programas e aplicativos do Windows, deixando o visual do seu monitor com uma nova aparência.

O true transparency, conta com 4 opçoes de skins:

-Aero: Oferece um tom transparente as bordas dos programas e aplicativos. O contraste do tom é mais acentuado.

-Contact: Esta opção apresenta transparências nas bordas com alteração da fonte dos programas ou títulos dos navegadores que aparecem na borda.

-CXP: Torna as bordas dos aplicativos do PC na cor preta, proporcionando um ar clássico ao computador.

-Leopard: Se preferir pode optar pela Skin Leopard e deixar as bordas na cor cinza claro.

-Mac: Transforme as bordas de todas as janelas com cores cinza, com os botões de Fechar, Restaurar e Maximizar localizados no canto esquerdo, e com ícones coloridos.

-OldAero: Na mesma linha da Skin Aero, esta opção fornece um tom transparente, porém com contraste menor.

Lembrando que o true transparency nao eh uma skins, e sim um simples programa que tu liga quando queh :D ( nele tem a opçao pra liga junto com o windows)

Download:

Scan:

2° Menu iniciar do win7 ( ViGlance):

De que adianta utilizar um tema para o XP que imita o visual moderno do Vista ou do novíssimo Windows 7 se logo na hora de iniciar qualquer programa você continua utilizando aquela mesma Barra de Tarefas de sempre?

O Viglance faz isso, sem nen instalar nada =]

Vc apenas precisa executa e ver a mudança acontecer, vc pode botar ele pra iniciar junto com o windows assim nao precisa fica executando ele sempre.

Usado direto no winXP sem algum tema do win7:

Usado junto com algum tema do win7:

Download:

Scan:

3° Botao redondinho do Win7 (ViOrb):

O ViOrb eh um simples programinha que quando tu executa ele, ele muda akele [ INICIAR ] verde e feio, pra akela bolinha do Win7 =]

Sem instala nada, soh executa e deu AISDJIASDJ

Download:

Scan:

4° Menu do Win7 ( ViStart):

ViStart é um programa que lhe permite ter o característico menu do Windows Vista/ 7 instalado no seu Windows XP. Uma das maiores inovações do Windows Vista / 7 foi seu Menu Iniciar, que agora não tem mais o nome “Iniciar”.

( SS utilizando ViStart e ViGlance '-' )

Download:

Scan:

Enjoy!

Bjundas ;*

Eminhos :3

Esse eh um metodo MUITO simples de mover seu form apenas clicando em qualquer lugar e arrastando ( mt usado em launchers '-' )

1° Clique no form, va para o object viewer ( ou inspector sei lah ), e procura o evento

MouseDown, da 2 clique nele e declara:

Vai fica assim :3

Simples não?

Agora soh compila (F9) e sai arrastando seu form por ae .-.

Bjundas

Em alguns programas quando tu clica no Edit ele diferencia akele edit dos outros, Como fazer isto em Delphi?

1° Declare em PRIVATES o seguinte codigo:

Vai fica +/- assim:

2° Declare isso abaixo do { $R *.dfm}

3° Agora no evento OnCreate ( 2 clique no form ) :

4° Depois Declare no evento FormAtivate:

Resultado:

Ai vc pergunta:

1° Eu vo tira daonde as cores pro edit?

Simples, vá no ObjectView, ou inspecotr sei lah e procure pela opçao COLOR, clica nela e vai aparece varias cores, procure a que mais lhe agrada copie ela e mude na source =]

Bjundas ;*

Fala emos, agora a poco , eu tava finalizando um bot aki, ai eu ia coloca uma função pra da ctrl c e ctrl v numa certa frase... Ai eu fui ve na tabela de VK_Key's e não tinha o codigo das letras --'

Como axa elas?

Ai eu consegui faze por Codigo ASCII delas *-*

Mas ai tu vai lá na tabela de Keys e não tem o codigo ascii delas '-'

Tem sé o hexadecimal ( que eu não sei usa.. ), como achar o codigo ASCII das letras?

Simples:

1° Mude a propiedade KeyPreview do seu form para TRUE, pode mudar no Object Inspector ou Object View ( nunca lembro o nome disso --' ) , ou por code tbm :]

2° Coloque 1 Label na sua form

3° No evento OnKeyDown do form declare:

Ficando assim:

3° Execute ( F9 ), e pressione alguma tecla , e o label ira mudar pra o codigo ASCII dela *-*

4° Ai para utilizala com Keybd_Event eh soh usar assim:

Mais duvidas sobre o Keybd_Event, soh visita meu tutorial sobre o assunto *-*

Créditos:

Eu ._.

Beijo na nadega direita do Edoo