[Adrenalin666]

Код:

procedure TAboutBox6.OKButtonClick(Sender: TObject);
begin
  inherited;
       ???что добавить???
end;

мне закрыть AboutBox6 надо при клике на кнопку в этом окне

[eXplorer]

непонял) что закрыть нужно?

(поправка)
понял...

так а вот так если..

Код:

AboutBox6.Close;

[lmikle]

Убрать обработчик и поставить свойство ModalResult в какое-нить значение (обычно mrOK).

[Adrenalin666]

procedure TAboutBox6.OKButtonClick(Sender: TObject);
begin
inherited;
ModalResult := mrOk;
end;

это не работает, щас попробую совет eXplorer'a

[Adrenalin666]

работает Close