problema con checked

[Cosgaya]

hola a todos
tengo problemas con mainmenu
quiero que al pinchar en un un item, se active la opcion checked para que asi a la izquierda del item aparezca "V" (:D la v esa con el palo estirado:D ) y no se que codigo tengo que poner
yo pensaba que era este
procedure........ on click....
checked := true;
end;

pero no memlo admite
si me pueden ayudar.. gracias

[marcoszorrilla]

Pues he hecho una prueba y me va perfectamente:

procedure TForm1.tes1Click(Sender: TObject);
begin
tes1.Checked:=Not(tes1.checked);
end;


Con este ejemplo al pulsar sobre el item en cuestión se marca sino lo está y desmarca si lo estuviera.

UN Saludo.

[Lepe]

Al menos en Delphi 6 tambien tienes la propiedad Autocheck, que automáticamente hará lo mismo que el código propuesto por Marcos.

Si tienes Autocheck en true, y por código accedes a la propiedad Checked, entonces, cuando das 1 click, delphi pone la marca automaticamente y tú, por código, la estas quitando.

Un saludo