• Registered: 2016-04-11
  • Posts: 34

Topic: Пункт "О программе"

Добрый день! Создал свой пункт меню "О программе". Куда вставить этот скрипт?

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 UK_v_2.1 — копия.rar 623.37 kb, 229 downloads since 2020-11-03 

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Пункт "О программе"

эти части кода вообще ни к чему не относятся  (болтаются просто так)  -  это и вызывает глюк

begin
  // Initial check whether there is a database administrator user
  // if not, create an administrator with username admin and password admin
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
     begin
         SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
         frmLogin.edUser.Text := 'admin';
         frmLogin.edPassword.Text := 'admin';
     end;
  end.


begin
  // Initial check whether there is a database administrator user
  // if not, create an administrator with username admin and password admin
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
     begin
         SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
         frmLogin.edUser.Text := 'admin';
         frmLogin.edPassword.Text := 'admin';
     end;
  end.

еще я нашел у Вас две процедуры
       procedure Form1_OnShow (Sender: TObject; Action: string);
так нельзя!

Post's attachments

Attachment icon UK_v_2.1.rar 306.4 kb, 224 downloads since 2020-11-03 

  • Registered: 2016-04-11
  • Posts: 34

Re: Пункт "О программе"

Спасибо за ответ! Ваш прикрепленный файл не мог открыть, у меня версия 1,45. Не могли бы этой версией, пожалуйста...

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Пункт "О программе"

danisl wrote:

Спасибо за ответ! Ваш прикрепленный файл не мог открыть, у меня версия 1,45. Не могли бы этой версией, пожалуйста...

просто уберите тот код что я писал выше и

замените указанные две процедуры на одну

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
   Form1.mniAbout.OnClick := @MenuClickAbout;
   frmLogin.ShowModal
end;