Jhonas

Veja: procedure TForm1.Button1Click(Sender: TObject); begin GroupBox1.Visible := true; end; abraço

Form.Caption := \'Registros: (\' + IntToStr(ADOQuery.RecordCount) + \')\'; ou Label1.Caption := 'Clientes Cadastrados = ' + IntToStr(ADOQuery.RecordCount) OBS: de preferencia coloque o comando logo apos dar um post e um applayupdates na tabela abraço

Para textos grandes use campo Blob se o erro continuar ... poste a mensagem do jeito que ela aparece para voce na tela abraço

Veja na propriedade ( ZQuery ) UpdadeMode se esta como umUpdateChanged e na propriedade RequestLive esta true exemplo: procedure TForm1.Button1Click(Sender: TObject); begin ZQuery1.Last; ZQuery1.Append; ZQuery1.Edit; ZQuery1nome.Value := 'ROBERTO DOS SANTOS'; ZQuery1codigo.Value := '21'; ZQuery1telefone.Value := 39215678; ZQuery1.Post; ZQuery1.ApplyUpdates; end; Funciona sem problemas abraço

Veja este post .... em um deles vai achar o link para download dos componentes http://scriptbrasil.com.br/forum/index.php...st&p=510203 Componentes JEDI http://www.koders.com/?s=kdb2text&la=*&li=* http://forum.codegeargroup.com.br/index.php?topic=86.0 abraço

Veja este codigo procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Append('OLA MUNDO'); end; OBS: Cada vez que voce clicar no botao, será incluido no memo uma nova linha com a palavra 'OLA MUNDO' Procure usar a pesquisa do forum usando palavras chave .. exemplo ( Memo, dbgrid, query, table...etc ...) vai te ajudar nas dúvidas abraço

Veja este post: http://scriptbrasil.com.br/forum/index.php...st&p=499548 abraço

Deveria funcionar procedure TForm1.Button1Click(Sender: TObject); begin QRLabel1.Font.Color := clRed; end; Testei e funciona ... a condição está dentro ou fora do report ? abraço

Faça uma pesquisa no forum para ver ser encontra alguma coisa http://scriptbrasil.com.br/forum/index.php...e=fortes+report abraço

A maneira de instalar componentes no delphi não muda veja se encontra alguma coisa nestes posts http://scriptbrasil.com.br/forum/index.php...lar+componentes abraço

Procure fazer uma pesquisa no forum e ver se econtra alguma coisa http://scriptbrasil.com.br/forum/index.php...hlite=etiquetas abraço

http://www.misterlogica.com/download.html OBS: Programa desenvolvido em delphi7 abraço

Procure fazer uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...e=login+e+senha http://scriptbrasil.com.br/forum/index.php...highlite=access abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin RadioGroup1.Items.Clear; for i := 1 to Query1.RecordCount do begin RadioGroup1.Items.Append(Query1PERGUNTAS.Value); Query1.Next; end; end; Com algumas modificações ficará do jeito que voce quer abraço

quando eu abro o report settings do quickrep, eu altero a unidade de medida de mm para character.... beleza Ao alterar a medida padrão do report, voce automaticamente mudou todo o size dos componentes do report.. basta olhar a propriedade Size de qualquer componente dentro do Quickeport ... verá que não possuem valor algum ... e se voce digitar qualquer valor, eles serão alterados de acordo com valor digitado para Height, Left , Top e Width. Em termos de impressão, isso não altera muita coisa abraço

