Jhonas

Um exemplo para voce testar procedure TForm1.Button1Click(Sender: TObject); var preço, valor : real; begin //sendo então que R$ 251,367 iria retornar 251,36 e é //isso que preciso Edit1.Text := '251,367'; preço := strtofloat(Edit1.Text); valor := int(preço*100)/100; Edit2.Text := floattostr(valor); Edit3.Text := format('%n',[(preço*100)/100]); Edit4.Text := floattostr(round((preço*100))/100); Edit5.Text := format('%*.*f',[8,2,(preço*100)/100]); Edit6.Text := format('%m',[int(preço*100)/100]); end; abraço

Acho que é possivel ... veja se consegue abraço

Use o componente FilterComboBox linkado ao FileListBox atraves da propriedade FileList Na propriedade Filter do FilterComboBox coloque: Ao selecionar uma opção do FilterComboBox, o FileListBox mostrará somente os arquivos com a extensão selecionada abraço

Converter Decimal para Romano function DecimalToRomano(Decimal: Longint): string; const Numeros: array[1..13] of Integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000); Romanos: array[1..13] of string = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M'); var i: Integer; begin Result := ''; for i := 13 downto 1 do while (Decimal >= Numeros[i]) do begin Decimal := Decimal - Numeros[i]; Result := Result + Romanos[i]; end; end; procedure TForm1.Button1Click(Sender: TObject); var s : string; begin Label1.Caption := DecimalToRomano(StrToInt(Edit1.Text)); end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then abort; end; abraço

Para criação de componente voce usa: No Editor de Imagem do delphi: File > New > Component Resouce File (.dcr) ... e depois crie o seu bitmap O .Res é mais usado como arquivo de recursos para o programa executável e não para componente abraço

Criando um bitmap para o componente: Cada componente precisa de um bitmap para representar o componente na paleta de componentes. Se nenhum for especificado, o Delphi usará um como padrão. O bitmap não é incluído no código fonte do componente, mas é incluído separado em um arquivo com a extensão .DCR (Dynamic Component Resource). Este arquivo pode ser criado com o próprio editor de imagens que vem com o Delphi. O nome do arquivo .DCR deve coincidir com o nome da unidade do seu componente. O nome do bitmap de imagem (em letra maiúscula) devera coincidir com o nome do componente. Os dois arquivos (o da unidade * .pas e que do bitmap * .dcr) devem residir no mesmo diretório. Em seu componente, se salvar a unidade ( Unit ) com o nome por exemplo: MeuComponente.pas o arquivo de recursos se chamará MeuComponente.dcr. Dentro deste arquivo estarão o bitmap para o qual nós colocaremos o nome TMeuComponente. O bitmap que foi criado devera ser de 24x24 pixels. Como último detalhe, se você quer usar um bitmap pronto, você pode usar um programa de tratamento de imagens para recortar e colar no editor de imagens do Delphi. abraço

Veja mais alguns que voce pode procurar alguma coisa que ajude http://scriptbrasil.com.br/forum/index.php...st&p=559714 http://scriptbrasil.com.br/forum/index.php...ite=twebbrowser abraço

Faça uma pesquisa nestes endereços: http://www.google.com.br/search?hl=pt-BR&a...;o que=chat+delphi abraço

A tecla TAB vai seguir a seguencia da propriedade TabOrder dos componente no Form antes de fazer o que esta querendo ... neste caso use o evento OnExit do Edit para setar o foco em outro componente abraço

Voce está mantendo a tecla Ctrl pressionada keybd_event(vk_control,0,KEYEVENTF_KEYUP,0); abraço

Faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...ghlite=Embedded abraço

pode ser interbase ou oracle tambem É bem simples ... veja procedure TForm1.Edit1Change(Sender: TObject); var s : string; begin s := Edit1.text; if pos('´r',s) > 0 then begin delete(s,pos('´r',s),2); insert('é',s,pos('´r',s)+2); Edit1.text := s; TEdit(Sender).SelStart := Length(Edit1.text); end; end; abraço

Use 2 DBCheckBox ... no caption voce coloca o nome ( Proprietário e no outro Inquilino ) e salva no banco numero abraço

Sim basta voce mudar a definição do campo da sua tabela para usar o Character Set ISO8859_3 Latin3—Southern European (Maltese, Esperanto) http://74.125.113.132/search?q=cache:89tdW...=clnk&gl=br abraço

