Jhonas

Neste caso, veja as alterações no codigo: procedure TForm1.Button1Click(Sender: TObject); Const nPolegada = 25.40; var nBarra, nInt, nAvos: Integer; begin nBarra := pos('/',Edit1.Text); if nBarra > 0 then begin nInt := StrToInt(Copy(Edit1.Text,1,nBarra-1)); nAvos := StrToInt(Copy(Edit1.Text,nBarra+1,Length(Edit1.Text)-nBarra)); ShowMessage(FloatToStr((nInt*nPolegada)/nAvos)+ ' mm'); end else begin nInt := StrToInt(Edit1.Text); ShowMessage(FloatToStr(nInt*nPolegada)+' mm'); end; end; procedure TForm1.Button2Click(Sender: TObject); Const nPolegada = 25.40; var num : real; num1, num2, num3, i : integer; begin num3 := 128; num := (strtofloat(edit2.text)*128)/nPolegada; num1 := trunc(num); for i := 1 to 7 do begin num2 := (num1 div 2); if (num2 * 2) = num1 then begin num1 := num2; num3 := num3 div 2; end; end; if num3 = 1 then ShowMessage(trim(edit2.text) + ' = ' + inttostr(num1)+' "') else ShowMessage(trim(edit2.text) + ' = ' + inttostr(num1) + '/' + inttostr(num3)+' "') end; abraço

O problema pode estar na maneira como voce cria este Form, veja outras formas http://www.festra.com/wwwboard/messages/12948.html OBS: use o debugger para saber exatamente se o erro está na destruição do form ou antes de chegar nele. abraço

Coloque na propriedade interval do timer 5000 e no evento OnTimer procedure TForm5.Timer1Timer(Sender: TObject); begin Form5.Close; end; abraço

try TagToForm; if ShowModalDock(blu, f_Main) = mrOk then FormToTag; finally blu.Release; end; abraço

Operação Invalida com ponteiro coloque o codigo que esta usando para destruir o formulario abraço

Vou te passar alguns endereços de programas para recuperar setores ruins do HD http://www.sharewareconnection.com/flobo-h...ectorrepair.htm http://www.sharewareconnection.com/flobo-repair-disk.htm http://www.sharewareconnection.com/flobo-h...ctor-repair.htm Tente usar estes progamas primeiro, mesmo recuperando os setores ruins, voce tera que reinstalar o windows abraço

Quem vai executar isto seria o scandisk /surface executado pelo DOS ou o procedimento que passei, via windows abraço

Se os danos forem poucos, é possivel recuperar. Se o seu HD for de um bom tamanho ( mais de 20 Gb ) voce pode usar o partition magic ( voce pode baixar da internet ) para particionar o hd na parte ruim e não usa-lo, e particionar e usar o restante que está bom. http://www.download3000.com/download-Parti...-reg-14230.html De qualquer forma use o comando (DOS) scandisk /surface para fazer um exame de superficie no HD para ver onde estão os Bad Clusters. Em ultimo caso, pense em um novo HD. abraço

Procure nestes Tópicos: http://scriptbrasil.com.br/forum/index.php...lite=justificar abraço

Converter polegada para milimetro e vice-versa procedure TForm1.Button1Click(Sender: TObject); Const nPolegada = 25.401; var nBarra, nInt, nAvos: Integer; begin nBarra := pos('/',Edit1.Text); if nBarra > 0 then begin nInt := StrToInt(Copy(Edit1.Text,1,nBarra-1)); nAvos := StrToInt(Copy(Edit1.Text,nBarra+1,Length(Edit1.Text)-nBarra)); ShowMessage(FloatToStr((nInt*nPolegada)/nAvos)); end else begin nInt := StrToInt(Edit1.Text); ShowMessage(FloatToStr(nInt*nPolegada)); end; end; procedure TForm1.Button2Click(Sender: TObject); Const nPolegada = 25.401; begin ShowMessage(FloatToStr(((strtofloat(edit2.text)/nPolegada)*128*128)/128)); end; abraço

