Почему когда я обновил версию с 5.2 до 5.4
У меня эта строчка стала выдавать ошибку
Код:
Код: Выделить всё
bidNext: Button:=WizardForm.NextButtonКод: Выделить всё
bidNext: Button:=WizardForm.NextButton
Код: Выделить всё
procedure GroupEditCaption(Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;
procedure InitializeWizard();
begin
wizardform.GroupEdit.OnChange:=@GroupEditCaption;
end;