[resolvido] Não Entendi Um Exemplo

[Guest --ROBINHOCNE --]

Estou com uma apostila de passo a passo de programação em delphi, mas não entendi um trecho, alguém pode me ajudar?

Fiz uma lista de ações com o :

Clientes

Fornecedores

Funcionarios

Categorias

Itens

Sair

Ai aqui fala para que os comandos de cada ação do ActionList1 devem ser digitados no evento OnExecute das mesmas. Como exemplo, dê um duplo-clique no objeto ActionList1 e selecione a ação ActSair. Na janlea Object Inspector, guia Events, selecione evento OnExecute e digite o comando a seguir em sua procedure:

Close; {Fecha a tela Atual}

Eu fiz nessa ação, mas o que eu vou colocar nas outras ações?.

[Micheus]

Estou com uma apostila de passo a passo de programação em delphi, mas não entendi um trecho, alguém pode me ajudar?

Fiz uma lista de ações com o :

Clientes

Fornecedores

Funcionarios

Categorias

Itens

Sair

Ai aqui fala para que os comandos de cada ação do ActionList1 devem ser digitados no evento OnExecute das mesmas. Como exemplo, dê um duplo-clique no objeto ActionList1 e selecione a ação ActSair. Na janlea Object Inspector, guia Events, selecione evento OnExecute e digite o comando a seguir em sua procedure:

Close; {Fecha a tela Atual}

Eu fiz nessa ação, mas o que eu vou colocar nas outras ações?.

Esta dando uma revisada nos post zerados, então, vou por uma resposta aqui...

ROBINHOCNE, o que você espera que aconteça quando você executar a ação Clientes, Fornecedore, ... ? Se você consegue responder a esta pergunta, saberá o que fazer. ;)

Vamos supor (apenas supor) que ao executar a opção Clientes, voce esteja querendo acessar a tela de consulta de clientes (digamo que seu nome seja BrwClientes), então, supondo ainda que você crie seu form dinamicamente, você teria o seguinte código:

procedure TMainFormActClientes.OnExecute(Sender :TObject);
begin
  BrwClientes := TBrwClientes.Create(Self);
  try
    BrwClientes.ShowModal;
  finally
    BrwClientes.Free;
  end;
end;

já se você não cria os forms dinamicamente, ou seja, você não removeu eles nas opções de Projeto da caixa Auto-create form, então o código ficaria assim:

procedure TMainFormActClientes.OnExecute(Sender :TObject);
begin
  BrwClientes.ShowModal;
end;

Abraços

p.s. já que você tem participado bastante do forum, não gostaria de se registrar?

[Guest --ROBINHOCNE --]

Obrigado Micheus, entendi o que você quiz dizer, para min esta resolvido e o forum esta me ajudando muito.