Как узнать что щелкнули по browse
Добавлено: 27 ноя 2008, 21:28
Всем привет. Есть некий browse, нужно по щелчку по одному из его полей показать popup меню. Сейчас чтобы узнать, что щелкнули по browse проверяю так:
Есть ли более элегантный способ?
Код: Выделить всё
private function IsBrowseField : boolean;
{
result := false;
if (IsValid(#tblUsers))
{
case CurField() of
#tblUsers.FullName, #tblUsers.LoginName,
#tblUsers.Descr, #tblUsers.DescrGr,
#tblUsers.SessionsCount:
result := true;
end;
}
}
cmHotKeys:
{
if (IsBrowseField())
{
var menuCommand : word;
menuCommand := RunMenu('mnuOperations');
if (menuCommand <> cmCancel)
PutCommand(menuCommand)
}
}