Jhonas

abra o seu micro e olhe na placa mãe, deve estar marcado, ou pelo menos voce pode saber o modelo da placa mãe pelo pelo chipset veja este link http://www.baboo.com.br/conteudo/modelos/C...S_a3589_z0.aspx abraço

isso porque é necessario desabilitar a on-board para que off-board possa funcionar sem problemas ou a off-board pode estar queimada, mas o ideal é testar ela em outro micro abraço

o jeito é esse mesmo, mas não precisa trocar todos os componentes, somente aqueles em que ele acusar erro migrei um projeto do delphi 5 para o delphi 7, os unicos componentes que precisei trocar foram os componentes de acesso a banco de dados, os que são nativos não foi preciso. outra tentativa é tentar instalar o componente do delphi 6 no delphi 7 abraço

voce tem o programa pronto neste link .. é só baixar e compilar http://www.delphibr.com.br/artigos/modem/modemcommands.zip abraço

se voce não tem o delphi, veja este link http://www.downloadsmais.com/download-prog...completo-gratis abraço

Não encontrado as interfaces da unit usado no project1 OBS: eu não tenho o lasarus, mas deve funcionar da mesma maneira que o delphi... então procure no menu do lasarus, uma opção onde voce especifica o caminho das bibliotecas para ele poder funcionar corretamente abraço

leia o texto do segundo link " Instalação Básica " abraço

Se for para um jogo de perguntas e respostas é bem simples um exemplo: procedure TForm1.Button1Click(Sender: TObject); begin // PERGUNTA Edit1.Text := 'QUEM DESCOBRIU O BRASIL ?'; // ALTERNATIVAS RadioButton1.Caption := 'CRISTOVÃO COLOMBO'; RadioButton2.Caption := 'JOÃO DA FONSECA'; RadioButton3.Caption := 'PEDRO ALVARES CABRAL'; RadioButton4.Caption := 'PAULO DE BRAGANÇA'; end; procedure TForm1.Button2Click(Sender: TObject); begin // RESPOSTA CERTA if RadioButton3.Checked then begin RadioButton3.Color := clLime; RadioButton1.Enabled := false; RadioButton2.Enabled := false; RadioButton4.Enabled := false; end else begin // MOSTRAR RESPOSTA CERTA MESMO CLICANCO NA ERRADA RadioButton3.Color := clLime; RadioButton1.Enabled := false; RadioButton2.Enabled := false; RadioButton4.Enabled := false; end; end; o resto vai da sua imaginação abraço

Veja esses links http://www.baixaki.com.br/download/lazarus.htm http://lazarus.codigolivre.org.br/index.ph...A3o_B%C3%A1sica abraço

Leia esse artigo ... tem a explicação e os fontes do discador http://www.delphibr.com.br/artigos/modem.htm abraço

voce leu isso? Additionally, TSpellChecker can use spell check dictionaries installed with MSOffice 95 or 97. For higher versions of MSOffice, only some languages will work. abraço

procure setar uma dessas e veja o que acontece abraço

exatamente ... e veja que voce pode testar qualquer tipo que esteja em sua tabela abraço

Meu amigo, voce precisa ler mais sobre o delphi no help voce vai encontrar isso, sobre a função VarType abraço

isso tá parecendo que jogo alterou a configuração do micro experimente resetar a BIOS ... tem um Jumper ao lado da bateria ( faça com o micro desligado ) é so mudar o jumper de posição 1 - 2 para 2 - 3 e depois para 1 - 2 novamente abraço

tem sim ... o installshield vem com o delphi 7 abraço

Veja este link http://www.planetadelphi.com.br/dica/3627/...0est%E1%20vazio abraço

voce já fez uma pesquisa no forum ? acho que existem posts como o da sua dúvida abraço

Quero fazer um programa e estou usando o Delphi, mas quero que o programa seja tipo um livro aberto e quando eu mudar de pagina, a pagina vire como de uma animação dos inicios dos filmes da Disney. como voce mesmo disse: " uma animação dos inicios dos filmes da Disney " essa animação é um filme ... para voce fazer algo parecido mesmo que na raça, voce teria que estudar muito ainda. sugiro começar com algo mais simples ... primeiro procure estudar sobre os componentes Animate da paleta Win32 ou AnimatedImage ou RxGifAnimator da paleta RX Controls ... existem outros mas não são nativos do delphi obs : os componentes RX tambem não são nativos do delphi abraço

