Criando Objetos 2

Descrição

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.