Criando Objetos 2
Publicado por Daniel 21/02/2005
[ Hits: 4.226 ]
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
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Visualizador de imagens feito no Lazarus
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)