A ver, he hecho un copy/paste, he cogido las tijeras y le he dado un par de cortes, ris ras ris ras, he pasado algunas variables a cervantes (oseas en hispano), le he quitado unas cuantas mariconadas para que siga pareciendo el mismo pero sólo utilice librerías estándard.
Ahora no me acuseis de plagio ! no es más que una modificación/simplificación del componente
TRXSwitch de las geniales
RX. He tardado una hora, a ver si me lo pagas/is en birras! espero que te sirva, está hecho con
Delphi 5.
Mm... por cierto, que en un descuido me he cargado lo de los textos y el foco jeje así que sólo tiene las imágenes, tu mismo, es un obvio
freeware, las propiedades no son xactamente las mismas (tan en spanish), mírate el código, está bastante simplificado.
Aquí está el archivo, ta luksss, me voy a mimir!
http://www.biterror.bravepages.com/ADSwitch.zip
Nota: Tiene los eventos OnOn y OnOff, ahí podrías programar lo de los textos.