Jhonas

procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 8 to 544 do begin sleep(50); Image1.Left := i; Image1.Refresh; end; end; OBS: quando o for terminar voce recomeça o processo novamente abraço

Oi Eder ... A versão mais recente do BDE é 5.12 no entanto ela é paga $95,00 veja se uma versão mais antiga serve para voce http://info.borland.com/devsupport/bde/bdeupdate.html abraço

Tudo depende de como esta organizado os dados... por exemplo: os dados do cliente estão em uma tabela e as parcelas em outro ? os dados estão na mesma tabela ou são selecionados atraves de SQL ? o correto seria usar uma banda QRGroup para os dados do cliente e uma banda rbDetail para as parcelas. abraço

colega ... não dá pra advinhar o que voce quer se não explicar com mais detalhes, por exemplo: versão do delphi, banco de dados, até onde voce já codificou o programa.. etc... sem mais informações fica dificil responder. abraço

se voce for colocar o Label junto com a imagem, voce tera que usar um panel para isso...ou seja, dentro do panel colocaria um Timage e um TLabel .... no entanto quando o Panel estiver se movimentando na tela voce não tera a hora atualizada ate que o for termine. procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 8 to 544 do begin label1.Refresh; sleep(50); Panel1.Left := i; Panel1.Refresh; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := TimeToStr(Now); end; voce teria que usar outro tipo de componente timer que utiliza thread, para poder mostrar o horario mudando junto com o movimento da imagem quanto ao FormatDateTime() voce quer mostrar data e hora ? abraço

Oi Eder... voce pode fazer o download neste endereço http://www.bonecosoftware.com.br/bde.htm abraço

este codigo funciona no windows 98 Código: procedure HabilitaCTRLALTDEL(YesNo : boolean); const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System\',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1); end; True: begin WriteInteger('DisableTaskMgr',0); end; end; end; CloseKey; if OpenKey(sRegPolicies + '\Explorer\',True) then begin case YesNo of False: begin WriteInteger('NoChangeStartMenu',1); WriteInteger('NoClose',1); WriteInteger('NoLogOff',1); end; True: begin WriteInteger('NoChangeStartMenu',0); WriteInteger('NoClose',0); WriteInteger('NoLogOff',0); end; end; end; CloseKey; finally Free; end; end; Dica de Kwsty Outra dica http://www.mail-archive.com/delphi-br@yaho...r/msg55944.html abraço

Tradução do Erro : abraço

Descrição: Apostila passo-a-passo, que descreve como trabalhar com relatórios utilizando a ferramenta Rave Reports. http://www.delphimais.com/modules/PDdownlo...id=4&lid=19 abraço

claro ... no primeiro exemplo Tfrm_HIP.FormClose ... TForm1.FormClose ( evento FormClose do seu form ) Tfrm_HIP.FormKeyDown... TForm1.FormKeyDown (evento FormKeyDowm do seu form ) no segundo pode ser num botao , ou evento active do seu form, onde voce achar mais apropriado abraço

