Descrição do arquivo Natal/rn, 15/09/2006 autor: carlos humberto sachs, pós-graduado em engenharia de sistemas na universidade federal do rn concluído em novembro de 1993; e especialização em engenharia de sistemas na universidade federal do rn concluído em dezembro de 2002. dica: como alterar qualquer um dos itens de um combobox salve a família delphiana ... apresento esta dica por acreditar, que vai ser bastante útil. procedure tform1.button1click(sender: tobject); begin try strtoint(labelededititem_do_combo.text); except showmessage('número do ítem não é inteiro'); labelededititem_do_combo.setfocus; exit; end; if (strtoint(labelededititem_do_combo.text)>combobox1.items.count) or (strtoint(labelededititem_do_combo.text)<1) then begin showmessage('número do ítem inválido'); labelededititem_do_combo.setfocus; exit; end; // alteração do ítem no combobox combobox1.items.strings[strtoint(labelededititem_do_combo.text)-1]:=labelededitnovovaloritem_do_combo.text; combobox1.itemindex:=strtoint(labelededititem_do_combo.text)-1; labelededititem_do_combo.setfocus; end;
Download do arquivo
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009