Вопрос DirEdit через label

[Silentman]

Вопрос решён, спасибо sergey3695

 

[sergey3695]

Silentman,

Спойлер

var
  Label1: TLabel;
  s: string;

procedure bla(sender: tobject);
begin
  S:= WizardForm.DirEdit.Text;
  SetLength(s, 60);
  Label1.Caption:= s;
end;

procedure RedesignWizardForm;
begin
  S:= WizardForm.DirEdit.Text;
  SetLength(s, 60);
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm.SelectDirPage;
    Caption := 'Label1';
    Left := WizardForm.DirEdit.Left;
    Top := WizardForm.DirEdit.Top;
    Height := ScaleY(16);
    Caption:= S;
  end;
  WizardForm.DirEdit.OnChange:= @bla;
  WizardForm.DirEdit.Hide;
end;