1 Topic by frost666 (edited by frost666 2014-06-22 13:59:07)

  • Registered: 2014-06-22
  • Posts: 29

Topic: Как реализовать ?

Не могу понять , как закрыть форму с кнопкой и при этом открыть  другую форму ?
Я не силен в скриптах а , похоже по другому нельзя. Если можно простенький примерчик. Заранее спасибо. (второй день мучаюсь)

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

Re: Как реализовать ?

Без использование скрипта закрыть одну форму и тут же открыть другую, не получится.

пример, кнопку располагаем на Form2

procedure Form2_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     Form2.Close; // закрывает текущую форму
     Form3.Show; // открывает форму Form3
end;
Dmitry.
  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

Понятно. Только где и что прописать ?
Скрипт, что прописать в кнопке ?
Был бы благодарен за мини проект. Мне проще видеть и щупать все....
Спасибо еще раз !!

4 Reply by Владислав Косяков (edited by Владислав Косяков 2014-06-22 19:11:18)

  • Registered: 2014-04-24
  • Posts: 124

Re: Как реализовать ?

У кнопки есть "Свойства" и "События". На вкладке "События" есть поле OnClick. Справа от него пишешь имя скрипта, который должен запускаться по нажатию кнопки. Например Form2_Button1_OnClick. Далее на вкладке редактора "Scripts" пишешь сам скрипт, который должен называться так же, как в поле OnClick вкладки "События".

Владислав Косяков's Website

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

Re: Как реализовать ?

frost666
Пожалуйста.

Post's attachments

Attachment icon Test.zip 2.09 kb, 580 downloads since 2014-06-22 

Dmitry.
  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

да да да !!!
Спасибо огромное. Понял где ошибся.

  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

Все заработало. Только появилась другая проблема. На появляющейся форме есть TadleGrid с автозаполнением. Так вот c  OnShow заполнение таблицы не работает. Что посоветуете ?

  • Registered: 2014-04-24
  • Posts: 124

Re: Как реализовать ?

Таблица заполняется результатом SQL?

Владислав Косяков's Website

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

Re: Как реализовать ?

frost666
действительно, выполните метод dbUpdate, который принудительно выполняет авто запрос

код будет примерно таким

     Form2.Close; // закрывает текущую форму
     Form3.Show; // открывает форму Form3
     Form3.TableGrid1.dbUpdate; // выполняем автозапрос для грида
Dmitry.
  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

Спасибо !
Сработало.

  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

Хочу прикрутить к проекту кнопу с паролем ( Есть на форуме тема с паролями. вот только не срабатыает)

Есть
Form1 - рабочая среда,
Form2 - форма с кнопками Button1, Button2 и Button3
.. если нажатие Button3 то закрывается Form2 и открывается Form3
Form3 - ввод логина и пароля
.. если закрыть без логина и пароля то закрывается Form3
.. если неверные лог/пар - Сообщение ....
... если правильно то открывается Form4 и закрывается Form3
В проекте уже есть скрипты на кнопки 1 и 2
Пробовал сделать на основе TestPassword взятого с форума - так ничего не получается ((( Пишет неверный пароль. Видимо var sUserName так и остается NULL
Помогите пожалуйста примерчиком на основе этих данных
Заранее спасибо !

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

Re: Как реализовать ?

отправьте проект на support@drive-software.com
с описанием, где нужен ввод пароля, постараюсь помочь.

Dmitry.
  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

отправил

  • Registered: 2014-06-22
  • Posts: 29

Re: Как реализовать ?

Спасибо большое за помощь !
Все заработало.