Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. faça assim: procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var val : real; begin if StringGrid1.Cells[ACol-1,ARow] <> '' then val := strtofloat(StringGrid1.Cells[ACol-1,ARow]); with Sender as tStringGrid do if ACol = 3 then StringGrid1.Cells[ACol-1,ARow] := 'R$ '+ formatfloat(',0.00',val); end; abraço
  2. exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TAlinEdit = class (TEdit) protected procedure CreateParams(var Params: TCreateParams); override; end; procedure TAlinEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_CENTER; end; procedure TForm1.FormCreate(Sender: TObject); begin PPointer(Edit1)^ := TAlinEdit; TAlinEdit(Edit1).RecreateWnd; end; end. O texto do edit será centralizado no OnFormCreate do formulario, mas voce pode colocar isso em outro evento ( botão, OnExit do edit ...etc ) abraço
  3. baixe esse programa http://www.baixaki.c.../dwnld45342.htm Obs.: já vai com 18.000 itens Cadastrados para teste ... voce pode importar para outro banco de dados abraço
  4. se voce entendeu a lógica do exemplo, voce pode usar o evento OnTitleClick do DBGrid ( quando voce clica com o mouse no titulo do campo / coluna ) procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin /// aqui voce coloca a select para filtrar o arquivo pelo campo da tabela que voce quer end; abraço
  5. veja http://suportegas.com.br/portal/download/20060818ARQ0006.zip abraço
  6. veja se entende esse exemplo https://www.scriptbrasil.com.br/forum/topic/178038-selecionar-linha-dbgrid-e-abrir-outra-tela-de-edicao-dos-campos/?p=675735 abraço
  7. acho que teria quer algo assim WebBrowser1.Document.GetElementsByTagName("option").item(0).SetAttribute("selected", "selected") WebBrowser1.Document.GetElementsByTagName("option").Item(1).SetAttribute("selected", "true") abraço
  8. exemplo http://stackoverflow.com/questions/12874538/how-to-select-option-item-by-the-value-attribute-in-select-drop-down-list abraço
  9. Qual é o seu banco de dados ? Tem varias maneiras de se fazer isso ... ( tem muitos exemplos na net ) https://www.google.com.br/?gfe_rd=cr&ei=3L7jVIv2H4fCqAXU24H4Dg&gws_rd=ssl#q=pesquisa+campos+da+tabela+delphi abraço
  10. veja se é isso procedure TForm1.Button1Click(Sender: TObject); var MinhaVar : TTable; begin MinhaVar := Table1; MinhaVar.Edit; MinhaVar.numero.text := 'ddd'; MinhaVar.nome.text := 'ddd'; MinhaVar.Post; end; abraço
  11. voce leu todo o tópico ? como te falei tem muitos topicos no forum sobre o assunto .. peço que voce faça uma pesquisa https://www.scriptbrasil.com.br/forum/topic/176276-webbrowser-auto-preenchimento-de-pagina-da-web-bol/ abraço
  12. voce não pesquisou no forum.... senão teria achado https://www.scriptbrasil.com.br/forum/topic/176349-problema-com-auto-preenchimento/?p=672387 abraço
  13. o seu link está redirecionando para para mesma pagina do post o correto http://scriptor.net.br/ abraço
  14. Pesquise no forum, pois já tem duvidas como a sua já resolvidas https://www.scriptbrasil.com.br/forum/topic/135197-preencher-campos-de-um-website-com-delphi/ abraço
  15. erro: a string não pode ter mais de 254 caracteres abraço
  16. voce pode tentar isso PopupMenu1.Popup(Image5.Top,Image5.Left); abraço
  17. ok ... veja se esse post te ajuda https://www.scriptbrasil.com.br/forum/topic/178147-resolvidopegar-pesquisa-do-google/?p=676012 abraço
  18. qual o endereço da pagina em que ocorre esse problema ?
  19. se ninguém respondeu, é ou porque não sabem ou não querem ...ok ? abraço
  20. com algumas alterações nesse código, voce vai conseguir o que quer http://www.planetadelphi.com.br/download/4100/arquivo/agenda-com-discador abraço
  21. Eu não sei como fazer o memo ou o grid pular linha ao encontrar um ";" qual componente voce quer usar ? de onde voce esta lendo o conteudo ( texto ) ? Banco de dados ou está digitando ? quanto mais informações voce der, mais facil fica para ajuda-lo abraço
  22. qual é a versão do seu delphi ? passe o endereço da pagina em que ocorre esse problema abraço
  23. então veja se o Manual te ajuda http://www.silverfrost.com/manuals/salfordftn95.pdf http://www.silverfrost.com/23/ftn95/ftn95_documentation.aspx abraço
  24. olhe nas configurações do firefox ( Opções > Abas ) ... tem algumas mudanças da versão 28 para a 35 abraço
  25. problema não, mas pode ser em virtude de suas configurações ( firefox ) abraço
×
×
  • Criar Novo...