Ler e escrever dados binários no Registro do Windows Inclua na seção uses: Registry Coloque no Form: - três edits; - dois botões. Logo abaixo da palavra implementation declare: type { Declara um tipo registro } TFicha = record Codigo: integer; Nome: string[40]; DataCadastro: TDateTime; end; - Escreva o evento OnClick do Button1 conforme abaixo: procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; Ficha: TFicha; begin { Coloca alguns dados na variável Ficha } Ficha.Codigo := StrToInt(Edit1.Text); Ficha.Nome := Edit2.Text; Ficha.DataCadastro := StrToDate(Edit3.Text); Reg := TRegistry.Create; try { Define a chave-raiz do registro } Reg.RootKey := HKEY_CURRENT_USER; { Abre uma chave (path). Se não existir cria e abre. } Reg.OpenKey('Cadastro\Pessoas\', true); { Grava os dados (o registro) } Reg.WriteBinaryData('Dados', Ficha, SizeOf(Ficha)); finally Reg.Free; end; end; - Escreva o evento OnClick do Button2 conforme abaixo: procedure TForm1.Button2Click(Sender: TObject); var Reg: TRegistry; Ficha: TFicha; begin Reg := TRegistry.Create; try { Define a chave-raiz do registro } Reg.RootKey := HKEY_CURRENT_USER; { Se existir a chave (path)... } if Reg.KeyExists('Cadastro\Pessoas') then begin { Abre a chave (path) } Reg.OpenKey('Cadastro\Pessoas', false); { Se existir o valor... } if Reg.ValueExists('Dados') then begin { Lê os dados } Reg.ReadBinaryData('Dados', Ficha, SizeOf(Ficha)); Edit1.Text := IntToStr(Ficha.Codigo); Edit2.Text := Ficha.Nome; Edit3.Text := DateToStr(Ficha.DataCadastro); end else ShowMessage('Valor não existe no registro.') end else ShowMessage('Chave (path) não existe no registro.'); finally Reg.Free; end; end; Observações Qualquer tipo de dado pode ser gravado e lido de forma binária no registro do Windows. Para isto você precisa saber o tamanho do dado. Para dados de tamanho fixo, use SizeOf(). Lembrete: não grave dados muito extensos no Registro do Windows (ex: imagens), pois isto prejudicará o desempenho do sistema. Autor: Daniel P. Guimarães Home-page: www.tecnobyte.com.br Espero que este exemplo ajude abraço

Veja se não é isto que está qerendo... http://scriptbrasil.com.br/forum/index.php...st&p=468593 http://scriptbrasil.com.br/forum/index.php...st&p=271999 Artigo sobre como usar arquivo de recursos http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=517 abraço

Como desabilitar as teclas Alt + F4 public { Public declarations } fecha: Boolean; end; implementation {$R *.DFM} Function GetStateK (Key: integer): boolean; begin Result := Odd (GetKeyState (Key)); end; procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction); begin If Not fecha Then Action := caNone Else Action := caFree; end; procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If GetStateK (VK_LMENU) And (Key = VK_F4) Then fecha := False; end; {Dica enviada por William} Desabilitar Teclas Ctrl+Alt+Del (Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc) var OldValue : LongBool; begin {liga a trava} SystemParametersInfo(97, Word(True), @OldValue, 0); {desliga a trava} SystemParametersInfo(97, Word(False), @OldValue, 0); end; abraço

Não tenho conhecimento de outro programa ... talvez outro colega possa lhe ajudar neste endereço explica como fazer usando o windows XP http://www.faqts.com/knowledge_base/view.phtml/aid/27847 Boa Sorte abraço

Complementando o que o Denis Courcy já expôs: OBS: Na pratica um romaneio nada mais é do que um pedido de mercadorias ou produtos não formalizados ( gerando nota fiscal ) abraço

O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. existem outras linguagens de programação que não utilizam o BDE... depende do que voce quer fazer abraço

veja nestes endereços: http://forum.unidev.com.br/phpbb2/viewtopi...p=283045#283045 http://www.tiforum.com.br/viewtopic.php?p=...6184414ac98ee84 http://www.babooforum.com.br/forum/index.p...howtopic=263851 http://www.guiadodelphi.com.br/ler.php?codigo=1107 http://delphi.about.com/od/windowsshellapi/l/aa081703a.htm http://www.devmedia.com.br/articles/viewco...mp=1583&hl= abraço

Pelo Delphi voce não vai conseguir fazer isso ... ou terá que usar arquivos de recursos ou apontar para uma pasta de algum diretório para usar o arquivo acho que estes aplicativos não foram desenvolvidos em delphi abraço

é só usar um componente timer e um Label unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := timetostr(time()); end; end. abraço

