Procedure para preencher ComboBox
18/07/2008
0
Boa Tarde.
Estou querendo criar um procedimento para completar uma ComboBox com determinados valores. Porém, gostaria de ´centralizar´ esse procedimento em algum local e apenas chamar ele nos forms.
Ou seja: eu chamo local.procedimento(nomeComboBox) e ele preenche com os valores pré-configurados nele.
Alguém poderia me dizer em que local eu deveria colocar esse procedimento?
e no caso a variavel nomeComboBox teria que ser de que tipo (já que seria o nome do componente ComboBox)? TComboBox?
Obrigado
Mateus Jr.
Estou querendo criar um procedimento para completar uma ComboBox com determinados valores. Porém, gostaria de ´centralizar´ esse procedimento em algum local e apenas chamar ele nos forms.
Ou seja: eu chamo local.procedimento(nomeComboBox) e ele preenche com os valores pré-configurados nele.
Alguém poderia me dizer em que local eu deveria colocar esse procedimento?
e no caso a variavel nomeComboBox teria que ser de que tipo (já que seria o nome do componente ComboBox)? TComboBox?
Obrigado
Mateus Jr.
Mateusjr
Curtir tópico
+ 0
Responder
Posts
18/07/2008
Catunda
Vc pode colocar o procedimento em uma unit qualquer que seja referenciada nos forms onde se utilizará o procedimento, ou coloque-o no formulario principal e ao criar cada form execute o procedimento apontado para o form recem criado. Esse direcionamento para o form recem criado pode ser passado diretamente no parametro do procedimento, algo como: carregacombo(nomedoform.nomedocombo);.
procedure LoadCombo(xcombo:tcombobox; xvalores:tstrings);
var
i: Integer;
begin
xcombo.Items.Clear;
for i:=0 to xvalores.Count-1 do
xcombo.Items.Add(xvalores.Strings[i]);
end;
procedure LoadCombo(xcombo:tcombobox; xvalores:tstrings);
var
i: Integer;
begin
xcombo.Items.Clear;
for i:=0 to xvalores.Count-1 do
xcombo.Items.Add(xvalores.Strings[i]);
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
