X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
marser, спасибо 
ещё вопрос
Цитата: procedure TForm1.CalculatePosition;
begin
// Используйте FPopupWindow.ClientWidth, FPopupWindow.ClientHeight,
// FPopupWindow.ViewInfo.SysPanelHeight, FPopupWindow.ViewInfo.CloseButtonRect
case FPopupWindow.ViewInfo.SizeGripCorner of
ecoTopLeft: .....;
ecoTopRight: .....;
ecoBottomLeft: .....;
ecoBottomRight: .....;
end;
end; |
А можно об этом подробнее? Что здесь сочинить, я не могу понять 
Добавлено:
другой вопрос
cxLookupCombobox.ImmediateDropDown := true
когда фокус попадает на cxLookupCombobox, то список не выпадает, это нормально?
Цитата: procedure TfmApartAdd.FormKeyPress(Sender: TObject; var Key: Char);
begin
//Enter as Tab
if (Key = #13) and (bEnterAsTab) then
begin
if GetKeyState(VK_Shift) and $8000 <> 0 then
PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
else
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;//if
end; |
Приходится дописывать в OnEnter код
(sender as TcxLookupComboBox).DroppedDown := true;
----------
/не мы такие, жизнь такая/ |
|
Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 11:27 30-08-2010 | Исправлено: X11, 11:48 30-08-2010 |
|