exemplo do Delphi usando o RichEdit1 procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top); FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; begin with RichEdit1 do begin { begin the search after the current selection if there is one } { otherwise, begin at the start of the text } if SelLength <> 0 then StartPos := SelStart + SelLength; else StartPos := 0; { ToEnd is the length from StartPos to the end of the text in the rich edit control } ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end; já que voce esta usando Memo, fiz um exemplo para voce usando o FindDialog1 e o ReplaceDialog1 unit UProcuraSubstitui; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; FindDialog1: TFindDialog; ReplaceDialog1: TReplaceDialog; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ReplaceDialog1Replace(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; s : string; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin s := Memo1.Lines.Text; FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); var posicao:integer; begin FindDialog1.Options := []; if frMatchCase in FindDialog1.Options then FindDialog1.Options := [frMatchCase]; if frWholeWord in FindDialog1.Options then FindDialog1.Options := FindDialog1.Options + [frWholeWord]; if frWholeWord in FindDialog1.Options then FindDialog1.Options := FindDialog1.Options + [frDown]; if frWholeWord in FindDialog1.Options then FindDialog1.Options := FindDialog1.Options + [frFindNext]; if Pos(FindDialog1.FindText, S) > 0 then begin posicao := pos(FindDialog1.FindText, s)-1; S[Pos(FindDialog1.FindText, S)] := '0'; end; if posicao <> 0 then begin Memo1.SelStart := posicao; Memo1.SelLength := Length(FindDialog1.FindText); Memo1.SetFocus; end; end; procedure TForm1.Button2Click(Sender: TObject); begin ReplaceDialog1.Execute; end; procedure TForm1.ReplaceDialog1Replace(Sender: TObject); var posicao :integer; begin ReplaceDialog1.Options := []; if frMatchCase in FindDialog1.Options then ReplaceDialog1.Options := [frMatchCase]; if frWholeWord in FindDialog1.Options then ReplaceDialog1.Options := ReplaceDialog1.Options + [frWholeWord]; if frWholeWord in FindDialog1.Options then ReplaceDialog1.Options := ReplaceDialog1.Options + [frDown]; if frWholeWord in FindDialog1.Options then ReplaceDialog1.Options := ReplaceDialog1.Options + [frFindNext]; posicao := pos(ReplaceDialog1.FindText, Memo1.Lines.Text); if posicao <> 0 then begin Memo1.SelStart := posicao-1; Memo1.SelLength := Length(ReplaceDialog1.FindText); Memo1.SelText:=ReplaceDialog1.ReplaceText; Memo1.SetFocus; end; end; end. Veja se esclarece as idéias abraço

Veja se isso que voce esta querendo. procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Memo1.Cursor := crHandPoint; Memo1.Color := clAqua; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Memo1.Color := clwhite; end; OBS: quando o mouse passa pelo Memo o fundo fica com o fundo azul e quando o mouse sai do memo e entra no form, o memo fica com o fundo branco abraço

exemplo de uso do FindDialog http://devmedia.com.br/articles/viewcomp.a...=350&hl=ibx com isso voce já tera uma idéia de como implementar o codigo abraço

troque o componente ProgressBar1 pelo Gauge1 da paleta Sample e faça estas alterações procedure TForm1.Button1Click(Sender: TObject); var rStream: TResourceStream; fStream: TFileStream; fname: string; begin fname:=ExtractFileDir(Paramstr(0))+'Som.mp3'; rStream := TResourceStream.Create (hInstance, 'Som', RT_RCDATA); try fStream := TFileStream.Create(fname, fmCreate); try fStream.CopyFrom(rStream, 0); finally fStream.Free; end; finally rStream.Free; end; } Gauge1.MaxValue:=0; Timer1.Interval := 100; MediaPlayer1.Close; MediaPlayer1.FileName:=fname; MediaPlayer1.Open; MediaPlayer1.Play; Gauge1.MaxValue := mediaPlayer1.Length; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Gauge1.Progress := MediaPlayer1.Position; if Gauge1.MaxValue = Gauge1.Progress then MediaPlayer1.Stop; end; abraço

tem o componente ShockwaveFlash1 ... veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=376646 http://scriptbrasil.com.br/forum/index.php...st&p=358594 http://scriptbrasil.com.br/forum/index.php...st&p=451793 abraço

este post pode ajudar... mesmo problema http://www.babooforum.com.br/forum/index.p...st&p=924084 outras referencias http://www.winforumz.com/windows/Local-Adm...pict658381.html http://www.faqts.com/knowledge_base/view.phtml/aid/27847 abraço