Uso dos componentes Yupack unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, yupack, Menus, ComCtrls; type TfmMain = class(TForm) YusoftGradientButton1: TYusoftGradientButton; YusoftGradientButton2: TYusoftGradientButton; YusoftGradientButton3: TYusoftGradientButton; StatusBar1: TStatusBar; YusoftGradientButton4: TYusoftGradientButton; YusoftGradientButton5: TYusoftGradientButton; YusoftGradientButton6: TYusoftGradientButton; YusoftGradientButton7: TYusoftGradientButton; Notebook1: TNotebook; YusoftWallpaper1: TYusoftWallpaper; YuSoftButton1: TYuSoftButton; YuSoftLabel1: TYuSoftLabel; YuSoftButton2: TYuSoftButton; YuSoftLabel2: TYuSoftLabel; CheckBox1: TCheckBox; YuSoftLabel3: TYuSoftLabel; YuSoftButton3: TYuSoftButton; YuSoftLabel4: TYuSoftLabel; YuSoftLabel5: TYuSoftLabel; YuSoftLabel6: TYuSoftLabel; YuSoftLabel7: TYuSoftLabel; YuSoftLabel8: TYuSoftLabel; Image1: TImage; Image2: TImage; Image3: TImage; Image4: TImage; procedure YusoftGradientButton2MouseEnter(Sender: TObject); procedure YusoftGradientButton2MouseLeave(Sender: TObject); procedure YusoftGradientButton2Click(Sender: TObject); procedure YusoftGradientButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure CreateParams(var Params: TCreateParams); override; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure YusoftGradientButton5Click(Sender: TObject); procedure YuSoftButton3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } procedure MyHint(Sender: TObject); public { Public declarations } end; var fmMain: TfmMain; implementation {$R *.DFM} procedure TfmMain.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do Style := (Style or WS_POPUP) and (not WS_DLGFRAME); {I think this is the best way to get form without captiom BorderStyle=bsNone is not beatiful} end; procedure TfmMain.MyHint(Sender: TObject); begin StatusBar1.SimpleText:=Application.Hint; end; procedure TfmMain.FormCreate(Sender: TObject); begin Application.OnHint:=MyHint; YusoftGradientButton5Click(YusoftGradientButton5); end; procedure TfmMain.YusoftGradientButton2MouseEnter(Sender: TObject); begin (Sender as TYusoftGradientButton).Font.Color:=clYellow; end; procedure TfmMain.YusoftGradientButton2MouseLeave(Sender: TObject); begin (Sender as TYusoftGradientButton).Font.Color:=clWhite; end; procedure TfmMain.YusoftGradientButton2Click(Sender: TObject); begin case (Sender as TYusoftGradientButton).Tag of 1: Application.Minimize; 2: Application.Terminate; end; end; procedure TfmMain.YusoftGradientButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssleft in shift then begin ReleaseCapture; fmMain.perform(WM_syscommand, $F012, 0); end; end; procedure TfmMain.CheckBox1Click(Sender: TObject); begin YuSoftButton2.Enabled:=CheckBox1.Checked; { Note: YusoftLabel.Enabled property will change too! } end; procedure TfmMain.YusoftGradientButton5Click(Sender: TObject); begin Notebook1.ActivePage:=IntToStr((Sender as TYusoftGradientButton).Tag); (Sender as TYusoftGradientButton).Font.Style:=(Sender as TYusoftGradientButton).Font.Style+[fsBold]; if (Sender as TYusoftGradientButton).Tag=2 then YusoftGradientButton5.Font.Style:=YusoftGradientButton5.Font.Style-[fsBold] else YusoftGradientButton6.Font.Style:=YusoftGradientButton6.Font.Style-[fsBold]; end; procedure TfmMain.YuSoftButton3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Close; end; end. abraço

Se na hora da formatação do HD dura muito mais tempo do que o normal, isto significa que seu HD já tem Bad Clusters(Trilhas Ruins ) causados justamente pelo fato de remover a instalalção do VB 6 e ter queda de energia quando o pc estava ligado e executando a desinstaação Durante a formatação do HD ele tenta recuperar estes Bad Clusters até um certo numero de tentativas, em não conseguindo, ele parte para o proximo seguimento de trilha para fazer a formatação ( magnetização ) Solução: clique com o botão direito do mouse no Drive C: e escolha a opção Propriedades... clique na aba Ferramentas Na opção Verificação de Erros , clique no botão Verificar Agora... Em Opções de (Verificação de Disco), clique nos checkboxs < Corrigir erros do sistema de arquivos automaticamente > e < Procurar setores defeituosos e tentar recupera-los > depois clique em Iniciar. Entretanto como voce na formatação não pediu para marcar os setores ruins e não utiliza-los, muito provavelmente arquivos foram copiados para estes setores, e não poderão ser utilizados pelo windows, ocasionando erros, por isso ele pede o ( modo de segurança ) pois somente alguns arquivos serão carregados, dando ao usuário a chance de procurar e sanar o problema. Se a opção S.M.A.R.T da BIOS estivesse habilitada, voce teria na tela a mensagem que o seu HD está RUIM ( S.M.A.R.T - STatus BAD ) abraço

