Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''delphi''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. Ao excluir um item do estoque, gostaria que me mostra-se a descrição do item a ser excluído junto com a mensagem de confirmação de exclusão. veja código abaixo : if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); end; Como poderia então fazer com que apareça a descrição do item que foi selecionado para exclusão ? alguém poderia me ajudar ?
  2. Olá amigos da script brasil. Estou tendo á necessidade de integrar minha aplicação ao Mercadolivre, porém ao tentar fazer login na conta do usuário o mercadopago me pede Captcha, Gostaria de saber se tem alguma forma de quebrar esse captcha . Link da página do mercadolivre: https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page Meu script: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) GroupBox1: TGroupBox; WebBrowser1: TWebBrowser; GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('https://www.mercadolivre.com/jms/mlb/lgz/login?go=http://www.mercadolivre.com.br/gz/home/logged?display=page'); WebBrowser1.Silent := True; end; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.Document.all.Item('user_id',0).Value := Edit1.Text; WebBrowser1.OleObject.Document.all.Item('password',0).Value := Edit2.Text; WebBrowser1.OleObject.Document.all.Item('signInButton',0).Click; end; end. O captcha que pede: ----------- Já tentei de tudo se possivel alguém poderia me ajudar????
  3. Quando clico no botão OK do form filtro, da erro de acess violation. Código que esta no botão OK do form filtro: frmEstoque.ClientDataSet_estoque.Filtered := false; frmEstoque.ClientDataSet_estoque.Filter := 'data_cad>='''+DateToStr(DateTimePicker1.Date)+''''+ 'and data_cad<='''+DateToStr(DateTimePicker2.Date)+''''; frmEstoque.ClientDataSet_estoque.Filtered := true; neste caso, o erro acontece por que o ClientDataSet_estoque esta no form estoque, e não no form do filtro, então como eu teria de fazer nesse caso, pois não consigo trabalhar com nenhum componente do banco de dados que esta em outro form, no caso no form estoque. Poderia me ajudar ?
  4. Olha eu novamente . Então pessoal estou tendo um problema ao clicar no botão do TWebBrowser no delphi . No website está da seguinte forma: <div id="submit-row" class="form-row"> <div class="input"><input class="btn-dark" type="submit" value="Donate"/> </div> </div> </form> Então, Eu já tentei fazer das seguintes formas: Procedure ClicaBottao; var Elements: OleVariant; i: Integer; begin with Form1 do begin WebBrowser1.Silent := true; Elements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (Elements.Length - 1) do if (Elements.item(i).type = 'submit') then Elements.item(i).Click; end; end; Porém ele da erro e não clica no botão. Já tentei também fazer da seguinte forma: WebBrowser1.OleObject.Document.all.Item('submit-row',0).Click; Porém ele não clica no botão. Queria saber como faço para clicar nesse botão ta dificil aqui . abrçs
  5. Ola, tenho uma tabela com varias informaçoes, exemplo : descrição, preço, un.. Tenho um botão 'Filtrar', do qual abre um novo form, com varios panels, preciso saber como faço para que quando a culuna descrição por exemplo esteja selecionada, ao clicar no botão 'filtrar' fique visivel o panel_filtro_descricao no form de filtros, ou quando esteja selecionada a coluna preço e clicar no 'filtrar' fique visivel o panel_filtro_preco. Aguem poderia de ajudar ?
  6. Olá amigos da script brasil. Gostaria de saber como faço para por um Edit desse tamanho na minha aplicação do delphi, PS: O Edit normal quando eu almento á largura do mesmo ele volta para o normal, so cresce á altura Me ajudem obrigado .
  7. Tenho um pequeno problema em relação ao PopupMenu, pois coloquei uma posição fixa para ele : procedure TfPrincipal.Image5Click(Sender: TObject); begin PopupMenu1.Popup(555,149) end; Tenho varios botões em meu form principal, todos alinhados a esquerda; Tenho uma opção que deixa invisivel os botões, então a imagem onde faz o PopupMenu aparecer muda de lugar conforme habilito ou sesabilito alguns botões, sendo assim se eu colocar uma posição fixa para meu PopupMenu, ele não vai acompanhar minha imagem, teria como colocar na posição do PopupMenu algum comando para que ele acompanhe a 'imagem5' ?
  8. Olha eu novamente, rss . Enfim .. hojé me surgiu uma necessidade muito grande para envio de mensagens atráves do delphi para um webchat (xat.com) Como funcionaria ? - Meu webbrowser abriria o link: http://xat.com/FCGAZETADOCARTOLA - Após acessar o webbrowser em um memo eu digitaria á mensagem, está mensagem seria digitada no campo grande do webchat. - E um botão para clicar no botão de enviar que fica ao lado da mensagem. Como posso fazer isto, sendo que o webchat é feito com o adobe .. Abrçs.
  9. Boa tarde pessoal... Estou com um pequeno problema... Possuo um sistema onde realizo um cadastro de OS e gravo no banco de dados (frmCadastro) Possuo na tela inicial (frmConsulta), um dbgrid que mostra todas as OS cadastradas. Quero saber como eu posso selecionar a linha do meu dbgrid e abrir um outro formulário idêntico ao de cadastro só que para edição dos campos... esse novo formulário(frmEditar) deve trazer os campos preenchidos já com os dados do Dbgrid. Estou utilizando o Zeos para realizar a comunicação, e Querys para realizar os cadastros e consultas juntamente com DataModule.
  10. Olha eu novamente, rss :) . Então, desenvolvi o seguinte script em Delphi porém não está funcionando á intenção dele é : Verificar se á minha Thread está suspença ou foi finalizada, utilizando á API CreateThread. Code: ******* Criação de um procedimento com meu nome Procedure MyName(Nome : String); begin Nome := 'David'; end; ******* Criação da minha Thread var hThread : THandle; hThdID : Cardinal; hThread := CreateThread(nil, 0, @MyName, nil, 0, hThdID); ******* Verificação das Threads if SuspendThread(hThread) > 0 then ShowMessage('Minha Thread foi suspença'); if TerminateThread(hThread, 0) then ShowMessage('Minha Thread foi finalizada.'); ** FIM. Então este meu script não funciona, fiz com base em um artigo,onde sera que estou errando? rss tranks.
  11. Boa tarde galera... estou necessitando o manual onde consta todos os campos do objeto cobrebemX.. já fucei em tudo quanto é lugar e nada. Alguém consegue me ajudar? é o Layout de 400 Posições, o do Bradesco é diferente dos outros bancos pelo que eu li... PS: já enviei inúmeros emails para o suporte da cobrebemx e nada de resposta e telefone não atende, fica chamando até cair.
  12. Olha eu novamente, rss. Então, estava estudando um pouco sobre Threads é achei um metódo bem simples para serem criadas (CreateThread). Achei está API do Windows muito bacana é simples de se utilizar, Diferente das Classes que precisamos fazer mil é uma coisas, Enfim. Estou desenvolvendo um aplicativo é preciso fazer uma checagem se minha Thread está suspença, caso esteja ela ficaria ativa novamente. Nas classes eu achei á função TThread.Resume (); - TThread.Suspend (); Queria saber como posso utilizar essas funções na API CreateThread . Abraços.
  13. Olá amigos da Scriptbrasil. Então, desenvolvi um aplicativo no Delphi, no qual ele acessa uma página na WEB é á cada 10 segundos ele atualiza á pagina. Então, estou querendo por uma lista de PROXYS para á cada atualização ele mudar o PROXY. Funcionando da seguinte forma: Eu adiciono um memo no meu projeto, é la ficaria os meus proxys: 127.0.0.1:8080; 147.0.0.1:8080; Á cada REFRESH do meu WebBrowser ele pegaria á primeira PROXY do memo é daria -1 na lista para remove-ló é ir para o próximo. Queria um exemplo de script para fazer isto, procurei em todo os locais e não achei algo que fica-se mais ou menos como eu queria... Abraços :p
  14. Olá galera... mais uma dúvida minha... Tenho um programa que lê um arquivo Txt e joga para um Memo só que eu precisaria apagar a primeira e a ultima linha desse Memo sendo que ele pode variar de tamanho conforme o dia que eu importar esse arquivo. No meu Memo o código está assim, onde eu detectava alguma palavra que tem em todos TXT na primeira e ultima linha e deleto ela. O TXT contém somente valores numéricos (nos campos que eu preciso).. o que acontece porém é que 1 maldito TXT na última linha só tem um numero 9 e mais nada então essa minha lógica "gambiarra" não funciona... Alguma idéia de como deletar somente a primeira e última linha do Memo? procedure TfrmDebitoConta.mmListaChange(Sender: TObject); var Palavra : String; i : Integer; begin Palavra := 'LOVELY'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; Palavra := 'Z000'; for i := Pred(mmLista.Lines.Count) DownTo 0 do begin if Pos(Palavra, mmLista.Lines) > 0 then mmLista.Lines.Delete(i); end; end;
  15. Boa tarde... estou desenvolvendo uma tela onde eu pego um arquivo txt, percorro ele e vejo se tem alguma informação a mais que no banco de dados. Tenho uma DBLookupComboBox que quando aperto o botão de "Percorrer" o arquivo, ela zera e não grava os valores.. e também não estou conseguindo tratar meu códido na linha "qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C')." que seria o campo da ComboBox.. Ela mostra o nome e deveria gravar o código. Eu possuo 2 Query de pesquisa por causa do DBLookupComboBox, uma Query de Pesquisa em uma tabela X e outra na Tabela Y, pois preciso ler os arquivos de uma tabela e gravar em outra. Estou usando o componente Zeos para fazer essa conexão. O único problema que estou enfrentando é que não estou conseguindo fazer gravar esse DBLookupComboBox no banco, após eu clica no botão "percorrer" ele apaga o valor do campo e não grava nada... se precisarem mais informações é só pedir =) Abaixo meu código do botão de percorrer arquivo pra darem uma olhada o que ta faltando.. procedure TfrmDebitoConta.btnPercorrerClick(Sender: TObject); var ind : integer; begin mmPercorre.Lines.Clear; memAtualizado.Lines.Clear; for ind := 0 to mmLista.Lines.Count - 1 do begin qryPesquisa.Close; qryPesquisa.ParamByName('p_S_NUMERO_FICHA_DEBITO_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6); qryPesquisa.Open; if qryPesquisa.IsEmpty then mmPercorre.Lines.Add(Copy(mmLista.Lines[ind], 2, 6)) else begin qryUpDate.Close; qryUpDate.ParamByName('p_S_NUM_FICHA_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 2, 6); qryUpDate.ParamByName('p_S_AG_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 27, 4); qryUpDate.ParamByName('p_S_CONTA_CLIENTE_DEB_CONTA').AsString := Copy(mmLista.Lines[ind], 31, 12); qryUpDate.ParamByName('p_F_VAL_DEB_CONTA_CLIENTE').AsString := Copy(mmLista.Lines[ind], 63, 5); //qryUpDate.ParamByName('p_I_COD_B_CONTA_CORRENTE_DEBIT_C').AsInteger := dbBancoNome.KeyValue; ( não estou conseguindo tratar esse campo) qryUpDate.ExecSQL; memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 2, 6)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 27, 4)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 31, 12)); memAtualizado.Lines.Add(Copy(mmLista.Lines[ind], 63, 5)); showmessage(dbBancoNome.text); memAtualizado.Lines.Add(''); end; end;
  16. Olá, essa é a minha primeira postagem nesse fórum (além de ser o terceiro em que pergunto) e peço desculpas por qualquer erro que eu esteja cometendo. Sou iniciante em programação orientada a objetos, estudando à apenas seis meses a IDE Delphi 7 em meu curso. Estou a 3 dias do termino do prazo final do trabalho que conclui essa matéria e boa parte de meu projeto está pronto, mas emperrei em um ponto do qual eu não sei o que fazer. A ideia do meu projeto é o gerenciamento de fichas e anotações para se jogar RPG (Role Playing Game) de mesa. O programa principal cria, conforme um registro é carregado ou um formulário para se criar um novo registro é chamado, dinamicamente abas contendo o formulário que será usado. Eu já desenvolvi uma procedure para salvar os dados do formulario no aquivo que eu determinei como "banco de dados" para esse tipo de registro e outra procedure para se abrir um registro - que foi bem simples depois de pensar algumas horas. Como eu executo essa procedure de salvamento ou como eu crio uma que ache os componentes dentro desse formulário dinâmico? Aqui vão as procedures citadas. //Função de abertura de registro/aba //No caso J_Principal é meu Main Form, Campanha é meu registro e PC_Area_de_Trabalho é o PageControl onde as abas que são criadas dinamicamente ficam localizadas procedure TJ_Principal.AbrirCampanha (C : String); var Tab : TTabSheet; Form : TJ_Campanha; begin Tab := TTabSheet.Create(Self); Form := TJ_Campanha.Create(Tab); Seek(ArqCam, 0); while (not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (C = Campanha.Titulo) then begin Seek(ArqCam, FilePos(ArqCam) -1); Break; end; end; if (AbaExiste(Campanha.Titulo)) then begin FreeAndNil(Tab); Exit; end; with Tab do begin PageControl := PC_Area_de_Trabalho; Caption := Campanha.Titulo; ImageIndex := 1; end; with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Tab; L_Cria_Mod.Caption := 'Criado por: ' + Campanha.Criador + ' em: ' + DateToStr(Campanha.DataDeCriacao) + ' Modificado em: ' + DateToStr(Campanha.DataDeModificacao); E_Nome.Text := Campanha.Titulo; M_Resumo.Text := Campanha.Resumo; M_Detalhes.Text := Campanha.Detalhes; if (Campanha.Permissao) then Form.RP_Permissao.ItemIndex := 1 else Form.RP_Permissao.ItemIndex := 0; Show; end; PC_Area_de_Trabalho.ActivePage := Tab; end; //Aqui a procedure padrão para se criar uma nova aba (Um formulario, no sentido literal, não de Form, onde é preenchido os dados que irão ser salvos em Registro) procedure TJ_Principal.CriarAba (F : TFormClass); var Tab : TTabSheet; Form : TForm; Tag : Integer; begin Tab := TTabSheet.Create(Self); Form := F.Create(Tab); if (F = TJ_Campanha) then Tag := 1 else if (F = TJ_Aventura) then Tag := 2 else if (F = TJ_Cena) then Tag := 3 else Tag := 0; Case (Tag) of 1 : Form.Caption := 'Novo - Campanha *'; 2 : Form.Caption := 'Novo - Aventura *'; 3 : Form.Caption := 'Novo - Cena *'; 4 : Form.Caption := 'Novo - Personagem *'; 5 : Form.Caption := 'Novo - Raça *'; 6 : Form.Caption := 'Novo - Classes *'; 7 : Form.Caption := 'Novo - Habilidade *'; 8 : Form.Caption := 'Novo - Item *'; end; if (AbaExiste(Form.Caption)) then begin FreeAndNil(Tab); Exit; end; with Tab do begin PageControl := PC_Area_de_Trabalho; Caption := Form.Caption; ImageIndex := Tag; end; with Form do begin Align := alClient; BorderStyle := bsNone; Parent := Tab; //Name := 'Nome'; //Só coloquei isso pois minha ultima tentativa mal sucedida era usar o Application.FindCOmponent('Nome'), porém meu teste não funcionou v.v Show; end; PC_Area_de_Trabalho.ActivePage := Tab; end; //Função que verifica se já existe alguma aba igual já aberta function TJ_Principal.AbaExiste(NomeAba: string): Boolean; var I : Integer; Aba : TTabSheet; begin Result := False; for I := 0 to PC_Area_de_Trabalho.PageCount - 1 do begin if ((PC_Area_de_Trabalho.Pages[I].Caption = NomeAba) or (PC_Area_de_Trabalho.Pages[I].Caption = ('*' + NomeAba))) then begin Aba := PC_Area_de_Trabalho.Pages[I]; PC_Area_de_Trabalho.ActivePage := Aba; Result := True; Break; end; end; end; //Esse é a unica Procedure que não está localizada no Main Form //Processo que salva os dados preenchidos em um Form préviamente aberto com CriaAba. //Funciona perfeitamente se tiver um botão dentro do formulário que o ative, mas o Main Form(J_Principal) não consegue acessa-lo, pois como é criado dinamicamente //e se tem mais de um tipo de form TJ_Campanha aberto, ele não sabe para qual eu estou me referindo. procedure TJ_Campanha.SalvarArquivo; var I : Integer; begin I := 1; Seek(ArqCam, 0); while (not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (Self.E_Nome.Text = Campanha.Titulo) then if (MessageDlg('Já existe um registro com esse nome, deseja salvar mesmo assim?' + #13 + 'Caso SIM, ambos os registros serão mantidos.', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin Seek (ArqCam, 0); while(not EoF(ArqCam)) do begin Read(ArqCam, Campanha); if (Campanha.Titulo = Self.E_Nome.Text + IntToStr(I)) then begin Inc(I); Seek(ArqCam, 0); end; end; E_Nome.Text := E_Nome.Text + IntToStr(I); Break; end else Exit; end; with Campanha do begin Criador := Usuario.Nome; DataDeCriacao := Date + Time; DataDeModificacao := Date + Time; Titulo := E_Nome.Text; Resumo := M_Resumo.Text; Detalhes := M_Detalhes.Text; if (RP_Permissao.ItemIndex = 0) then Permissao := False else Permissao := True; for I := 1 to Self.LB_PJogaveis.Count do //O que é essa propriedade ItemHeight??? PJ[I] := Copy(Self.LB_PJogaveis.Items[I-1], 0, Pos(' ', Self.LB_PJogaveis.Items[I-1])); for I := 1 to Self.LB_PNJogaveis.Count do PnJ[I] := Copy(Self.LB_PNJogaveis.Items[I-1], 0, Pos(' ', Self.LB_PNJogaveis.Items[I-1])); for I := 1 to Self.LB_AventurasEscolhidas.Count do Aventuras[I] := Copy(Self.LB_AventurasEscolhidas.Items[I-1], 0, Pos(' ', Self.LB_AventurasEscolhidas.Items[I-1])); end; Write(ArqCam, Campanha); J_Principal.PC_Area_de_Trabalho.ActivePage.Caption := Campanha.Titulo; end; Todo esse código foi desenvolvido por mim, ao longo de dois dias com a ajuda desses links aqui: http://lucianopimenta.com/post.aspx?id=171- Que utilizou a abertura em abas para fazer um Navegador http://www.devmedia.com.br/websys.5/webreader.asp?cat=3&artigo=1907&revista=clubedelphi_110#a-1907- Inicialmente eu iria usar essa classe, mas ela se demonstrou incompativel com a minha IDE por motivos desconhecidos. Eu meio que estou desesperado. Se alguém tiver alguma ideia de como eu devo proceder a partir de agora, eu agradeço. Se algo ficou mal explicado, me desculpem, pois estou morrendo de sono, mas perguntem por que eu tento me explicar de novo com outras palavras. Desde já, agradeço.
  17. Olá Galera! Venho aqui mais uma vez buscar ajuda para a plataforma delphi, dessa vez meu problema é encontrar um componente que faça o que TMediaPlayer faz. Mas por que achar outro componente se já tem um nativo do próprio Delphi. Aquestão é: o TMediaPlayer do Delphi tem problemas ao rodar vários arquivos como de MP3 e outros formatos. Ou seja, estou buscando algum outro componente para substitui-lo ou uma solução para os problemas do TMediaPlayer. Agradeço desde já!
  18. Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113
  19. Olá pessoal, Tenho uma empresa de HOST é gostaria de desenvolver um aplicativo para envio de SMS para meus clientes, porem não sei por onde iníciar , Oque seria necessário para desenvolver está ferramenta? seria possível públicar um código-fonte de exemplo? Abraços.
  20. Boa tarde pessoal, sei que esse tópico é comum em alguns foruns, mas já tentei fazer alguns exemplos e não consegui e nem compreendi direto, preciso realizar uma consulta de um webservice, e esse retorno de webservice é uma string separado por | e a cada linha é um "enter". então tenho um função lá chamada consultaProdutos onde passo o codigo do produto e empresa e ele vai me retorna vários campos separados por |. No Delphi importei o wsdl e criei a unit dele, mas apartir dai fiquei confuso em como chamar a função consulta produtos, passar os parametros e pegar o retorno. Alguém poderia me ajudar ?
  21. Gostaria de saber como faço para centralizar os formulários mdi child no formulário mdi pai, já tentei posceerncenter e o código abaixo mas não consigo, abraços. procedure TFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var Rect: TRect; OurWidth: Integer; OurHeight: Integer; begin if Showing then begin // Obtem o retângulo da área cliente MDI Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect); // Calcular largura e altura da área cliente OurWidth := Rect.Right - Rect.Left; OurHeight := Rect.Bottom - Rect.Top; // Calcula a nova posição ALeft := (OurWidth - Width) div 2; ATop := (OurHeight - Height) div 2; end; inherited SetBounds(ALeft, ATop, AWidth, AHeight); end;
  22. Olá pessoal da Script Brasil , Desenvolvi um software que envia e-mail para usuários. Então modifiquei a linha: IdMessage.Recipients.EMailAddresses := EdtEmail.Text; (Essa linha fica o e-mail do usuário) para esta: IdMessage.Recipients.EMailAddresses := Memo2.Lines.Text; Então, eu consigo enviar o email para vários destinarios ao mesmo tempo porem os emails ficam da seguinte forma: email@hotmail.com;email2@hotmail.com;email3@hotmail.com;email4@hotmail.com; Porem se eu deixo dessa forma para envio eles não envia da falha : email@hotmail.com; email2@hotmail.com; email3@hotmail.com; email4@hotmail.com; alguém poderia me da um HELP de como deixa um embaixo do outro para envio? Abraçooooooos!
  23. Olá galera da Scriptbrasil. Estou criando uma proteção para um jogo online, preciso proteger minhas threads para que elas não possam ser suspenças ou pausadas ou finalizadas ex: ProcessHacker, ProcessExplorer entre outros.. Eu faço da seguinte forma: Procedure CheckClasse(); begin while true do begin if FindWindow('cheat', nil) > 0 then begin ExitProcess(0); end; end; end; var hID : DWORD; begin CreateThread(nil,0,@CheckClasse,nil,0,hID); end. Então, ele cria uma thread na função CheckClasse, mais se eu abrir o programa ProcessHacker ou ProcessExplorer ir nas propriedades la eu acho a Thread rodando, eu pauso ela e a proteção pausa. queria impedir isso, alguém poderia me manda um exemplo de codigo feito em delphi? abrssss
  24. Olá pessoas, preciso fazer o seguinte. Tenho uma caixa de texto e toda vez que eu digitar a palavra PIZZA ou pizza, por exemplo, quero que ela fique vermelha. Na mesma hora, sem ter nenhum botão ou algo assim. Alguém ai pode me ajudar? Obrigado ;)
  25. Boa tarde, Gostaria de saber se tem como converter este tipos string para pansichar, pois entou tentando fazer um backup aqui e esta dando este erro [DCC Error] UBackup.pas(101): E2010 Incompatible types: 'string' and 'PAnsiChar' no código abaixo, já tentei de várias formas, porém ainda não consegui, estou usando o Delphi 2010 e utilizando um opendialog para pegar o diretório e envio para a edit,desde já agradeço obrigado. WinExec('cmd /c mysql -u root -pmax -h localhost sgf < ' + PAnsiChar(AnsiString(EdLocalRestaurar.Text)), SW_HIDE);
×
×
  • Criar Novo...