Jhonas

Voce está confundindo as coisas. o groupheader +detail+groupfooter tem seus tamanhos definidos pelo usuário, se o tamanho desse grupo não couber em uma pagina, será automaticamente passado para uma nova pagina, isto em função da banda Detail Vai ai alguns exemplos: http://www.quickreport.co.uk/QR5_Downloaddoc.html abraço

Voce está dando o comando para salvar os registros na tabela? Table1.Post; Table1.ApplyUpdates; abraço

Tente dessa maneira: procedure TForm1.Button1Click(Sender: TObject); var H: HWND; WindowName: Array[0..255] of Char; ClassName: Array[0..255] of Char; begin H := GetForegroundWindow; GetWindowText(H, WindowName, SizeOf(WindowName)); GetClassName(H, ClassName, SizeOf(ClassName)); Label1.Caption := 'Nome-> '+WindowName+' / Classe-> '+ClassName; end; De uma olhada neste post tambem http://scriptbrasil.com.br/forum/index.php...st&p=391451 abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=371767 Outros posts referentes ao assunto http://scriptbrasil.com.br/forum/index.php...lite=opendialog abraço

Procure no forum se existem duvidas iguais a sua e se já foram solucionadas exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=499750 outros tópicos abordando o mesmo assunto http://scriptbrasil.com.br/forum/index.php...mp;highlite=sql abraço

classe de exceção EconvertError com mensagem ' não pôde analisar gramaticalmente SQL string' de TimeStamp procure no forum pela palavra FormatDateTime .. voce encontrará varios posts com dúvidas já solucionadas neste sentido. exemplo http://scriptbrasil.com.br/forum/index.php...st&p=480209 abraço

Voce pode usar as propriedades do StringGrid procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if (ACol = 2) and (ARow = 2) then begin showmessage('voce selecionou a coluna 2 e linha 2'); // comandos ... end; end; procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key = #13) then begin // faça alguma coisa quando teclar Enter showmessage('voce teclou <Enter>'); // comandos ... end; end; OBS: Ao invés de usar StringGrid não seria muito melhor usar o DBGrid ? abraço

A extensão de IDX é usada por uma grande variedade de programas para indicar um índice. Este normalmente é um índice em um arquivo de banco de dados. Um índice é útil ajudando a processar mais rapidamente pedidos de dados de arquivos de banco de dados. Talvez eles tenham mas voce não esta visualizando ... tente mudar as opções de pasta do windows para mostrar as extensões dos arquivos Programas em DOS podem ser: Clipper, fortran-80, cobol-80, etc... voce tem que ser mais especifico abraço

Procure no delphi ... tem um bom exemplo de como fazer isso: C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr3 procure pelo arquivo: qr3demo.dpr abraço

O banda PageHeader e ColumnHeader sempre irão aparecer independente de se usar ou não a propriedade forceNew Page exemplo procedure TQuickReport2.QRBand4BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin a := a + 1; if a = 10 then QuickReport2.QRBand4.ForceNewPage := true // banda de detalhe else QuickReport2.QRBand4.ForceNewPage := false; end; ONS: Neste exemplo foi colocado no QR 4 bandas: Title, PageHeader, ColumnHeader e Detail OBS: somente a banda Title é que aparece na primeira pagina e não nas demais.... PageHeader e ColumnHeader aparecem sempre nas demais paginas... Verifique novamente o seu QR ... e em ultimo caso refaça-o do zero novamente. abraço

verifique onde está o cursor antes de voce teclar o Enter. e se não existe codigo em nenhunha propriedade do webbrowser abraço

[Error] Unit8.pas(26): Overloaded procedure 'Edit1Change' must be marked with the 'overload' directive ? [Erro] Unit8.pas(26): Procedimento sobrecarregado ' Edit1Change ' deve ser marcado com o ' overload' diretivo? Verifique se isto esta certo procedure Edit1KeyPress1(Sender: TObject; var Key: Char); procedure Edit1KeyPress(Sender: TObject; var Key: Char); e isto tambem: ( porque voce esta repetindo ? ) procedure Edit2KeyPress(Sender: TObject; var Key: Char); {erro aqui } procedure Edit2Change(Sender: TObject); procedure Edit2Change(Sender: TObject); // repetindo o comando procedure Edit3Change(Sender: TObject); // repetindo o comando procedure Edit3Change(Sender: TObject); // procedure Edit4Change(Sender: TObject); // procedure Edit4Change(Sender: TObject); // abraço