Outros exemplos com o ShellExecute (Dica de martins_vicente ) Executar o Bloco de Notas uses ShellApi; ... ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); Abrir o arquivo leiame.txt com o Bloco de Notas ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\leiame.txt', nil, SW_SHOWNORMAL); Exibir o conteúdo da pasta 'forumweb' ShellExecute(Handle,'open', 'c:\forumweb', nil, nil, SW_SHOWNORMAL); Abrir um arquivo com o aplicativo associado a sua extensão ShellExecute(Handle, 'open', 'c:\Meus Documentos\teste_delphi.doc',nil,nil,SW_SHOWNORMAL); Abrir um determinado site com o browser padrão ShellExecute(Handle, 'open', 'http://www.forumweb.com.br/foruns',nil,nil, SW_SHOWNORMAL); Enviar email com assunto e corpo semi-preenchidos var em_subject, em_body, em_mail : string; begin em_subject := 'Assunto'; em_body := 'Corpo da mensagem'; em_mail := 'mailto:teste@forumweb.com.br?subject=' + em_subject + '&body=' + em_body; ShellExecute(Handle,'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL); end; abraço

Não sou eu que estou vendendo, apenas te indiquei uma placa boa. Voce pode comprar pela internet neste endereço http://comprar.todaoferta.uol.com.br/placa...i-gf-L7UZ18NKNU Ou pode procurar por ela nas lojas de suprimentos em informatica em São Paulo-SP abraço

ESPECIFICACAO DUAL VIEW: SIM (01 VGA, 01 DVI) FABRICANTE: XFX GPU: NVIDIA GEFORCE 6200 LE INTERFACE: AGP MEMORIA INTERNA: 256MB DDR2 *64 BITS * 266 MHZ MODELO: (PV-T44D-WANG) RAMDAC: 400 MHZ RECURSOS EMBUTIDOS: SAIDA PRA TV RESOLUCAO: 2048 X 1536 SITE DO FABRICANTE: HTTP://WWW.XFXFORCE.COM TAXA TRANSF EXTERNA: 8X TECNOLOGIA: SOPORTA DIRECTX 90 SHADER MODEL 30 ---CONECTORES SAIDA AUDIO/VIDEO: 01 VGA, 01 DVI, 01 S-VIDEO ---ACESSORIOS 1CABO DE TV: 01 S-VIDEO 1 CD COM DRIVER: SIM 1 MANUAL: SIM VALOR r$ 159,00 http://comprar.todaoferta.uol.com.br/placa...i-gf-L7UZ18NKNU abraço

Com certeza ... O DataBand que esta como o BandStyle definido como Detail , deve apontar para o DataBand que esta como o BandStyle definido como Group Header. abraço

Drives do Geforce FX 5200 para o windows 2000 ou XP http://baixaki.ig.com.br/download/nVIDIA-F...edia-Center.htm http://downloads.guru3d.com/download.php?det=1793 http://portuguese.eazel.com/lv/group/view/...rce_FX_5200.htm abraço

Coloque na propriedade WindowState do Form como wsMaximized abraço

Blackleaf ... fica ai a minha sugestão para voce... um programa para parar o relogio do windows num primeiro click de botão, e para atualizar o relogio do windows por um servidor externo com outro click de botão. OBS: Para o Delphi 7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdNNTP, IdUDPBase, IdUDPClient, IdSNTP; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; Label1: TLabel; IdSNTP1: TIdSNTP; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; lig : integer = 0; implementation {$R *.DFM} function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 1; // mantem o relogio parado entre um segundo e outro hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); Label1.Caption := 'horario atual = ' + hh+':'+mm+':'+ss; end; procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin lig := lig + 1; if lig = 1 then Timer1.Enabled := true else begin Timer1.Enabled := false; lig := 0; // atualiza o relogio do windows IdSNTP1.Host := 'time.nist.gov'; IdSNTP1.Active := True; repeat edit1.Text := FormatDateTime('dd/mm/yyyy hh:mm:ss', IdSNTP1.DateTime); Until (IdSNTP1.DateTime <> 0); Present:= IdSNTP1.DateTime; DecodeTime(Present, Hour, Min, Sec, MSec); SetNewTime(Hour,Min,Sec); end; end; end. abraço

Se voce tiver o BDE instalado, vai encontrar todos eles. abraço.

Copie estes arquivos para o System32. abraço

Então tenta usar o Petite 2.2 http://www.versiontracker.com/dyn/moreinfo/win/15267 abraço

Tradução: Erro de Exceção EDBEngine em módulo, um erro ocorreu enquanto tentando inicializar o Borland Banco de dados (erro $2108); Os arquivos necessário são: EUROPE.BLL USA.BLL IDR20009.DLL IDAPI32.DLL BLW32.DLL IDAPI32.CFG Drivers de Banco de Dados: IDPDX32.DLL <--- Driver Paradox IDASCI32.DLL <--- Driver ASCII IDDBAS32.DLL <--- Driver DBase IDODBC32.DLL <--- Driver ODBC O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. abraço

Voce ainda não disse que tipo de grid esta usando, e qual seria a finalidade desse botão.

Porque voce não usa um script de votação ? muito mais simples. http://www.codigolivre.com.br/abresubcateg...mp;iordena=Data abraço