10.09.2008, 18:12
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
uses AboutFrm {TAboutForm};
procedure TForm1.AboutMenuClick(Sender : TObject);
begin
With TAboutForm.Create(Nil) Do
Begin
ShowModal;
Free;
End;
end; |