Qual o componente selecionado pelo popupmenu

aamagesHoje vou deixar uma dica Delphi sobre o popupmenu. No exemplo vamos utilizar dois label e uma popupmenu, adicione os dois label no formulario do delphi e um popupmenu, agora na propriedade dos dois label adicione o popupmenu, no popupmenu adicione um item, no caption dele coloque [Alterar descrição] ainda no popupmenu, no item selecione vá em eventos e no evento OnClick você irá inserir o seguinte código:

Var

Indice:integer;

Descricao:string;

Begin

indice := pm1.popupComponent.ComponentIndex;

if components[indice] is TLabel then

Begin

TLabel(Components[indice]).caption := inputbox(‘Alterar caption’,’Coloque o caption desejado:’,Descricao);

End;

End;

 

No código acima ele irá inserir o caption desejado no label que voce selecionou com o popupmenu, agora é só utilizar sua criatividade.

 

 

 

 

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s