Get

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Laudelino Scarmagnani
Usuário Nível 3
Usuário Nível 3
Mensagens: 303
Registrado em: 07 Fev 2007 10:54

Get

Mensagem por Laudelino Scarmagnani »

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.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Get

Mensagem por alxsts »

Olá!

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 ON
ou

Código: Selecionar todos

#include "Set.Ch"
Set( _SET_CONFIRM, .T. )
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.
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: Get

Mensagem por alaminojunior »

Ou, para não permitir que duas instâncias do programa sejam abertas, coloque no início dele:

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
EndIf
Me parece que precisa da what32.lib compilada junto.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Responder