Criando Objetos
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...
Descrição
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...
/////////////////////////////////////////////////////////////
// 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.