Criando Objetos 2

Publicado por Daniel 21/02/2005

[ Hits: 4.192 ]

Download criando_objetos_parte2.zip




Segunda parte do script, nesta parte alem de criar o form também são criados os botões...

  



Esconder código-fonte

/////////////////////////////////////////////////////////////
// CRIANDO UM PROGRAMA PASCAL USANDO CONSEITOS CLX (LINUX) //
// PROGRAMADOR: DANIEL BREDA                               //
// CONTATO: DANIEL.BREDA@GMAIL.COM                         //
//                                                         //
// ESTE PROGRAMA E UMA DEMONSTRAÇÃO DE COMO SE CRIAR UM    //
// OBJETO EM TEMPO DE EXECUSSÃO COM O KYLIX OU PASCAL...   //
// CASO VOCÊ DESEJA CRIA-LO VIA PASCAL VOCÊ DEVE TER A     //
// UNIT "QFORMS" PARA DAR O FORMATO A TELA.                //
/////////////////////////////////////////////////////////////

program criando_objetos;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  QForms,
  QButtons;

var
  Form: TForm;
  Btn1, Btn2, Btn3, Btn4: TBitBtn;

begin
  try
    Application.Initialize;
    WriteLn('Cosntruindo os objetos...');
    Form := TForm.Create(Application);
    Btn1 := TBitBtn.Create(Application);
    Btn2 := TBitBtn.Create(Application);
    Btn3 := TBitBtn.Create(Application);
    Btn4 := TBitBtn.Create(Application);

    WriteLn('Alinhando os objetos...');
    Form.Caption := 'Criando Objetos - Por Daniel Breda';
    Form.Width := 500;
    Form.Height := 130;
    Form.Top := 200;
    Form.Left := 200;

    Btn1.Parent := Form;
    Btn1.Caption := '&Cadastrar';
    Btn1.Left := 8;
    Btn1.Top := 8;
    Btn1.Width := 80;
    Btn1.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn1.png');

    Btn2.Parent := Form;
    Btn2.Caption := '&Deletar';
    Btn2.Left := 8;
    Btn2.Top := 38;
    Btn2.Width := 80;
    Btn2.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn2.png');

    Btn3.Parent := Form;
    Btn3.Caption := '&Confirmar';
    Btn3.Left := 8;
    Btn3.Top := 68;
    Btn3.Width := 80;
    Btn3.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn3.png');

    Btn4.Parent := Form;
    Btn4.Caption := '&Cancelar';
    Btn4.Left := 8;
    Btn4.Top := 98;
    Btn4.Width := 80;
    Btn4.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName) + '/img/btn4.png');

    WriteLn('Exibindo os objetos...');
    Form.ShowModal;
    Form.Free;
    Form := nil;
    
    Application.Terminate;
  except
    WriteLn('ERRO!!! ACONTECEU ALGUMA COISA ERRADA NO SEU CODIGO.');
    Sleep(5000);
    Application.Terminate;
  end;
end.

Scripts recomendados

Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)

Numeros pitagoricos

ZCodEdit - Editor de textos com sintaxe HTML e Pascal

Questionário em estatisticas em Pascal

Visualizador de imagens feito no Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts