Este exemplo mosta como criar um form em tempo de execussão com o Kylix ou o FPC, esta e a primeira parte do projeto, vou criar um mini-programa todo em tempo de execussão para colocar aqui como exemplo para vocês parte a parte...

• Download criando_objetos_parte1.zip
• Enviar nova versã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;

// A unit QForms é a que constroi a tela.

var
  Form: TForm;
  Sair: Char;

begin
  Application.Initialize;
  WriteLn('Cosntruindo o Form...');
  Form := TForm.Create(Application); // Aqui o form e criado.
  WriteLn('Exibindo o Form...');
  Form.ShowModal; // Aqui ele e exibido.
  Form.Free; // Aqui ele e liberado da memória.
  Form := nil; // Aqui ele e igualado a nil.
  if (Form = nil) then
    WriteLn('Form destruido.')
  else
    WriteLn('Form ainda esta carregado.');

  WriteLn('Pressione uma tecla para sair.');
  read(Sair); // Essa linha e adicional, somente para dar tempo de se ler o que esta escrito na tela.
  Application.Terminate;
end.

Sistemas númericos

Animação com figuras

GTK em (Free)Pascal

Joguinho

Calculadora

Nenhum comentário foi encontrado.