switch (on/off)

[madriles]

en algunas ocasiones que he necesitado algo parecido, lo que hago es lo siguiente. pongo un TPanel (sin bordes) y dentro un TImage que contenga un bmp con los dos graficos a mostrar, uno al lado del otro ( por supuesto de igual tamaño ).el TImage lo ajusto left y top a cero y el tpanel de modo que solo se vea un bmp, luego el siguiente codigo

procedure TForm1.Image1Click(Sender: TObject);
begin
if Image1.Left < 0 then
begin
Image1.Left := 0;
//resto de acciones
end
else
begin
Image1.Left := Image1.Left - Round(Image1.Width /2);
//resto de acciones
end;
end;

es muy sencillo, rapido y.. ademas funciona