Консультация № 66911
14.12.2006, 08:23
0.00 руб.
0 1 1
Здравствуйте, Уважаемые Эксперты.
Меня интересует вопрос динамического добавления контролов на форму. Хотелось бы знать как это реализовать на Delphi. Так же интересует как сделать массив контролов. Нужно реализовать решение задач с матрицами т.е. нужно вводить эти самые матрицы.
Заранее спасибо за ответы.

Обсуждение

Неизвестный
14.12.2006, 11:34
общий
это ответ
Здравствуйте, Чурсанов Евгений Ильич!
В приложении вы найдете код, который создает 6 контролов TEdit. используется массив и показанно как извлекать введеные в Едиты значения. Удачи!

Приложение:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; Ed:array [0..5] of TEdit;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var I : byte;begin for I:=0 to 5 do begin Ed[I]:=TEdit.Create(Form1); Ed[I].Left:=60; Ed[I].Top:=50+30*I; Ed[I].Width:=30; Ed[I].Parent:=Form1; Ed[I].Name:=‘Ed‘+IntToStr(I); Application.ProcessMessages; end;end;procedure TForm1.Button2Click(Sender: TObject);begin ShowMessage(Ed[0].Text);end;end.
Форма ответа