ActiveDelphi

[jairovital]

Tenho um componente FilenameEdit, da RxLib, que gostaria de abrir um arquivo com ele através de uma tecla de atalho (CTRL-O).

Tentei o componente com a propriedade Dialog seguida da função Execute, mas ela é só uma propriedade e o retorno é boolean, ou seja, não se aplica.

Também tentei a procedure DoClick do componenente, mas não funciona e dá erro.

Ou seja, eu gostaria de abrir um arquivo pelo componente FilenameEdit usando uma tecla de atalho (hotkey). Alguém tem alguma dica boa?

[Batera]

[jairovital]

Ôpa, Batera!

Que beleza ainda encontrar você por aqui, como sempre ensinando muita coisa boa!

Pois é, ainda não me aventurei pelo Jedi...

E o meu Delphi é o 7.

Está dando o seguinte erro em:
if Key = ^O then
Incompatible types.

Este If está no evento OnKeyDown do Form, que tem a seguinte definição:
TForm_LargLeg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Eu encontrei outro código que sugere colocar um componente Timer com intervalo de 1, e dentro dele colocar o seguinte:

[adami]

amigo tenta isso

no evento do formulario : OnKeyDown

//111 = O e 79 = o
if (key = 111) or (key = 79) then begin
OpenDialog1.Execute;
end;

[jairovital]

[Batera]

Opa Jairo, to aqui ainda! rsrs
Jairo, o código que te passei é pra ser colocado no evento OnKeyPress! Não é no OnKeyDown não...

[adami]

L = 76 //maiúsculo
l = 108 //minusculo

o OpenDialog é nativo do delphi, o delphi 7 possui ele, esta na aba Dialogs.

[jairovital]

[jairovital]

@Batera:

Acabei de fazer outro teste: colocando o código no evento OnKeyPress do componente FilenameEdit, e não no evento do formulário, e também SEM colocar o (Handle), apenas FilenameEdit1.Dialog.Execute, a janela de diálogo para abrir o arquivo aparece, desde que eu esteja com o foco no FilenameEdit! Mas tenho dois problemas ainda: primeiro, ao selecionar um arquivo e pressionar o botão "Abrir", o nome do arquivo não é passado para o campo do FilenameEdit. Ou seja, não vai abrir o arquivo. Segundo, eu gostaria que o CTRL-O fosse pressionado com o foco em qualquer componente do formulário e não somente se o foco estiver no FilenameEdit.

Entendeu as paradas? Diz aí tua opinião, mestre Batera.
(ou outro colega que tenha a solução).

[Batera]

Verdade Jairo... fiz o teste aqui também e aconteceu a mesma coisa.
Experimente trocar o evento OnKeyPress do formulário para:

[jairovital]

Caríssimo colega Batera.

Funcionou! Mas faltou algo importantíssimo que nós nos esquecemos desde o começo. O formulário tem uma propriedade chamada KeyPreview. Essa propriedade é falsa, por padrão. É necessário que ela seja verdadeira para que qualquer evento KeyPress funcione.

Coloquei o seu código e nada e nada. Tentei e tentei e nada. Foi quando me lembrei da safada Keypreview, que estava em falso... Coloquei em verdadeira e... voilà!

Valeu! Tópico RESOLVIDO.

[jairovital]

Aproveitando mais uma raspinha do seu conhecimento, caso eu queira colocar F1 para Help, qual seria o valor de Key em Keypress do formulário?

Tentei VK_F1, tentei Key_F1 e também #70, mas nenhum deu certo.

[Batera]

Opa Jairo, que bom que deu certo!
Tem essa parada do KeyPreview mesmo, rsrs.
Eu acho que pro F1 você terá que utilizar o evento OnKeyDown do formulário:

[jairovital]

Batera, amigão, agora é só alegria! Deu tudo certo!