[aitorqrv]

Hola a todos:

Estoy haciendo un progrma que que controla un rele que me enciende y me apaga una bonbilla. Mi problema es el siguiente, no quiero poner un componete tipo CheckBox por el tema estetico del programa, y en su lugar me gustaria poner una imagen de una bonbilla, que la cual me represente graficamente como esta mi bonbilla.

Para hacer esto he puesto una imagen dentro de un SpeedBottom y he utilizado el siguiente codigo:

Código Delphi [-]
procedure TForm1.led_2Click(Sender: TObject);
begin
    Case led_2.Enabled of
    true : led_2.Enabled := false;
    false : led_2.Enabled := true;
    //else ShowMessage('');
    end;

    label27.caption:= booltostr(led_2.Enabled);
end;

Pero, cuando pulso el boton por primera ved, la luz se enciende, lo buelbo a pulsar y se apaga, pero cundo lo pulso por tercera vez, la luz se queda constantemente encendida (siempre en true)?.



Yo quiero hacer algo que se parezca a esta imagen que me he encontrado por internet. Para cambiar el estado de las salidas, me gustaria que variase su estado al pulsar sobre los circulos que representan las salidas que me encienden o me apagan las bonbillas, sin tener que utilizar un checkbox.

Un saludo y muchas gracias por anticipado.