Динамическое создание объектов на динамически созданной форме)

@sergey4iki · Регистрация: 18.11.2012

Author24 — интернет-сервис помощи студентам

есть код:

Pascal

procedure TForm1.actrprtvrExecute(Sender: TObject);
var
  rfrm1:TForm;
  r1edit1:TEdit;
  r1lbl:TLabel;
begin
  rfrm1:=TForm.Create(nil);
  r1edit1:=TEdit.Create(rfrm1);
  r1lbl:=TLabel.Create(rfrm1);
  try
    with rfrm1 do
    begin
      Parent:=nil;
      Caption:='Îò÷åò ïî âèäó ðàáîòû';
      left:=500;
      top:=500;
      Width:=300;
      Height:=100;
      KeyPreview:=true;
      BorderStyle:=bsdialog;
 
      with r1lbl do
      begin
        Parent:=rfrm1;
        Caption:='Ââåäèòå âèä ðàáîòû';
        Width:=50;
        Height:=20;
        Visible:=true;
      end;
 
      with r1edit1 do
      begin
        Parent:=rfrm1;
        text:='';
        Width:=50;
        Height:=20;
        Visible:=true;
      end;
      ShowModal;
    end;
   finally
     rfrm1.Free();
   end;
end;

компонент едит и лейбл налаживаются друг на друга, а если указать в свойстве лефт расположение то оно берется с начала левой стороны экрана. Что необходимо написать, чтобы свойства топ лефт брались от формы "rfrm1".

Pascal

1	left:=rfrm1.left+80;

не помогает.

@FIL · 13.12.2013, 17:35

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  rfrm1:TForm;
  r1edit1:TEdit;
  r1lbl:TLabel;
begin
  rfrm1:=TForm.Create(nil);
  try
    with rfrm1 do
    begin
//      Parent:=nil;
      Caption:='Îò÷åò ïî âèäó ðàáîòû';
      left:=500;
      top:=500;
      Width:=300;
      Height:=100;
      KeyPreview:=true;
      BorderStyle:=bsdialog;
    end;
      with TLabel.Create(rfrm1) do
      begin
        Caption:='Ââåäèòå âèä ðàáîòû';
        top:=10;
        left:=20;
//        Width:=50;
//        Height:=60;
        Parent:=rfrm1;
      end;
 
      with TEdit.Create(rfrm1) do
      begin
        text:='';
        top:=30;
        left:=20;
        Width:=50;
//        Height:=40;
        Parent:=rfrm1;
      end;
      rfrm1.ShowModal;
  finally
    rfrm1.Free;
  end;
end;

@sergey4iki · 16.12.2013, 11:02 **[ТС]**

о как) благодарю

@sergey4iki 29 / 29 / 19 Регистрация: 18.11.2012 Сообщений: 338 Записей в блоге: 1
	16.12.2013, 11:02 [ТС]	3
	о как) благодарю 0

Опции темы

Динамическое создание объектов на динамически созданной форме)

Решение