Alguém sabe como fazer?

[NewTroy 0]

Boa Tarde, Gostaria muito de criar uma espécie de Prompt de Comando

 

não prescisa ter a primeira parte (onde informa o endereço) nem todas as funções só algumas

 

Acho que poderia usar o componente memo, mas como faço para desabilitar as setas nele (para que somente possa escrever na linha que está ativa).

 

e qual o evento em que eu ponho as funções para que quando eu der enter ele faça a função?

[Ryokusei 28]

É só vc mexer nos eventos OnKeyPress/OnKeyDown, nesses dois vc consegue tudo oq quer.

[NewTroy 0]

e como faço para ele reconhecer as função, ex:

 

no prompt de comando fica + ou - assim:

 

Copy "Caminho do Arquivo de Origem" "Caminho do Arquivo que será criado"

 

como faço o memo (ou então usar um timer) reconhecer a função Copy e os caminhos???

[~OwneR~ 8]

Coloque isso no evento onKeyDown do Memo:

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

• Entre
• ou
• Cadastre-se

[Owner 8]

Isso que eu ia dizer ↑

Usa o CMD para fazer os comandos é mais facil do que registrar os comandos no programa, e mude as opções do memo, colocando o fundo preto e mudando a letra, e muda o cursor do mouse !

Até e Abrasz

[NewTroy 0]

mas no caso eu gostaria de fazer minha próprias funções, como posso fazer isso?

[Vator 11]

Ah,vá.

 

Estuda e faça.

 

Fazer um 'CMD' é como fazer uma pequena linguagem de script,é difícil mesmo.

[NewTroy 0]

eu acho q não fui 100% claro:

 

desejo fazer uma espécie de prompt de comando para um programa que está embutido nele

 

vamos por passos:

 

* Desejo bloquear as setas, backspace, pgup, pgdn, end, home, etc do memo o que eu devo fazer para q isso acontessa?

 

* Desejo que tota vez que eu der enter aparessa no começo da linha a atual um sinal de maior ( > ) indicando para se começar o código.

 

também desejo que começe o memo com esse sinal, mas quando eu vou na propriedade lines e add o sinal de maior, quando o programa inicia, a linha atual fica sendo a de baixo (em branco).

 

* o mais difícil, quando eu der enter desejo que ele encontre a linha atual (ex. Memo1.Lines.Linha_Atual.Text) pode até ser por função, mas é muito importante.

 

bem é isso aí quem souber e quizer ajudar mande uma resposta

 

Aguardo...

[Owner 8]

Ferramentas:

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

• Entre
• ou
• Cadastre-se

 

Configure o memo do modo que quiser e vou explicar o que o programa CMD improvisado vai fazer:

Quando a pessoa apertar Enter, o comando vai abrir o CMD ocultamente e colocar o texto que está no memo.

Coloque este código no OnKeyPress do Memo:

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

• Entre
• ou
• Cadastre-se

 

Ai é só mexer nas configurações, mudar pra preto e etc ...

 

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

[sENHA]

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

• Entre
• ou
• Cadastre-se

[/sENHA]

 

Até e Abrasz :amor:

[luxfer 0]

Seus próprios comandos? beleza =D

 

QUando o cara pressionar enter, voce faz a verificação do que ele escreveu

por exemplo, ele escreveu:

{um echo, com fonte verde}

echo #green HELLO WORLD!

 

if UPPERCASE(Copy(Memo1.Lines.Strings[Memo1.Lines.Count-1],1,4)) = UPPERCASE("echo") then begin

{voce deve começar um loop aki para verificar letra por letra na linha, nao vo faze pq é muita mão}

if Copy(LinhadoMemo,5,1) = "#" then

lê o que tiver dps do "#", no caso é green, entao voce ja muda a fonte pra Verde

se nao tiver outro "#",significa que o resto é o texto do ECHO

end;

 

isso é só uma base, bem simples, voce vai presisa se empenhar muito, muito mesmo, e acredite, vai vir muuuitos bugs

[Vator 11]

Se você quiser comandos de uma só palavra,por exemplo :

 

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

• Entre
• ou
• Cadastre-se

 

Acho fácil,só não sei fazer no Delphi.

[NewTroy 0]

era isso o que eu queria:

 

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[sENHA]

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

• Entre
• ou
• Cadastre-se

[/sENHA]

 

porém ainda não está pronto, preciso ainda aprender a desabilitar as setas do memo e proibir de apagar o sinal de maior ( > )

 

Alguém pode me ajudar nisso?

[luxfer 0]

;)

verifique se a uses "Messages" tá declarada;

 

Evento OnKeyPress do Memo:

 

procedure blabla.onKeyPress(blablablabla)

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

• Entre
• ou
• Cadastre-se

 

Tirar a seta eu ainda nao descobri

[NewTroy 0]

valeu pela dica, além das setas acabei de perceber o que mais eu tenho que desabilitar: o mouse. Como eu desabilito o mouse dentro do memo? (para q não seja possível mudar de linha)

[luxfer 0]

nao presisa desabilitar o mouse

faça o seguinte no evento OnMouseDown e OnMouseMove o mesmo código:

 

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

• Entre
• ou
• Cadastre-se

 

Nao se esqueca de, alem de bloquear o BackSpace para nao deletar a '>', voce deve bloquear o DELETE tambem...

alias, bloqueie todas as teclas caso o usuario esteje antes do sinal ">".

e ao pressionar qualquer uma das Setas, bloqueie caso passe da '>' flechinha, afinal o usuario nao pode digitar antes dela, né?

ja te passei o codigo base para voce melhora-lo, aplicando nas setas e em qualquer outra tecla, entao eu te aconselho a fazer sozinho daqui pra frente

pelo menos essa parte de pressionamento de teclas

[Ryokusei 28]

Cara é mais fácil vc pegar o texto que vou inputado com ENTER, usar shellexecute nele e pegar o texto do console do prompt.

[luxfer 0]

mas ele quer adicionar os proprios comandos

portanto terá que fazer do jeito dificil

 

-

 

cara eu to fazendo uma copia do CMD aki

ja tem os seguintes comandos funcionando 100%:

 

ECHO(igual o do CMD)

ALERT(igual o MSG do CMD, porem com algumas opcoes a mais, como titulo,botoes OK e cancel)

ex: alert "Hello World!" with TITLE TITULO MSG!

alert MENSAGEM SEM TITULO!

alert "Mensagem com botao OK e CANCEL" with button OKCANCEL

COLOR (igual o do CMD)

exit (....)

help (....)

 

ainda nao tem suporte a variaveis...vou ver se coloco amanhã.

 

assim que eu termina eu posto aqui blz

[NewTroy 0]

tenho mais uma pergunta, assim como em OnKeyPress vc pode bloquear a tecla com Key := #0;

 

em OnKeyDown existe alguma coisa parecida tipo: VK_NONE ???

[luxfer 0]

No evento onKeyDown:

 

key := 0;