• Registered: 2014-02-14
  • Posts: 10,294

Topic: [Скрипт] Собственное окно "О программе" (About)

Создание своего пункта меню "О Программе" и окна с информацией.


Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1



procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
begin
   Form1.mniAbout.OnClick := @MenuClickAbout;
end;


procedure MenuClickAbout (Sender: string); // click in About menu item
begin
     frmAbout.ShowModal;
end;


begin

end.
Post's attachments

Attachment icon About form.zip 2.58 kb, 1926 downloads since 2015-10-28 

Dmitry.
  • Registered: 2016-02-05
  • Posts: 2

Re: [Скрипт] Собственное окно "О программе" (About)

Отлично, а как вставить ссылку на сайт в этом окне?

Aleksandr.Bodrov's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Скрипт] Собственное окно "О программе" (About)

Aleksandr.Bodrov wrote:

Отлично, а как вставить ссылку на сайт в этом окне?

Ссылку можно иммитировать компонентом Label.


Поместите компонент Label в желаемое место на форме, затем измените его следующие свойства
Caption = http://google.com
Font.Color = clHotLight
Font.Style = U
Cursor = crHandPoint


затем создайте событие OnClick для данного компонента

procedure Form1_Label4_OnClick (Sender: string);
begin
    OpenUrl('http://google.com');
end;
Dmitry.
  • Registered: 2016-04-11
  • Posts: 34

Re: [Скрипт] Собственное окно "О программе" (About)

Добрый день! Создал свой пункт меню "О программе". Куда вставить этот скрипт? Если в начало, то пропадает окно авторизации, но окошко "О программе выходит". Если в конец (как в примере) не работает.

Post's attachments

Attachment icon UK_v_2.1 — копия.rar 623.37 kb, 601 downloads since 2020-11-03 

  • Registered: 2021-03-04
  • Posts: 140

Re: [Скрипт] Собственное окно "О программе" (About)

danisl wrote:

Добрый день! Создал свой пункт меню "О программе". Куда вставить этот скрипт? Если в начало, то пропадает окно авторизации, но окошко "О программе выходит". Если в конец (как в примере) не работает.

Да кстати отличный вопрос кто знает ?