função F9

[Sigmar Lessa 0]

criei um procedimento que ao pressionar F9 os itens aparecem if Key = VK_F9 then begin shape1.Visible:=true; shape2.Visible:=true; label4.Visible:=true; label5.Visible:=true; label6.visible:=true; end;alguem sabe como faço para ao pressionar ela novamente desaparecer.. e assim sucessivamente

[wvitorhugo 0]

é mais ou menos isso... fiz rapidim... c não der certo é coisa poca erradaif Key = VK_F9 thenif shape1.visible=false thenbegin shape1.Visible:=true; shape2.Visible:=true; label4.Visible:=true; label5.Visible:=true; label6.visible:=true;endelsebegin shape1.Visible:=false; shape2.Visible:=false; label4.Visible:=false; label5.Visible:=false; label6.visible:=false;end;

[lenn0n 0]

criei um procedimento que ao pressionar F9 os itens aparecem if Key = VK_F9 then begin shape1.Visible:=true; shape2.Visible:=true; label4.Visible:=true; label5.Visible:=true; label6.visible:=true; end;alguem sabe como faço para ao pressionar ela novamente desaparecer.. e assim sucessivamente

assim ó, mais simples

if Key = VK_F9 thenbegin shape1.Visible:=(not shape1.Visible); shape2.Visible:=(not shape2.Visible); label4.Visible:=(not label4.Visible); label5.Visible:=(not label5.Visible); label6.visible:=(not label6.visible);end;

[]'s

[Sigmar Lessa 0]

valeu.. já consegui ..