Criar Edit´s em runtime, como fazer?
Tenho uma aplicação que necessito criar edit´s em runtime, nas seguintes situações:
Se o funcionário tiver dois filhos, são criados dois edit´s, se tres, criam-se tres, agora vem outra pergunta: Se for possível, ele vem de forma ordenada? Exemplo: Se tenho no form Edit1 e Edit2, o próximo a ser criado em runtime será Edit3? e assim sucessivamente? Desde já agradeço.
Se o funcionário tiver dois filhos, são criados dois edit´s, se tres, criam-se tres, agora vem outra pergunta: Se for possível, ele vem de forma ordenada? Exemplo: Se tenho no form Edit1 e Edit2, o próximo a ser criado em runtime será Edit3? e assim sucessivamente? Desde já agradeço.
Paulo
Curtidas 0
Respostas
Marcelo.l
05/01/2004
Olá, Paulo.
Vai um pequeno exemplo para criar 5 edits ´on the fly´.
procedure TForm1.Button1Click(Sender: TObject);
var
MyEdit : TEdit;
i : Integer;
begin
for i := 1 to 5 do
begin
MyEdit := TEdit.Create(Application);
MyEdit.Parent := Self; // ou o form onde aparecerão os edits
MyEdit.Name := ´MyEdit´ + IntToStr(i);
MyEdit.Clear; // Limpa o texto do edit
MyEdit.Left := 15; // ou onde vc quiser posicionar
MyEdit.Top := 25 * i; // ou onde vc quiser posicionar
MyEdit.TabOrder := i; // A tabulação. Leve em consideração a tabulação de componentes já existentes!!!
end;
end;
Espero que de para entender.
T+
Vai um pequeno exemplo para criar 5 edits ´on the fly´.
procedure TForm1.Button1Click(Sender: TObject);
var
MyEdit : TEdit;
i : Integer;
begin
for i := 1 to 5 do
begin
MyEdit := TEdit.Create(Application);
MyEdit.Parent := Self; // ou o form onde aparecerão os edits
MyEdit.Name := ´MyEdit´ + IntToStr(i);
MyEdit.Clear; // Limpa o texto do edit
MyEdit.Left := 15; // ou onde vc quiser posicionar
MyEdit.Top := 25 * i; // ou onde vc quiser posicionar
MyEdit.TabOrder := i; // A tabulação. Leve em consideração a tabulação de componentes já existentes!!!
end;
end;
Espero que de para entender.
T+
GOSTEI 0