Kan man (som i VB med control arrays) skapa tex en textruta under programkörning? Och i så fall hur gör man? varskapa kontroller dynamisk
Sv: skapa kontroller dynamisk
EditArray: array[0..9] of TEdit;
//Skapar 10 Editboxar
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := Low(EditArray) to high(EditArray) do
EditArray[i] := TEdit.Create(Nil);
end;
//Ser till så att Editboxarna visas på formuläret
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i := Low(EditArray) to high(EditArray) do
begin
EditArray[i].Parent := self;//Self = Form1
EditArray[i].Top := i * 30;
EditArray[i].Left := i * 30;
end;
end;
//Frigör editboxarna
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
for i := Low(EditArray) to high(EditArray) do
EditArray[i].Free;
end;