delphi

Aqui vai o link do Alpha skins, no site vc pode baixar referente a versão do seu delphi http://www.alphaskins.com/dwnld.php

Adicione 2 buttons ou outros componentes de sua preferencia. Mude o caption de um para "Mostrar" e o outro para "Esconder". No botão de mostrar coloque isso: ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW); No botão de esconder coloque isso: ShowWindow(FindWindow(nil,'Program...

Adicione: 1 Edit 1 Memo 2 Buttons Acrecente a seguinte uses: Winsock Adicione as seguintes functions:   Function nibzxd(strIPAddress : String) : String; Var strHost : String ; pszIPAddress : PChar; pReturnedHostEnt : PHostEnt; InternetAddr : u_long; GInitData : TWSADATA; Begin strHost :=...

-O que é? Efeito comum no Flash, no qual o texto vai aparecendo letra por letra. -Nível de dificuldade? Iniciante. -O código é difícil de entender? Não. -"comofas/" 1º - Crie um timer e um label. 2º - Embaixo de: var   Form1: TForm1; Declare:   texto : String;   i : integer; 3º - No evento...

Adicione 2 Edit e 1 Button Declare a função:   function nibzxd(nibz: string; clube: integer; programacao: integer): string; begin Result := Copy(nibz, clube, programacao); end; No evento onchange do Edit1 coloque:   var nibz: String; begin nibz :=...

Olá pessoal, Sou participante de outros fóruns de Delphi e encontrei esta dica e achei válido postar aqui pra todos nós. ***************************************************************************************** Em sistemas onde o usuário precisar digitar textos como observações, emails um...

function decimalHoras(valorDecimal: real): real; var a, b, c, d: real; begin a := valorDecimal / 60; b := Int(a); c := a - b; d := c * 60; Result := StrToFloat(FormatFloat('0', a) + ',' + FormatFloat('00', d)); end;

Vamos montar uma aplicação em delphi para ouvir varias radios online Em um Form coloque os seguintes componentes 1 - ListBox // para colocar a lista de radios 1 - Edit // para montar o caminho para uma determinada radio 1 - TrackBar // para servir como controle de volume da radio ... mude o...

CODE unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public...

Meu POVO tome cuidado com o arquivo que vc for usar neste código Deletando: Deletefile('C:Nibz xD['); ~ Onde esta escrito Nibz xD vc muda para o nome do arquivo que vc deseja excluir Renomeando: var clube,programacao : string; begin clube := 'C:Nibz.exe'; programacao := 'C:NibzxD.exe'...

Digitar somente Números   No evento onkeypress declare: procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (key in ['0'..'9',#8]) then key := #0; end; Créditos : Victor_xp

Vamos lá Adicione os seguintes componentes em seu form: 2 Button (Aba Standard); 2 Timers (Aba System); 1 Edit (Aba Standard). Agora posicione-os como quiser em seu form. Ao posicionar, pode mudar a propriedade Caption dos buttons para: Button1 - Iniciar (F1) Button2 - Parar (F2) Ao...

Primeiro: Intalando o componente RealAudio Abra seu Delphi e vá em Component>Import ActiveX control...   Procure por Real Player ActiveX Control Library (version 1.0) E em palette page escolha em qual paleta irá instalar..eu instalei na System. Então, clique em Install Após isso, aparecerá...

Hoje Vo Ensinar A Como Criar Um Programa que irá Gerar Senhas Aleatórias. Nivel =Iniciante(Basicão) 1º Passo - No form, insira 1 Edit e 1 Button. 2º Passo - Dps De 2 cliques No Button 1 e Adicione Esse Código: OBS: Não esqueça de declarar as variáveis:   var i: integer; const str =...

Olá meu povo me chamo System , vou postar um tutorial bem basicão sobre alguns comandos do delphi: como condições (se, se não, enquanto e etc.) Explicação de alguns dos comandos mais usados - If, Then e Else - Case, Of, Else - While, Do Por enquanto é só logo vou adicionar mais. Mas...

//Essa dica é um demostrativo de como se calcular a idade de uma pessoa em anos, meses e/ou dias //1º Declare na uses a unit DateUtils //2º Insira um Button e um Maskedit no Form //3º Na propriedade EditMask do Maskedit insira o formato Date e modifique //no campo Input Mask esse formato para 4...

Primeiramente é necessário que o usuário tenha uma conta de e-mail cadastrada em algum servidor de e-mails. Em seguida o programador deve obter alguns dados com relação à sua conta de e-mail, listados abaixo: - host SMTP (para envio de mensagens) - port utilizado pelo servidor de e-mails -...

Tutorial Iniciante Objetivo: Primeiro contato com Delphi. Entrando no delphi o próprio programa criará um projeto para você, chamando-o de Project1. E juntamente com o projeto tem um form(Form1) que também foi criado. Finalmente todo form tem uma unidade correspondente que é mostrada no editor...

Irei ensinar como utilizar as skins do Alpha Controls, um componente profissional e que possui uma versão Lite gratuita para uso livre. As skins do Alpha são de excelente qualidade e garantem um excelente visual ao seu aplicativo. Ex: Material necessário: Alpha Controls Scan O arquivo...