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, 1765 downloads since 2015-10-28 

Dmitry.

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

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

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.

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

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

Post's attachments

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

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

danisl wrote:

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

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