Search options (Page 59 of 59)

Проблема.

После ручного восстановления форм в следствии фатального сбоя http://myvisualdatabase.com/forum/viewtopic.php?id=3835 немного увлёкся и случайно удалил обработчик события MenuClickAbout, ссылка на которое используется в скрипте:

   frmMain.mniAbout.OnClick := @MenuClickAbout;   

Программа запускается, но при этом выдаёт ошибку:

а затем исчезает из таскбара, но продолжает интенсивно кушать ресурсы. Если запустить её ещё раз, то комп практически виснет

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

P.S. Очень жду встроенный механизм настройки меню. Планирую делать приложения с десятками, а то и сотнями форм и отчётов, с настройкой видимости пунктов меню по ролям 
Возможно, что я очень консервативен, и текстовое главное меню уже не популярно. Тогда что сейчас в тренде? Гламурный тулбар с огромными кнопками?

Обратил внимание, что формат отображения данных в таблице зависит от того, какую информацию содержит 1-я строка выборки. Пример с отображением количества

Тип данных - вещественное число
Вычисляемое поле Приход:

(ifnull((            
select amount from docDetail as dd
left join doc on doc.id = docDetail.id_doc
left join docType on docType.id = doc.id_docType
where docType.isIncrement and (dd.id = docDetail.id)
),0 ))  

Вычисляемое поле Расход:

(ifnull((      
select amount from docDetail as dd
left join doc on doc.id = docDetail.id_doc
left join docType on docType.id = doc.id_docType
where not docType.isIncrement and (dd.id = docDetail.id)
),0))     

Если первое число ноль, то вся колонка отображается, как целые числа

Добрый день. Нигде не нашел описания, что именно находится в этом параметре. В обычном Delphi там передаётся объект, у которого возникло это событие; в скриптах MyVisualDatabase, видимо, тоже, но в виде строки, содержащей число.

Можно ли использовать это значение, например, для создания одного обработчика для нескольких элементов интерфейса?

Первоначальная задумка была такая: для отображения в меню форм справочников у меня используется куча однотипных процедур, которые я хотел заменить одной. По задумке я хотел сохранить в Tag ссылку на форму, что обычно легко удаётся в Delphi.

procedure MenuItemClick (Sender: string);
var
  form:TForm;
begin
  form := TForm( TMenuItem(sender).tag );
  form.ShowModal;
end;

Но ничего не вышло, так как компилятор не захотел выполнять приведение типов:

var
   miItems: TMenuItem;

begin
  miItems := TMenuItem.Create (frmMain.MainMenu);
  miItems.Tag := Integer(frmItem);

Остались вопросы:

1. Как правильно использовать параметр sender для получения доступа к элементам интерфейса?

2. Как запихать в Tag ссылку на объект? 
(Пока вижу только одно решение: создаётся глобальный ObjectList:TList, в него добавляются объекты, а доступ к ним - по индексу, который хранится в Tag)