• Registered: 2014-11-07
  • Posts: 83

Topic: вопрос по скриптам

А не подскажите - у формы в свойствах компонента - события :  как сделать так чтобы при нажатии кнопки Enter выполнялся скрипт?

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

Re: вопрос по скриптам

Необходимо создать событие OnPress у формы, скрипт будет выглядеть так:

procedure Form1_OnKeyPress (Sender: string; var Key: Char);
begin
     if Key = #13 then
     begin
          ShowMessage('Enter button');
     end;
end;


begin
     Form1.KeyPreview := True; // это необходимо, чтобы событие срабатывало, даже если фокус ввода находится на другом компоненте
end.


Можете скачать проект с данным примером

Post's attachments

Attachment icon HotKey on Form.zip 2 kb, 510 downloads since 2014-11-09 

Dmitry.
  • Registered: 2014-11-07
  • Posts: 83

Re: вопрос по скриптам

огромное мерси! Все работает.

  • Registered: 2014-07-02
  • Posts: 97

Re: вопрос по скриптам

код в Делфи

MessageDlg('',mtInformation,[mbYes,mbNo],0);

почему не работает в программе? как правильно написать?

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

Re: вопрос по скриптам

DenNik

if mrYes = MessageDlg('Сообщение', mtInformation, mbYes+mbNo, 0) then ShowMessage('Ответили Да');
Dmitry.
  • Registered: 2014-07-02
  • Posts: 97

Re: вопрос по скриптам

mbYes+mbNo - вот до этого не додумался ) инертность мышления, привыкшего к паскалю )

  • Registered: 2014-07-02
  • Posts: 97

Re: вопрос по скриптам

хотя скрипты-то как раз паскалевские. только почему так? особенность используемого пакета для реализаци скриптов?

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

Re: вопрос по скриптам

Для скриптов используется сторонний движок FastScript, поэтому не могу знать )

Dmitry.
  • Registered: 2014-07-02
  • Posts: 97

Re: вопрос по скриптам

Когда срабатывает событие таблицы OnFooterClick?
Footer - противоположность Header. Где он находится у таблицы?

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

Re: вопрос по скриптам

DenNik wrote:

Когда срабатывает событие таблицы OnFooterClick?
Footer - противоположность Header. Где он находится у таблицы?

Footer появится, если для него задать хотя бы одну формулу, более подробней можно прочитать здесь
http://myvisualdatabase.com/help_ru/com … ooter.html


После чего, станет возможно воспользоваться событием OnFooterClick

Dmitry.
  • Registered: 2014-07-02
  • Posts: 97

Re: вопрос по скриптам

заметил неприятный глюк. когда Footer отображается, если сделать скролл колесом мыши, появляется горизонтальный скролл-бар у таблицы, хотя при этом все столбцы помещаются в таблицу. если затем изменить ширину любого столбца хотя бы на пиксел, скролл-бар пропадает

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

Re: вопрос по скриптам

Спасибо )

Dmitry.