Fórum Problemas com CheckBox #218015
03/03/2004
0
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?
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
Curtir tópico
+ 0
Responder
Posts
03/03/2004
Mkoch
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.
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.
Responder
Gostei + 0
03/03/2004
Edupgarcia
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´
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´
Responder
Gostei + 0
03/03/2004
Edupgarcia
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´
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)