Buscar

Criando um array de editboxes

Código

Procedure DoSomethingWithEditControls;
Var
K: Integer;
EditArray: Array[0..99] of Tedit;
begin
Try
For K:= 0 to 99 do
begin
EditArray[K]:= TEdit.Create(Self);
EditArray[K].Parent:= Self;
SetSomeOtherPropertiesOfTEdit;
Left:= 100; Top:= K*10;
OnMouseMove:= WhatToDoWhenMouseIsMoved;
end;
DoWhateverYouWantToDoWithTheseEdits;
Finally
For K:= 0 to 99 do EditArray[K].Free;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 29/05/03
Por: Felipe Monteiro
Visualizada: 3537 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009