[Delphi] Ajuda!!

[rafito15 0]

Gostaria que a tecla respondesse sem o programa estar selecionado(Ex. estou navegando na internet e aperto o F2,

que eu determinei no delphi para executar uma função enquanto estou em outro programa)

[rafaelduel 0]

não intendi

[Vator 10]

Ah,quis dizer Hotkeys Globais ? (Se não quis,estou respondendo tua pergunta).

 

Use isto.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Exemplo de uso:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

^CTRL + F7,substitua pela desejada.

 

Quando fechar o programa:

OnClose do Form:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Espero que dê para entender e que o ajude.Se não entendeu,pergunte.

 

RafaelDuel,cuidado com o flood,hein.

 

Valeu.

[rafito15 0]

No Evento OnKeyDown Na Form Adicionei Esses Codigo.

IF KEY = VK_F2 THEN

Timer1.Enabled := True;

+ eu aperto F2 em outro programa sem ser o delphi ele nao executa a funçao dele.

[Vator 10]

A HotKey precisa ser global.Se for assim,ele só executa COM FOCO NA APLICAÇÃO,COM ELA ABERTA.Tenta o código que postei e no lugar de

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

use

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

:pensando: :lol:

 

Se não entendeu,pergunte ^^

[rafito15 0]

Eu fis isso + nao deu certo, ou eu fis alguma coisa errada.

[Vator 10]

Poste o código inteiro,para que possa ver o erro :smiley:

[nubatikaas 0]

@vator

rafaelduel banido por floid ?

não ..

fui banido denevo =(

[Vator 10]

Acho que vi você chamando o Ryokussei de pi****...Hahaha.Cuidado.

[rafito15 0]

unit Unit1;

 

interface

 

uses

Messages, Windows, Classes, ExtCtrls;

// Classe principal da sua aplicação.

protected

procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

 

type

TForm1 = class(TForm)

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

procedure TMainForm.WMHotKey(var Message: TMessage);

begin

RegisterHotKey(Handle, 100000 { Qualquer número q ñ esteja usando}, MOD_CONTROL, VK_F7);

 

Timer1.Enabled := True;

end;

 

{$R *.dfm}

.

[Vator 10]

Coloque o código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

ABAIXO do {$R .dfm}

 

...

[rafito15 0]

ta dando muito erro

 

to quase desistindo já ;/

[Vator 10]

Não desista.

 

Seguinte,apague toda essa baderna e ponha o que acabei de criar.

 

No private declarations bote isto:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No Form Create(clique duplo no formulario)bote:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Aki vc bota no final do código após o end; e antes do end.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Este eu testei,funfa belezinha,manolo !

[rafito15 0]

Aeeeeeeeeee consegui :smiley:

Vator vlw mesmo cara

 

Tem como deixar só f12 ao inves de ctrl + f12?

[Ryokusei 21]

nubatikaas e Vator, seus comentários foram fora do escopo do tópico, favor postar somente conteúdo relacionado ao tema do tópico.

[Vator 10]

Pode ser outra tecla? F12 dá erro na hora,porque o Delphi ja usa.

 

 

 

Se for só uma tecla, substitua por isto:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se