[resolvido] Dúvida Simples Sobre Código

[deio]

como eu coloco na condição de um código uma ordem para ele executar outra procedure.

Ex:

execute procedure button1click

se (condição) então

execute procedure abrir1click

(...)

[Churc]

Opa

é só passar os paramêtros para a outra função exemplo

procedure TForm1.ButtonAbrirClick(Sender: TObject);

begin

...

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if bla then

Abrir1Click(Self);

end;

Seria isso?

abraço

[deio]

isso mesmo XD

vlw aí, isso vai me economizar bastante tempo, linhas de código e o programa vai ficar mais rapidinho XD

[Churc]

Opa

Legal deio, ai vai um outro exemplo bem panaca mas que possa iluminar sua cabeça

algum dia ahuahuahu

Vamos supor que você tem 10 botões no Form, cada um em seu clique você queria

dar um ShowMessage com o Caption do botão que foi clicado...

A maneira comum porém complexa é em cada evento de clique do botão você chamar

o mesmo e colocar ShowMessage(BotaoQueFoiClicado.Caption);

A melhor maneira é usar typecast que consiste em chamar um Objeto sem tipo determinado

e pegar sua propriedade passando um tipo exemplo

procedure ShowButtonCaption(Sender: TObject);

begin

//Isso evita que se use essa procedure para outros componentes que não seja do tipo TButton

if (Sender is TButton) then

ShowMessage((Sender as TButton).Caption);

end;

E assim você chama em apenas um botão o Código passando

ShowButtonCaption(Sender);

E nos outros botões apenas linkar com o evento do primeiro botão...

Exemplo bem tosco, mass pode ser útil pra alguns algum dia sahusahu

abraço

[deio]

agora de cabeça não lembro de nada do meu projeto que precise disso, ou pelo menos por enquanto XD