Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.390 ]
Download criando_objetos_parte2.zip
Segunda parte do script, nesta parte alem de criar o form também são criados os botões...
/////////////////////////////////////////////////////////////
// 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.
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Visualizador de imagens feito no Lazarus
Questionário em estatisticas em Pascal
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Programa fora de escala na tela do pc (10)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)
O programa assinador digital (1)