Não sei quanto ao MozillaBrowser, mas o TWebBrowser demora um pouco mais para carregar toda a pagina, mas carrega tudo. ( fiz um teste com o IE e o TWebBrowser para carregar uma mesma pagina ) abraço

instalei o seu programa e o firebird criei um novo usuario e dei direitos de administrador fiz a troca de usuarios Não precisei instalar novamente o programa, apenas criei um atalho para o programa e rodei .... deu erro de conexão com o banco de dados, porque o serviço do banco não estava rodando startei o serviço manualmente pelo painel de controle, porque automaticamente ele não pode executar devido as diretivas do windows. conexão ok ... programa funcionando abraço

O componente ListView não tem a propriedade de transparencia... para conseguir o que está querendo tem 2 sugestões 1 - deixar o seu form transparente ... dessa maneira o seu listview tambem ficará transparente exemplo: procedure TForm1.FormCreate(Sender: TObject); const WS_EX_LAYERED = $00080000; LMA_COLORKEY = $00000001; LMA_ALPHA = $00000002; type TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall; var ExtStyle : LongInt; LayerFunc : TLayerFunc; LibHandle : HModule; begin LibHandle := LoadLibrary(user32); if LibHandle > 0 then begin LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes'); if Assigned(LayerFunc) then begin ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE); SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED); LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY); end; FreeLibrary(LibHandle); end; end; 2 - usar um componente devirado da classe (TListView) http://www.delphifaq.com/faq/delphi/windows_GUI/f670.shtml abraço

Um exemplo bem simples para voce entender Abra uma nova aplicação no delphi .. coloque 2 Forms ( Form1 e Form2 ) No envento OnActive do Form1 coloque o código abaixo uses Unit2; {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin form2.Show; With Form2 do SetWindowPos(Handle, // "handle" para a janela HWND_TOPMOST, // controla onde vai ficar a janela Left, // a posição horizontal Top, // a posição vertical Width, // a largura Height, // a altura // opções de posicionamento da janela SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); end; Quando voce executar o programa, o Form2 ficará sempre a frente do Form1 depois é só voce adpatar o código as suas necessidades abraço

O exemplo que te passei é para usar nos eventos do form, por isso a propriedade KeyPreview do form em que estar true; No seu Cadastro de cliente voce tem que colocar esse código no componente onde estiver o foco exemplo: se o foco estiver num componente Edit então voce terá que usar os eventos desse componente .. o evento keydown ou keyup do Edit abraço

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

O TAB e outras teclas fazem parte do Virtual keys ou chaves virtuais vk_Tab = $09; OBS: coloquei o valor da tecla TAB errado.... é o 9 o 8 é para a Tecla BACKSPACE exemplo: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption := Format('O código da tecla pressionada é: %d', [Key]); if Key = VK_BACK then ShowMessage('A tecla Backspace foi pressionada'); if Key = VK_SPACE then ShowMessage('A tecla Space foi pressionada'); end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption := Format('O código da tecla pressionada é: %d', [Key]); if Key = VK_TAB then ShowMessage('A tecla TAB foi pressionada'); end; Lista de teclas Virtuais Voce pode usar o Valor Constante, Hexadecmal ou o valor Decimal da tecla ( Key ) http://www.arquivodecodigos.net/arquivo/re...as_virtuais.php abraço

Digamos que quando voce usa esses 2 componentes, voce não corre o risco de perder seus dados numa eventual queda de energia elétrica. Descriçao do TClientDataSet e do TDataSetProvider pelo help do delphi Maiores informações consulte apostilas: http://imasters.uol.com.br/artigo/3947/des...e_suas_funcoes/ http://www.t2ti.com/curso/video/delphi/ini...phi_starter.php abraço

Douglas ... tópicos que não se refiram exclusivamente a dúvidas (códigos, banco de dados, etc...) sobre delphi, os mesmos serão movidos para um forum pertinente. abraço

Isso acontece se este form onde tem o TCombobox não foi criado automaticamente. Se ele está sendo criado em tempo de execução o melhor evento seria o OnActive desse form. abraço

voce deve usar outra versão sem bug do 'rtl100.bpl' http://www.google.com.br/search?hl=pt-BR&a...p;o que=rtl100.bpl abraço