Jhonas

Um exemplo: procedure TForm1.Button1Click(Sender: TObject); var val : real; begin val := 5.7555555; label1.caption := floattostr(round(val * 100)/100); // resposta 5,76 end; abraço

isto tem haver com tema que está sendo usado pelo vídeo entre no painel de controle e clique em Vídeo.... na paleta tema procure pelo tema que voce quer usar e faça o teste com o seu programa. abraço

Eu uso linhas verticais em meus relatórios e elas esticam conforme a quantidade de registros sem problemas. procure por exemplos no diretório do delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt ou va ate o site www.qusoft.com tem vários exemplos lá ( área de download ) abraço

seria só o executável, se o programa não não trabalhasse com arquivos ( Tabelas ).. por exemplo : um programa que trabalhasse somente com imagens ( tipo editor de imagens ). quando voce monta um programa que usará arquivos, o seu cliente estará comprando o executável, o BDE e as tabelas que fazem parte do programa ( num unico pacote ) o custo do trabalho, varia de programador para programador e também o nível de complexidade para a elaboração do programa e do tempo gasto para o seu desevolvimento. abraço

Tudo depende de como voce quer visualizar o relatorio use 3 groupheaders, 3 detail ... um para cada tipo Mas lembre-se .. há maneiras diferentes de se fazer o mesmo relatório procure por exemplos no www.qusoft.com http://www.quickreport.co.uk/downloadindex.html abraço

O windows Vista tem esses problemas ainda.... vários softwares não conseguem rodar em cima do Vista. De acordo com Microsoft voce tem que baixar uma atualização para que o problema seja resolvido. Pesquise pelas atualizações no site da Microsoft. abraço

Poste o codigo que voce já fez, para alguém poder te ajudar. abraço

Experimente usar o Combobox em lugar do DBCombobox, ou então trabalhe com uma tabela temporaria para ser usada especificamente com este DBCombobox. abraço

Robinho.... se voce não postar qual é o erro, quem é que vai advinhar ? postar o codigo onde acontece o erro também pode ajudar muito na solução do problema abraço

Lembre-se que se voce postar o codigo onde acontece o erro, fica mais facil alguém lhe ajudar. abraço

quando voce coloca linhas verticais na banda de detalhe, ela acompanha toda a extensão do registro, ou seja, a linha deve ser colocada no incio da banda e ser esticada até o final da banda. quando voce coloca linhas verticais em outras bandas, elas deverão permanecer fixas, não havendo mudança em seu tamanho. abraço

Veja se ajuda... http://www.baixaja.com.br/downloads/Window...-Code_2791.html http://www.forum-invasao.com.br/novo/viewt...02&p=260749 abraço

Um dos problemas: DtmRelatorios.FrCaixa.LoadFromFile('report1.fr3'); tente: DtmRelatorios.FrCaixa.LoadFromFile('c:\Sistema\Relatorios\report1.fr3'); abraço

Se não me engano, voce deve instalar uma atualização do Vista para resolver o problema...é o KB943202 ( microsoft ) ou ainda podem ser problemas com as dlls. abraço

Necessariamente não, mas facilita muito se voce colocar as tabelas na pasta do projeto. abraço

Uma maneira de se fazer isto: procedure TForm1.Image1DblClick(Sender: TObject); var F: TextFile; S: string; begin if OpenPictureDialog1.Execute then begin S := OpenPictureDialog1.FileName; AssignFile(F, 'C:\IMAGEM\PLANO.TXT'); Rewrite(F); Writeln(F, S); CloseFile(F); Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; procedure TForm1.FormActivate(Sender: TObject); var F: TextFile; S: string; begin if FileExists('C:\IMAGEM\PLANO.TXT') then begin AssignFile(F, 'C:\IMAGEM\PLANO.TXT'); Reset(F); Readln(F, S); CloseFile(F); Image1.Picture.LoadFromFile(S); end; end; OBS: Use o componente OpenPictureDialog para selecionar a imagem que voce quer usando o evento OnDblCick do componente Image que esta no Menu. Ao escolher a imagem, o caminho da mesma, será salvo em um arquivo TXT e a mesma será exibida pelo Image. Ao logar novamente o programa, será lido o arquivo TXT onde ficou armazenado o caminho para a imagem, e será exibida a ultima imagem salva. abraço

Isso vai dependender das distâncias entre os pontos ... quanto mais próximas, menos linhas retas serão mostradas e o gráfico ficará muito parecido com este do exemplo. já vi na net um componente para o delphi, para fazer este tipo de grafico, mas não me lembro mais qual foi o site que vi, pois não me interessei muito por ele. Faça uma pesquisa, talvez acabe encontrando. abraço

Use dlls para criar funções ou procedures que poderão ser usados em qualquer lugar do seu programa... fazer criação dinamica de formularios não vale a pena, pois voce cria o formulario em branco e depois terá que adicionar tambem em tempo de execução, todos os outros componentes que farão parte dele mais o código ... será que vale a pena tanto trabalho ? abraço

Ao Thelon e o Norivan ... É ensinando que se aprende mais... Parabéns

Coloque o componente Teechart num form, de duplo click no Teechart paa abrir o Editing Chart1 ( Editor de gráficos ) depois clique no botão Add e selecione o grafico Fast Line ou Line e utilize equações matematicas para gerar os pontos que formarão a curva. Outros recursos possíveis : http://wpslive.pearsoncmg.com/wps/media/ob...%20Graficos.pdf http://www.delphi.eti.br/dicas.php?p=21 (Procure Traçar e imprimir curvas de gráficos de equações) abraço

Um exemplo: procedure TFAtesta.DBEdit1Change(Sender: TObject); begin AtestaX_IB.Open; AtestaX_IB.First; if AtestaX_IB.Locate('EMPRESA',trim(DBEdit1.text),[loPartialKey]) then begin DBLookupComboBox1.KeyValue := trim(DBEdit1.text); //achei := 1; end else //achei := 0; end; OBS: conforme voce vai digitando, ele irá buscando o primeiro registro que contenha a sequencia de caracteres digitados. voce deve modificar este codigo para seu uso. abraço

A variavel Date tem valor = 0 sempre Tente dessa maneira If DateTimePicker2.date > Now Then begin ShowMessage('DATA INVÁLIDA, Data maior que a Data de Hoje.'); Exit; end; abraço

o campo esperado é do tipo string mas o encontrado é do tipo irreconhecido. Novamente ... se o campo foi definido na tabela e existe, qual é o tipo ? Outra observação: porque as duas primeiras posições são '..' ? em ultimo caso refaça o codigo que está na qryMenu abraço

Não é possivel apagar a tabela porque ela está em uso ("table is busy") Verifique se não existe nenhum outro comando que está mantendo a tabela aberta abraço

Basta fazer esta alteração no codigo: function TForm1.GetFileList(const Path: string): TStringList; var I: Integer; SearchRec: TSearchRec; begin Result := TStringList.Create; try I := FindFirst(Path, 0, SearchRec); while I = 0 do begin Result.Add(copy(SearchRec.Name,1,Pos('.',SearchRec.Name)-1)); // alterar esta linha I := FindNext(SearchRec); end; except Result.Free; raise; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines := GetFileList('C:\MinhaPasta\*.mdb'); end; abraço