sábado, 10 de novembro de 2012

Lazarus - Formulários e o componente MainMenu


Abra um novo projeto


Salvar com os nomes
Arquivo de projeto: Formulario
Arquivo de unit: u_1_formulario


Insera um novo formulário
File / New Form

F9 – para compilar
Salve o novo formulário
Pedirá para salvar o formulário ( unit )
Salve com o nome u_2_formulario


Adicione um botão no formulário 1
Dê um duplo clique e programe com o código:

=======================================================

Form2.show;

=======================================================

É necessário adicionar a unit que é responsável por esse formulário.
Adiciona-se com o comando uses.
Antes do procedimento " TForm1.Button1Click "

=======================================================

implementation    
{ TForm1 }          
uses u_2_formulario;
procedure TForm1.Button1Click(Sender: TObject);

=======================================================


Componente TmainMenu

Adicione um TmainMenu no formulário 1.
Um clique no componente e um clique no formulário 1.

Duplo clique no componente MainMenu1
Clique em “New Item 1” e altere a propriedade “Caption” para “Arquivo”
Clicar com o botão direito no botão “Arquivo” e escolher “Create Submenu”
Clique em “New Item 2” e altere a propriedade “Caption” para “Sair”


Feche o “Menu Editor” do “MainMenu1”
Voltando ao formulário principal ( formulário 1 )
Clique em “Arquivo” e clique em “Sair” do Form1
Digite:

=======================================================

Close;

=======================================================

Execute o programa e faça um teste


Altere a propriedade Caption colocando o símbolo “&” antes do caption
&Arquivo
&Sair
Observe que a primeira letra fica sublinhada
Isso significa que é possível acessar esses comandos com a tecla “Ctrl + letra que está sublinhada” ou “Alt + letra que está sublinhada”.


Abra o “MainMenu1”
Clique com o botão direito em “Arquivo”
Clique em “Insert New Item (After)”
Altere o “Caption” para “Ajuda”
Clique com o botão direito em “Ajuda”
Clique em “Create Submenu”
Altere o “Caption” para “Sobre”
Feche o “Menu Editor” do “MainMenu1”


Voltando ao formulário principal
Clique em “Ajuda” e depois em “Sobre”
Digite:

=======================================================

Form2.Show;

=======================================================

Execute o programa e faça um teste


Altere o aspecto do formulário 2
Crie informações sobre o seu programa
Exemplo:
versão
autor
e-mail
Seja criativo
Adicione um botão “Ok” que irá fechar o formulário Sobre.


Adicione um terceiro formulário
Faça um pequeno programa que o usuário entra com dois números e imprima o menor;
Antes do menu “Sair”, adicione um menu que irá levar para o formulário de mostrar o menor, altere o “Caption” desse submenu para “Menor”.