Verificar se um botao foi clicado ou nao....
Pessoal, parece ser uma coisa boba.... mas eu nao sei como fazer.... tem como eu saber se um usuario clicou em um certo botao... por exemplo eu tenho dois botoes no meu formulario.. como eu vou saber que o usuario clicou no batao1 ou no botao2???
se alguem tiver uma ideia, me passe presciso muito de saber como faz isso..
atenciosamente, Ramilton..
se alguem tiver uma ideia, me passe presciso muito de saber como faz isso..
atenciosamente, Ramilton..
Ramilton
Curtidas 0
Respostas
Andreyrf
12/11/2003
IF sender(btn1) then
......
else if sender(btn2) then
......
......
else if sender(btn2) then
......
GOSTEI 0
Djjunior
12/11/2003
if button(sender) = nomedobotao then
ps não me lembro direito o nome da classe a qual pertence o botão simples, portanto vc vai ter que olha-la e substitui-la no if que eu coloque ai.
ps não me lembro direito o nome da classe a qual pertence o botão simples, portanto vc vai ter que olha-la e substitui-la no if que eu coloque ai.
GOSTEI 0
Ramilton
12/11/2003
Valeu Pessoal....
GOSTEI 0
Wilian Jose
12/11/2003
Ola pessoal
Estava com um problema onde tinha que verificar se foi clicado no botão ou não,
fiz o seguinte espero que ajude:
private
cliq : integer;//variavel para ver se o botão foi clicado
no evento OnExit de um edit coloquei o seguinte:
procedure TFForm1.Edit1Exit(Sender: TObject);
begin
if (cliq = 1) then // se a var tiver 1
begin
Application.MessageBox(Inserção de Dados Cancelada.,Informação,MB_OK+MB_ICONINFORMATION);
end
else
begin
Botao_Salvar.SetFocus; //Vai para o botão Salvar
end;
end;
O botão em que eu tinha que clicar era para cancelar, se clicasse no botão cancelar a Var Cliq recebe 1
procedure TFForm1.CancelarExecute(Sender: TObject);
begin
cliq :=1;
end;
e no botão salvar coloquei a Var cliq recebendo 0
procedure TFForm1.SalvarExecute(Sender: TObject);
begin
cliq :=0;
end;
espero que tenha ajudado um pouco.
Estava com um problema onde tinha que verificar se foi clicado no botão ou não,
fiz o seguinte espero que ajude:
private
cliq : integer;//variavel para ver se o botão foi clicado
no evento OnExit de um edit coloquei o seguinte:
procedure TFForm1.Edit1Exit(Sender: TObject);
begin
if (cliq = 1) then // se a var tiver 1
begin
Application.MessageBox(Inserção de Dados Cancelada.,Informação,MB_OK+MB_ICONINFORMATION);
end
else
begin
Botao_Salvar.SetFocus; //Vai para o botão Salvar
end;
end;
O botão em que eu tinha que clicar era para cancelar, se clicasse no botão cancelar a Var Cliq recebe 1
procedure TFForm1.CancelarExecute(Sender: TObject);
begin
cliq :=1;
end;
e no botão salvar coloquei a Var cliq recebendo 0
procedure TFForm1.SalvarExecute(Sender: TObject);
begin
cliq :=0;
end;
espero que tenha ajudado um pouco.
GOSTEI 0
Joel Rodrigues
12/11/2003
E aí, ramilton. Resolveu?
GOSTEI 0