exemplo: Uses Printers,WinSpool; procedure GetPaperBins(sl: TStrings); type TBinName = array [0..23] of Char; TBinNameArray = array [1..High(Integer) div SizeOf(TBinName)] of TBinName; PBinnameArray = ^TBinNameArray; TBinArray = array [1..High(Integer) div SizeOf(Word)] of Word; PBinArray = ^TBinArray; var Device, Driver, Port: array [0..255] of Char; hDevMode: THandle; i, numBinNames, numBins, temp: Integer; pBinNames: PBinnameArray; pBins: PBinArray; begin //Printer.PrinterIndex := -1; Printer.GetPrinter(Device, Driver, Port, hDevmode); numBinNames := WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, nil, nil); numBins := WinSpool.DeviceCapabilities(Device, Port, DC_BINS, nil, nil); if numBins <> numBinNames then begin raise Exception.Create('DeviceCapabilities reports different number of bins and bin names!'); end; if numBinNames > 0 then begin pBins := nil; GetMem(pBinNames, numBinNames * SizeOf(TBinname)); GetMem(pBins, numBins * SizeOf(Word)); try WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, PChar(pBinNames), nil); WinSpool.DeviceCapabilities(Device, Port, DC_BINS, PChar(pBins), nil); sl.Clear; for i := 1 to numBinNames do begin temp := pBins^[i]; sl.addObject(pBinNames^[i], TObject(temp)); end; finally FreeMem(pBinNames); if pBins <> nil then FreeMem(pBins); end; end; end; procedure ChangePrinterBin(ToBin: Integer); var ADevice, ADriver, APort: array [0..255] of Char; DeviceHandle: THandle; DevMode: PDeviceMode; // A Pointer to a TDeviceMode structure begin { First obtain a handle to the TPrinter's DeviceMode structure } Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle); { If DeviceHandle is still 0, then the driver was not loaded. Set the printer index to force the printer driver to load making the handle available } if DeviceHandle = 0 then begin Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle); end; { If DeviceHandle is still 0, then an error has occurred. Otherwise, use GlobalLock() to get a pointer to the TDeviceMode structure } if DeviceHandle = 0 then Raise Exception.Create('Could Not Initialize TDeviceMode structure'); DevMode := GlobalLock(DeviceHandle); DevMode^.dmFields := DevMode^.dmFields or DM_DEFAULTSOURCE; DevMode^.dmDefaultSource := ToBin; Printer.SetPrinter(ADevice, ADriver, APort, DeviceHandle); GlobalUnlock(DeviceHandle); end; procedure SetPrinterBin( Printername : pchar; BinCode : integer ); var SpaceNeeded : word; pDBuff : _devicemodeA; Driver_info_2 : pDriverinfo2; DevModeSize : integer; dPtr : Pointer; begin OpenPrinter(Printername, hPrinter, nil); // find out how much space we need for the info stuct GetPrinter( hPrinter, 2, 0, 0, @SpaceNeeded); // allocate the necessary GetMem( Driver_info_2, SpaceNeeded); // The second GetPrinter fills in all the current settings GetPrinter( hPrinter, 2, Driver_info_2, SpaceNeeded, @SpaceNeeded); // If GetPrinter didn't fill in the DEVMODE, try to get it by calling // Documentproperties() - this is always true in Delphi, so ... DevModeSize := DocumentProperties(0, hPrinter, Printername, pDBuff, pDBuff, 0); // Zero returns buffer size. */ // get space dPtr := allocmem( DevModeSize ); devmode := pDevmode( dPtr ); // this call fills our struct DocumentProperties(0, hPrinter, Printername, _devicemodeA( dPtr^), pDBuff, DM_OUT_BUFFER ); // make changes to devmode devmode^.dmFields := DM_DEFAULTSOURCE; devmode^.dmDefaultSource := BinCode; // implement the change ... try //SetPrinter( hPrinter, 2, devmode, 0); except end; // make sure all of devmode is copied back DocumentProperties(0, hPrinter, Printername, _devicemodeA( dPtr^), _devicemodeA( dPtr^), DM_IN_BUFFER+DM_OUT_BUFFER ); FreeMem( Driver_info_2, SpaceNeeded); freemem( dPtr, DevmodeSize); end; procedure TForm1.Button1Click(Sender: TObject); begin GetPaperBins(list.Items); SetPrinterBin(word(List.Objects[0])); end; ou pode ver esses links http://www.swissdelphicenter.com/en/showcode.php?id=796 http://coding.derkeiler.com/Archive/Delphi...4/msg00071.html abraço

O que voce procura está neste link http://blog.mprinformatica.com.br/2009/04/...ulario-no-word/ abraço

Pela extensão voce deve estar tentando criar um banco de dados no Interbase ou Firebird certo ? então leia esta apostila http://www.firebase.com.br/fb/imgdocs/Apostila_IBFB.pdf abraço

Por que fazer dois trabalhos de pode fazer apenas um ... se os nome estão no BD faça uma pesquisa direto nele voce pode utilizar o componente Query para realizar a pesquisa, montando uma instrução SQL exemplo: Select * from CADASTRO where NOME = 'JOSE CARLOS' OBS: mais informações, faça uma pesquisa no forum pela palavra select ou sql ou query http://scriptbrasil.com.br/forum/index.php...highlite=select abraço

voce não deve estar clicando no TabSheet, por isso os componentes parecem estar em todos os TabSheet faça um teste.... marque todos os seus componentes, e de um Ctrl + X, depois clique em um TabSheet ( clique no meio do PageCotrl ) e cole Ctrl + V .... se estiver certo, quando voce clicar nos TabSheets, verá apenas os componetes que foram colocados nele abraço

procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Clear; SysLocale.MiddleEast := true; Edit1.BiDiMode := bdRightToLeft; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if pos('R$',Edit1.Text) > 0 then Edit1.Clear; if key = #13 then begin Edit1.text := 'R$ ' + formatfloat(',0.00',strtofloat(trim(Edit1.text))); exit; end; if not (key in ['0'..'9',',', #8]) then key := #0; end; Jhonas .... abraços