Fórum Verificar se um botao foi clicado ou nao.... #194658

IF sender(btn1) then
......
else if sender(btn2) then
......

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.

Valeu Pessoal....

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.

E aí, ramilton. Resolveu?