Como criar esta função ou procedure?

Delphi

02/12/2005

Olá

Tenho uma rotina que preciso usar em 21 SpeedButton. Acho muita informação para colocar em vários SpeedButton.
O ideal é criar uma função ou procedure para isto. Mas não sei como fazer. :oops:
Alguém pode me mostrar como fazer?

O que quero em cada botão é o seguinte:

Passar o nome do SpeedButton clicado para o ParamByName e fazer a verificação abaixo.

IBDataSet1.Close;
IBDataSet1.ParamByName(´AP´).Value:= Nome;
IBDataSet1.Open;
if IBDataSet1.RecordCount>0 then
begin
SpeedButtonClicado.Font.Color:= clNavy;
Menu1.Click;
end
else
IBDataSet1.Close;


Ivonei

Ivonei

Curtidas 0

Respostas

Fabiobb

Fabiobb

02/12/2005

Dae, tudo bem ?
Coloca no evento onclik de um botão e depois seleciona todos os botões e coloca os onclik do botões o mesmo de todos os botões...

e no onclick do primeiro botão coloca assim...

IBDataSet1.Close;
IBDataSet1.ParamByName(´AP´).Value:=TSpeedButton(Sender).Name;
IBDataSet1.Open;
if IBDataSet1.RecordCount>0 then
begin
TSpeedButton(Sender).Font.Color:= clNavy;
Menu1.Click;
end
else
IBDataSet1.Close;

Pode colocar que funciona perfeitamente...
Espero que tenha sido útil...


GOSTEI 0
Ivonei

Ivonei

02/12/2005

Brigadão fabiobb.
É exatamente isto que eu queria. :D


GOSTEI 0
POSTAR