Há vários pontos importantes para se lembrar sobre a classe de TList. Muito Importante, TList administra sua própria memória, mas não faz diferença entre alocação, ou memória livre para os valores da lista. Embora TList declare o tipo de um item como Ponteiro, você pode armazenar qualquer outra coisa que se ajuste na mesma quantia de memória como um Ponteiro, como um Inteiro, uma matriz , ou um valor enumerado. lembre-se de usar um tipo apropriado. Se você alocar dinamicamente a memória e ponteiros para a memória em um TList, então você tem que se lembrar de liberar todos os itens antes de liberar o objeto TList. Você poderia achar isto mais conveniente derivando sua própria classe de TList. Esteja atento que nenhum dos métodos de TList são virtuais, assim você tem que usar sua classe derivada em todas as declarações de tipo ou então Delphi não chamará seus métodos, mas esses de TList. exemplo: type TS_ObjectList = class(TList) protected function GetObject(Index: Integer): TObject; procedure SetObject(Index: Integer; Value: TObject); procedure SetCount(Value: Integer); procedure SetCapacity(Value: Integer); public destructor Destroy; override; procedure Clear; procedure Delete(Index: Integer); property Objects[Index: Integer]: TObject read GetObject write SetObject; property Count write SetCount; end; { Clear all the objects from the list and destroy the list. } destructor TS_ObjectList.Destroy; begin Clear; inherited Destroy; end; { Return an object from the list. } function TS_ObjectList.GetObject(Index: Integer): TObject; begin Result := TObject(Items[Index]); end; { Set an object in the list. Free the old object. } procedure SetObject(Index: Integer; Value: TObject); begin Objects[Index].Free; Items[Index] := Pointer(Value); end; { Clear the list by deleting all objects in it. } procedure TS_ObjectList.Clear; var I: Integer; begin for I := 0 to Count-1 do Objects[I].Free; inherited Clear; end; { Delete an object from the list, freeing the object } procedure TS_ObjectList.Delete(Index: Integer); begin Objects[Index].Free; inherited Delete(Index); end; { If the list shrinks, free the objects that are implicitly deleted. } procedure TS_ObjectList.SetCount(Value: Integer); begin while Value < Count then Delete(Count-1); inherited Count := Value; end; Mais informações: http://www.tempest-sw.com/secrets/using.htm abraço

Se voce estiver usando o componente SkinData, basta colocar o caminho da skin na propriedade SkinFile e ativar a skin na propriedade Active. OBS Coloque o componente SkinData no primeiro form do seu programa abraço

Enviei a dll para o su email abraço

Isto vai depender muito da fonte e do tamnho da fonte exemplo: se voce estiver usando fonte Arial tamanho 10 1 cm equivale a 1,75 characters logo 4,45 cm = 7,7875 characters mais informações http://www.sgrillo.net/scale10.html abraço

Voce vai encontrar o que precisa nestes endereços: http://cq.cx/ladder-pt.html http://www.engprod.ufjf.br/epd_automacao/EPD030_Ladder1.pdf abraço

Uma das maneiras: Function FormataCNPJ(CNPJ : string): string; begin Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := '82653653000100'; Label1.Caption := FormataCNPJ(Edit1.Text); end; outra maneira: procedure TForm1.Button2Click(Sender: TObject); begin Maskedit1.EditMask:='00.000.000/0000-00;0'; Maskedit1.Text := Edit1.Text; Label1.caption := Maskedit1.Text; end; abraço

Explicação da Microsoft outra sugestão: http://scriptbrasil.com.br/forum/index.php...st&p=486983 abraço

Para voce verificar como isso funciona, num form coloque 1 botao e 3 edits OBS: se um dos edits não tiver preenchido, uma mensagem avisará o usuario que tem algum edit sem preenchimento e desta maneira não poderá ir para outro form exemplo: var Form1: TForm1; cont : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i , cadastro: Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TEdit then begin if TEdit(Components[i]).Text <> '' then cont := cont + 1 else cont := 0; end; if cont > 0 then cadastro := 1 else cadastro := 0; if Cadastro = 1 then frmDados.showModal else MessageDlg('Cadastro não Preenchido .', mtInformation, [mbOk], 0); end; end; Voce deve modificar o codigo para seu uso abraço

Voce poderia fazer assim: ... mas fica um codigo ruim, pois estaria chamando o evento OnCreate a cada digitação um codigo melhor seria fazer uso do Editor de Colunas do DBGrid ( basta dar 2 cliks no DBGrid e adicionar somente as colunas que voce quer ) procedure TfrmLocalForn.txtLocalForn_CodChange(Sender: TObject); begin // Buscar por Código With QueryLocalForn Do begin Close; SQL.Clear; SQL.Add('SELECT * FROM FINAFOR.dbf'); SQL.Add('WHERE FORCOD'); SQL.Add('LIKE '''+txtLocalForn_Cod.Text+'%'''); //Iniciado por SQL.Add('ORDER BY FORFAN'); Open; end; end; TfrmLocalForn.OnCreate(Sender); abraço

Veja se encontra alguma coisa nestes posts http://scriptbrasil.com.br/forum/index.php...ighlite=vclskin abraço