Problemas com CheckBox

Delphi

03/03/2004

Tenho um CheckBox que possui algum código em seu evento OnClick.
Quando eu seto a propriedade Checked = True deste CheckBox via código em outras procedures, executa o evento OnClick automáticamente deste ChecBox, isto é normal? Existe como executar o evento OnClick somente quando clicar no CheckBox?


Mkoch

Mkoch

Curtidas 0

Respostas

Mkoch

Mkoch

03/03/2004

Desculpem pelo transtorno mas já consegui resolver, se por ventura ajudar alguém:
MeuCheckBox.OnClick := nil; //Desassocio a procedure associada ao evento OnClick do CheckBox
MeuCheckBox.Checked := True; //True ou False, no meu caso True.
MeuCheckBox.OnClick := ONomeDaProcedureDoEventoOnClick;
//Associo novamente a procedure do evento OnClick do CheckBox.


GOSTEI 0
Edupgarcia

Edupgarcia

03/03/2004

vc pode verificar de onde vem o comando

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if Sender.ClassName = ´TCheckBox´ then
...
else
...;
end;

p/ enviar o click de outro formulário vc pode usar o seguinte código

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.CheckBox1Click(Self);
end;

assim o sender.classname = ´TForm´


GOSTEI 0
Edupgarcia

Edupgarcia

03/03/2004

vc pode verificar de onde vem o comando procedure TForm1.CheckBox1Click(Sender: TObject); begin if Sender.ClassName = ´TCheckBox´ then ... else ...; end; p/ enviar o click de outro formulário vc pode usar o seguinte código procedure TForm2.Button1Click(Sender: TObject); begin Form1.CheckBox1Click(Self); end; assim o sender.classname = ´TForm´



GOSTEI 0
POSTAR