Ver Mensaje Individual
  #3  
Antiguo 24-08-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Vamos a ver que te parece esta solución. Usamos un solo evento OnClick para los dos checkbox, y dento colocamos esto:

Código Delphi [-]
procedure TForm1.Ch1Click(Sender: TObject);
begin
  // Solo hay problemas cuando los dos estan marcados
  if Ch2.Checked and Ch1.Checked  then
    // Desmarcamos el checkbox que no nos llamo
    if Sender = Ch1 then
      Ch2.Checked:= FALSE
    else
      Ch1.Checked:= FALSE;
end;

PD: ¿Porque no usas radiobuttons? si quieres tener la opción de no marcar ninguno, siempre puedes añadir otro radiobutton con el caption "Ninguno de las anteriores"
Responder Con Cita