AboutBox

[kop]

Почему при нажатии на кнопку не вызываеться AboutBox, а просто выбивает ошибку:
122112.rar

[Человек_Борща]

потому что AboutBox из Unit2 вообщене привязан к проекту, и сам не создаётся.

так что, либо так:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {AboutBox};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.Run;
end.

Либо так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 AboytBox:TAboutBox;
begin
  AboutBox:=TAboutBox.Create(Application);
  AboutBox.ShowMedal;
  {
  Будет утечка памяти если не вызвать AboutBox.Free
  Но еслиэтого вызвать в этом обработчике, то окно покажетя на доли секунды.
  Как вариант, уничтожать форму после её закрытия(OnDestroy). 
}
end;

[kop]

17:18
большое спасибо
17:22
а как сразу привязать AboutBox к проекту? без редактирования

Пора бы уже и прочесть правила раздела...
А пока - штраф за флуд, за нежелание эти правила соблюдать.

[Человек_Борща]

я написал как нужно изменить DPR. Просто у вас 2 проекта Ptroject1 и project2 и aboutbox привязана ко второму.

А если проще, то в активном проекте File > New > Form и рисуй свою aboutbox

[kop]

ясно спасибо