Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.310 ]
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.
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Questionário em estatisticas em Pascal
Visualizador de imagens feito no Lazarus
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (1)
Mikrotik não abre o webmail-segur... da Locaweb (0)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)