Douglas Soares

Consegui, vlw!

Pra deixar invisivel você muda a propriedade Visible para false, e para ir na página do rádio você faz assim: WebBrowser1.Navigate('www.radio.com.br'); Abraços

Tem sim, é só você trocar o Self pelo nome do form2: var i : integer; begin for i := 0 to Self.ComponentCount - 1 do begin if Self.Components[i].ClassType = TADOTable then begin TADOTable(Self.Components[i]).Active := true; end; end; end; Abraços

Se você quer ativar de um form apenas chamando um você pode fazer assim: var i : integer; begin for i := 0 to Self.ComponentCount - 1 do begin if Components[i].ClassType = TADOTable then begin TADOTable(Components[i]).Active := true; end; end; end; Abraços

Boa tarde... tenho um dbgrid ajustado para ocupar todo um form... gostaria de desativar a barra de caption desse form e poder move-lo através desse DBGrid... já tentei de todas as formas desativat o caption e não deu certo :angry: .... alguém pode me ajudar? Obrigado

Acredito que a melhor forma de se fazer é utilizando os proprios recursos do firebird, através do arquivo aliases.conf que se encontra na pasta dele, nele você pode apagar tudo ou simplesmente escrever o exemplo abaixo após os comentários # meuprograma=C:\pasta\banco\arquivo.gdb Ou seja, na hora da conexão local você simplesmente conectaria assim: meuprograma, e quando fosse na rede você se conectaria assim: NOMEDOSERVIDOR:meuprograma Acho bem mais facil doque ficar escrevendo o caminho toda vez :D Abraços

Tente Form1.ShowModal; Abraços

Você faz logoff e vai para outro usuário??? preciso saber exatamente se você faz logoff ou troca de usuário! Abraços

Veja esse exemplo: http://www.componentace.com/master-detail-delphi.htm Abraços

Não entendi... ao efetuar logoff de onde? você usa servidor e estação? é uma rede ou é pela internet??? tente explicar melhor por favor! Abraços

Isso acontece porque o delphi não está conseguindo encontrar essa generator, esse erro pode acontecer simplesmente por escrever errado, exemplo, se você criou ele com letra minuscula, meugenerator_id, e tentar chama-lo com letra maiuscula MEUGENERATOR_ID daí vai dar erro mesmo, tenta ver se é isso! Abraços

Boa jaumdodelphi! ahhaah uma fez eu fiz um desses e coloquei o mesmo nome... svchost.exe ahahahaha, você deve ter feito isso porque tem varios processos no windows com o mesmo nome né ahhaa, o windows deveria bloquear a execução de processos com esse nome se não fossem dele né... mas fazer oque?... vamo aproveita enquanto da pra faze isso rsrsrssr Abraços

Encontrei a solução, mas quem deve resolver isso é o dono do fórum :unsure: http://www.google.com.br/#hl=pt-BR&q=a...927b2893393c4d4 hehehe tomara que com esse novo caso ele resolva fazer isso de vez :( Abraços

Fica mais facil te ajudar se você colocar o código do Insert. Abraços

Isso aí é uma checagem de tabelas e campos, toda vez que abre a aplicação ele checa se a tabela existe, se não existir ele cria, e em seguida faz a mesma coisa com os campos! Abraços

Creio que você pode usar o componente DBListBox da paleta DataControls. Abraços

O Jhonas já te passou um link acima com um exemplo de como começar um keylogger... Abraços

Assim: SaveDialog1.InitialDir := 'c:\ArquivosSalvos'; if SaveDialog1.Execute then richedit1.Lines.SavetoFile(Savedialog1.FileName + ' - ' + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll])); richedit1.SetFocus; Abraços

Quanto a questão de não deixar mudar a pasta não descobri a razão disso :( , o que você pode fazer é o seguinte, quando ele clicar em salvar independente de onde estiver você pode salvar o arquivo no diretório que você quer, pra isso basta inserir o caminho ali no richedit1.lines.savetofile(caminho + ........) Putz desculpa, esqueci que era pra nome de arquivo ehehe, faz assim que não vai mais dar erro... SaveDialog1.InitialDir := 'c:\ArquivosSalvos'; if SaveDialog1.Execute then richedit1.Lines.SavetoFile(Savedialog1.FileName + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll])); richedit1.SetFocus; Você tem que fazer como no exemplo que te passei, antes de executar o dialog você deve setar o initialdir via código.... Abraços

Para colocar um diretório padrão você precisa colocar o caminho no InitialDir do componente assim: OpenDialog1.InitialDir := 'c:\ArquivosModelos'; OpenDialog1.Execute; Para não deixar o usuario alterar a pasta você deve ir na propriedade OPTIONS do componente e deixar a opção ofNoChangeDir como TRUE Para o SaveDialog1 você faz a mesma coisa e adiciona a data no nome SaveDialog1.InitialDir := 'c:\ArquivosSalvos'; if SaveDialog1.Execute then richedit1.Lines.SavetoFile(Savedialog1.FileName + DateToStr(Date)); richedit1.SetFocus; Abraços

Parabens pela vitória *FIT*, só não ganhei porque não participei por 2 rodadas decisivas, ahhahaha Vlw

JOGO 01: INTERNACIONAL-RS JOGO 02: VITORIA-BA x GOIAS-GO JOGO 03: SÃO PAULO-SP JOGO 04: FLAMENGO-RJ JOGO 05: SANTOS-SP JOGO 06: GREMIO-RS x VASCO-RJ JOGO 07: CORINTHIANS-SP JOGO 08: FLUMINENSE-RJ x CRUZEIRO-MG JOGO 09: CEARA-CE JOGO 10: PALMEIRAS-SP x BOTAFOGO-RJ

JOGO 01: SÃO PAULO-SP JOGO 02: VASCO-RJ JOGO 03: CRUZEIRO-MG JOGO 04: CORINTHIANS-SP JOGO 05: FLAMENGO-RJ JOGO 06: PALMEIRAS-SP JOGO 07: INTERNACIONAL-RS JOGO 08: SANTOS-SP JOGO 09: BOTAFOGO-RJ JOGO 10: GREMIO PRUDENTE-SP x GREMIO-RS

JOGO 01: GREMIO-RS x VITORIA-BA JOGO 02: CRUZEIRO-MG JOGO 03: SÃO PAULO-SP JOGO 04: FLAMENGO-RJ JOGO 05: INTERNACIONAL-RS JOGO 06: VASCO-RJ JOGO 07: CORINTHIANS-SP JOGO 08: SANTOS-SP JOGO 09: ATLETICO-MG JOGO 10: FLUMINENSE-RJ x GREMIO PRUDENTE-SP

Adicione a Use ClipBrd no seu projeto. Tenta fazer isso no evento OnKeyDown do DBGrid: if (ssCtrl in Shift) and (Key=Ord('C')) then begin if DBGrid1.SelectedField = adotable1.FieldByName('qualificacao') then begin Clipboard.AsText := ADOTable1.FieldByName('qualificacao').AsString; end; end; Lembrando que essa linha: Clipboard.AsText := ADOTable1.FieldByName('qualificacao').AsString; você tem que colocar o campo do Memo, se for esse então deixa assim... caso não dê certo, tente colocar outra coisa no OnKeyDown do DBGrid: if (ssCtrl in Shift) and (Key=Ord('C')) then begin Clipboard.AsText = trim(lowercase('(memo)')) then Clipboard.AsText := ADOTable1.FieldByName('qualificacao').AsString; end; Abraços