Douglas Soares

Esse Jhonas é um Crânio :ninja: :ninja: :ninja: .... Vlw mesmo =D

Você deve excluir todos os projetos que compilou no ultimo mes... pois esse virus era oculto até então, e só a alguns dias que os antivirus o detectaram.... após apagar todos os executaveis, tente executar o programa e em seguida compile suas fontes novamente. Obs: seria bom se apagasse sua pasta System Volume Information para retirar qualquer virus que sobrou (para fazer isso veja nesse link: http://www.comandodigital.com.br/forum/index.php?showtopic=8 ) Abraços

nicolasbraz, será que você poderia nos passar como você fez?, eu tambem gostaria de fazer isso.... Abraços

Qual o nome do virus que o anti-virus detecta?, seria Win32 / Induc.a? se for veja esse link: http://www.comandodigital.com.br/forum/index.php?showtopic=2 Abraços

mas se ele abre pra instalar, porque você não instala?

É isso mesmo, eu não sabia dessa opção, muito obrigado nicolasbraz e Jhonas! Abraços

No meu IBTransaction não tem essa opção :unsure:

Opa, não funcionou.... continua não atualizando :mellow: Abraços

Bom dia, estou tendo dificuldades com uma IBTable, eu uso ela para trazer todos os registros de uma tabela... porem quando faço um novo registro eu uso um cds que esta ligado a um dps que esta ligado a uma SQLQuery, porem quando faço o registro, essa ibtable não atualiza enquanto eu não reinicio o programa! o que poderia ser?

Resolvi de outra forma, Obrigado!

Bom dia, gostaria de saber se no delphi tem algum tipo de macro para substituir palavras, por exemplo, tenho um form com 5 nomes! ao invez de fazer varios If else, gostaria que ele trocasse: frmPrincipal.cdsClientes.open; frmPrincipal2.cdsClientes.open; frmPrincipal3.cdsClientes.open; frmPrincipal4.cdsClientes.open; frmPrincipal5.cdsClientes.open; dai ele ficasse tipo assim: MeuMacro.cdsClientes.open; Existe alguma forma de fazer isso? Abraços

Consegui =D, botei o WindowState para "wsMaximized", deu certo.... Amém..... Abraços

Então eu queria que ficasse sempre na tela inteira!, menos emcima do menu iniciar, ehehe! Amém! :ninja:

Boa Tarde... tenho um form que no delphi o tamanho é pequeno, porem quando eu compilo ele cresce com o seguinte código: procedure TfrmPrincipal.FormCreate(Sender: TObject); var h , w : integer; begin qtd_tabs := -1; SetLength(ts,5); qtd_tabs := 0; PageControl1.Left := 0; PageControl1.Top := 864; PageControl1.Width := 1271; Self.Top := 0; Self.Left := 0; Height := 560; Width := 800; FrmPrincipal.scaled := true; h := longint(height) * longint(screen.height) DIV ScreenHeight; w := longint(width) * longint(screen.width) DIV ScreenWidth; Constraints.MinHeight := h; Constraints.MaxHeight := h; Constraints.MinWidth := w; Constraints.MaxWidth := w; end; No meu computador o PageControl fica no lugar correto!, que é encima do status bar!, porem no outro computador, ele fica muito abaixo, que faz até uma barra de rolagem a direita>, gostaria de saber o porque?, e como corrigir! Abraços

Fiz minhas gambis aqui e já deu certo :wacko: , vlw jhonas, suas dicas ajudaram bastante!!! Abraços

Estou com um problema lógica.... no FormActivate, tenho que dar o seguinte comando: frmPrincipal.PageControl1.ActivePage := formname; sendo que formname é uma variável do tipo STRING no entanto, a variavel formname contem o nome do TTabSheet que eu preciso que esteja ativo! Será que eu teria que fazer alguma conversão :wacko: ...... Abraços

Hummm, consegui, agora só falta eu setar a ActivePage para a pagina que acabei de criar.... como eu faço isso? Abraços

não é isso, eu crio um page em runtime e os deleto quando fecho o form, dai eu associo um evento onchange para cada botão criado, dai nesse onchance eu queria saber se tem um jeito pra eu saber o nome da page que eu acabei de clicar.... ShowMessage(TabSheetClidada.Name); Abraços

Estou quase chegando lá.... agora uso um PageControl, e como posso saber o nome da pagecontrol que eu cliquei, no onclick dela, exemplo: procedure TfrmCadClientes.ClickMe(Sender : TObject); begin with (Sender as TPageControl) do begin ShowMessage(botãoquecliquei.name); end; end; é isso ai que eu queria :wacko: Abraços

Amigo, faz o que te disse, veja como ele tras os logs, dai se gostar, faz ele adicionar aquilo em uma tabela ao invez de um Memo. Abraços

Num entendi muito bem, na verdade o que eu quero é abas mesmo, da mesma app, se eu soubesse como fazer isso do zero....... :wacko: Obs: não precisa ser com button, eu só fiz pra testar, pode ser com qualquer componente......... funcionando está bom, ehehe! Abraços

Faça o seguinte: modulo.DATA_P_bomba.close; modulo.DATA_P_bomba.sql.clear; modulo.DATA_P_bomba.SQL.Add(edtpesq.Text); try modulo.DATA_P_bomba.ExecSQL; showMessage('Rotina Concluída'); Except showMessage('Erro ao executar a query'); end; Abraços

Voê está querendo executar comando dos MS-DOS na parte de cima, e na parte de baixo exibir os resultados ao invés de exibir na propria tela do DOS?, é isso?

Nossa, tive esse mesmo problema ontem, eu peguei e desativei o Hint, heheheh, se alguém puder nos ajudar agradeço.... Abraços

Adicione o Componente IBSqlMonitor que está na paleta Interbase, va no seu IBDatabase, e nas opções Trace Flags, sete todas para True! então no componente IBSqlMonitor, va nos events, OnSQL, lá insira o seguinte código: form1 := tform1.create(application); form.Memo1.Lines.Add(DateTimeToStr(EventTime) + ' ' + EventText); Caso tenha mais alguma duvida veja este Link: http://www.comandodigital.com.br/forum/index.php?showtopic=7 Abraços