Olá pessoal.
O comando get, ao ser preenchido todo o campo, pula automaticamente para o proximo. De uns tempos para ca, às vezes pula, às vezes não. Há algum comando que manipule isso? Isso acontece também numa solicitação ao usuario responder S/N com valid. Ao preenche S, por exemplo, ja fazia o read.
Uso o xHarbour.
Outro problema é, um cliente usa chamar o programa duas ou trez vezes no mesmo computador, ou seja, mais de uma janela com o mesmo sistema. Apos algum tempo. na barra de tarrefa, junta todas numa so. Há como configurar o windows para não juntar as janelas na barra de tarefas?
Laudelino.
Get
Moderador: Moderadores
-
Laudelino Scarmagnani
- Usuário Nível 3

- Mensagens: 303
- Registrado em: 07 Fev 2007 10:54
-
alxsts
- Colaborador

- Mensagens: 3092
- Registrado em: 12 Ago 2008 15:50
- Localização: São Paulo-SP-Brasil
Re: Get
Olá!
Para exigir que o usuário termine um Get com um Enter, mesmo que o campo esteja totalmente preenchido, use
ou
Quanto à outra questão:
Clique com o botão direito sôbre uma área vazia da barra de tarefas e então em propriedades. Na aba Barra de Tarefas, desmarque a opção Agrupar botões semelhantes da barra de tarefas. Clique em Aplicar e Ok.
Para exigir que o usuário termine um Get com um Enter, mesmo que o campo esteja totalmente preenchido, use
Código: Selecionar todos
SET CONFIRM ONCódigo: Selecionar todos
#include "Set.Ch"
Set( _SET_CONFIRM, .T. )Clique com o botão direito sôbre uma área vazia da barra de tarefas e então em propriedades. Na aba Barra de Tarefas, desmarque a opção Agrupar botões semelhantes da barra de tarefas. Clique em Aplicar e Ok.
[]´s
Alexandre Santos (AlxSts)
Alexandre Santos (AlxSts)
- alaminojunior
- Colaborador

- Mensagens: 1717
- Registrado em: 16 Dez 2005 21:26
- Localização: Ubatuba - SP
Re: Get
Ou, para não permitir que duas instâncias do programa sejam abertas, coloque no início dele:
Me parece que precisa da what32.lib compilada junto.
Código: Selecionar todos
#define _BARRA_DOS_WINDOWS_ "\"
If (Empty(CreateMutex( , .T., Strtran(GetModuleFileName(),_BARRA_DOS_WINDOWS_,'_') )) .Or. (GetLastError() > 0 ) )
alert("Programa ja esta sendo executado neste terminal !")
quit
EndIfCompilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
MySQL c/ SQLRDD
HwGui + GTWVG