Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Создать n TEdit поочередно при нажатии на кнопку

Автор: Mazikk 29.5.2009, 13:42

Всем здравствуйте.
Возникли небольшие затруднения. Есть на форме компоненты TEdit и Tbutton. Как правильно сделать так, чтобы при нажатии на баттон создавался еще один едит. Т.е. если мне надо 10 едитов, то нужно сделать 9 щелчков по баттону. Спасибо!

Автор: Frees 29.5.2009, 13:52

Код


with TEdit.Create(Self) do
begin
 parent : =self;
 left := 10;
 top := 10;
end;

Автор: Mazikk 29.5.2009, 14:20

По-моему я не правильно объяснил, то что хочу...
Вот есть такая форма:
user posted image

А нужно сделать так:
user posted image

Т..е при клике на "+" появляется поле ввода и кнпока "обзор".

Пытался сделать и через рунтайм и сразу, но что-то не выходит.

Автор: Keeper89 29.5.2009, 15:38

Ну так Frees все правильно указал для Edit'а, теперь речь уже пошла о кнопках.
Приведу свой код (для Edit'ов), для кнопок будет аналогично:

Код


...
var
  Form1: TForm1;

  nextY: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TEdit.Create(Self) do
  begin
    Parent := Self;
    Left := Edit1.Left;
    Top := nextY;
    Visible := True;
    nextY := nextY + Height;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  nextY := Edit1.Top + Edit1.Height;
end;
...

Автор: Mazikk 29.5.2009, 16:13

Спасибо всем огромное! Как обычно я не допер самую малость ))