Delphi - Como usar o InputQuery

-
procedure TForm1.Button1Click(Sender: TObject);
var  resultado : string;
begin
  resultado := 'Teste';
  if InputQuery('The Club', 'Teste', resultado ) then
    begin
      showmessage(resultado)
    end
  else
    begin
     ShowMessage('Operação Cancelada !');
     Edit1.SetFocus;
    end;
end;

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Delphi - ReportBuilder – Conhecendo os Recursos deste Gerador de Relatórios

-
Imagem
Nesta matéria iremos conhecer este poderoso gerador de relatório denominado ReportBuilder. Ele se diferencia da forma de trabalhar dos outros geradores de relatório como o Quick Report, ou até mesmo o Fortes Report. Vale salientar a imensa quantidade de recursos e a facilidade de construir relatórios possuindo algumas características importantes que vale salientar, como: A fácil instalação e manuseio dos componentes, sua utilização difere muito do Quick Report, ou seja não precisa de muito adaptação do programador. Procurarei abordar os principais componentes e demonstrar seu poderio seguido de uns exemplos bem simples de sua utilização. Entendendo o Funcionamento Observe na Figura 01 o esquema de como é o funcionamento do ReportBuilder. Figura 01. Equação do ReportBuilder. Em seguida irei dar uma breve explicação da dita “Equação do ReportBuilder”. Data Access: Acesso aos dados, seria a recuperação dos dados de uma base de dados qualquer, seja por tabel...
Leia mais

Delphi - Stringgrid com Alinhamento à Direita, à Esquerda e Centralizado

-
Nesta dica iremos montar um StringGrid com rotinas para alinhar os valores à Direita, à Esquerda e Centralizado. private    { Private declarations }   TempString: array[0..80] of char;   Labor: double;   Materiais: double;   Shipping: double;   COGS: double;   Price: double;   Sales: double;   Revenue: double;   Income: double;   GrowthRate: double;   procedure InitGrid;   procedure Calculate; public    { Public declarations } end; var   Form1: TForm1; implementation uses printers; {$R *.DFM} type   THack = class(TStringGrid)   end; const   Totals: set of 0..10 = [3, 8, 10];   FmtCentered = DT_SingleLine or DT_VCenter or DT_NoClip or DT_Center;   FmtLeft = DT_SingleLine or DT_VCenter or DT_NoClip or DT_Left;   FmtRight = DT_SingleLine or DT_VC...
Leia mais

Delphi - Instalando a versão Trial do Delphi 2007 for Win 32

-
Imagem
Neste artigo abordarei a instalação do Delphi 2007 for Win 32. Esta versão é válida por 14 dias onde vocês poderão utilizar e avaliar suas novidades. A instalação é realizada pela internet, ou seja, o arquivo que vocês baixam do site é de aproximadamente 4 Mb e o resto do download é realizado durante sua instalação, eu recomendo que utilizem uma boa conexão de banda larga, pois sua instalação é um pouco demorada. Primeiramente ressalto que para efetuar o download do Delphi 2007 é necessário ter um cadastro na CodeGear. Em seguida estarei explicando passo a passo como se deve realizar este cadastro. Entre no site http://www.codegear.com/ e acesse na região superior o LOG ON, como precisamos criar uma conta clique em “ Create a new account ”(Criar uma nova conta). Logo em seguida preencha com seus dados cadastrais e clique em “Create Count” (Criar Conta). Após efetuar o cadastro clique no menu Downloads/ Trial and Free Versions e escolha  “ Delphi® - Revolutionize your Windows®...
Leia mais