Uma das opções para salvar seria assim: a outra sugestão seria voce salvar o preview como uma imagem JPEG ... acho que tem alguma coisa a respeito no forum abraço

Já tentei adicinar os campos no fields porem emite outro erro dizendo que o campo esperado é do tipo string mas o encontrado é do tipo irreconhecido. Ou o campo 'desc_menu' realmente não existe ou não foi adicionado ao componente. Verifique em primeiro lugar a estrutura da sua tabela e os tipos definidos para cada campo. procure ver tambem se não é erro de componente .... tire o componente do form e coloque-o novamente e adicione os campos no fields, para ver se o erro persiste. abraço

o codigo ficaria assim: procedure Tfrm_fluxo_caixa.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field.FieldName = 'SUBTOTAL') then begin if IBQ_fluxo_caixa.FieldByName ('SUBTOTAL').Value < 0 then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; if (Column.Field.FieldName = 'DEBITO') then begin if IBQ_fluxo_caixa.FieldByName ('DEBITO').Value < 0 then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end; abraço

O acesso ao banco de dados MySQL do site é feito através da linguagem PHP ou outra... se voce está pensado em usar o delphi, voce terá que usar o delphi for .NET ou delphi for PHP ou delphi 8 http://www.linhadecodigo.com.br/Artigo.aspx?id=366 abraço

Pra quem se interessar .. os fontes de uma calculadora feita em delphi http://www.mpsoftwares.com/modules.php?nam...etit&lid=25

Colega existe um software americano que faz isso ( converter voz em texto ) e tambem existe um que executa comandos de voz no seu micro ( não há a necessidade de teclar ou usar o mouse para executar os aplicativos do micro ) mas é pago. Para o delphi ainda não vi nada a respeito, mas componentes para ler um texto e falar tem.... veja alguns endereços http://lakeofsoft.com/você/doc/index_demos.html http://forum.devmedia.com.br/viewtopic.php?t=78251 http://www.mail-archive.com/delphi-br@yaho...r/msg40563.html http://www.guiadodelphi.com.br/ler.php?codigo=702 http://www.inf.ufsc.br/~prass/vcl/comunicacao.html abraço

Colega ... faça uso da opção < Buscar no Tópico > pela palavra chave Distinct no final da pagina... já existem muitas duvidas solucionadas que poderão te ajudar exemplo: http://scriptbrasil.com.br/forum/index.php...amp;hl=distinct abraço

voce pode setar a propriedade currency do campo como true, ou usar a propriedade DisplayFormat = ,0.00 abraço

Tanto o DBGrid como DBCtrlGrid tem as mesmas propriedades... voce deve verificar se tem codigo em algumas dessas propriedades OnExit OnKeyDown OnKeyPress OnKeyUP abre um novo registro onde, no DBComboBox ? fica dificil te responder sem ver o codigo abraço

Como converter minutos em horas e minutos function FormatMinToHMS(Minutos: LongInt): string; // // Converte um certo número de minutos em horas // já formatada var Hrs, Min: Word; begin Hrs := Minutos div 60; Min := Minutos mod 60; Result := Format('%d:%d', [Hrs, Min]); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatMinToHMS(strtoint(Edit1.Text)); end; abraço

De acordo com o código, isto tem haver com a fonte selecionada abraço

experimente colocar 7,5 abraço

Desculpe ... foi mal .... voce esta usando ADOQuery ADOQuery1.Parameters.ParamByName( realmente no ado não tem Params .... refiz o teste usando o ADOQuery e está funcionando. este erro: "Nenhum valor foi fornecido para um ou mais parâmetros necessários". indica que voce não está passando os valores para os paramentros, tente usar o degub do delphi para achar o problema abraço