Search options (Page 60 of 60)

Обратил внимание, что формат отображения данных в таблице зависит от того, какую информацию содержит 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)