Текущий архив: 2004.05.16;
Скачать: CL | DM;
Вниз
HTCAPTION Найти похожие ветки
← →
Alpupil (2004-04-30 21:02) [0]Здрасте, у меня такая проблема я использую форму без заголовка (BorderSlyle=bsNone) и для того чтобы форму можно было перемещать перекрываю обработчик события tform1.WMNCHittest(var Messag:TWMNCHittest) в котором ставлю возвращаемое значение messag.result:= HTCAPTION. Проблема в том что контекстное меню (Popup) для формы и Hintы не работают. Подскажите пожалуйста как это можно исправить.
← →
SammIk © (2004-04-30 21:04) [1]В факе есть пример, поищи
← →
Юрий Зотов © (2004-04-30 21:09) [2]Прежде, чем вернуть HTCAPTION проверяйте, нажата ли левая кнопка мыши. Если нет - ничего сами не возвращайте, а вызывайте inherited.
← →
Dimaxx © (2004-04-30 22:12) [3]procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
ReleaseCapture;
Perform(WM_SysCommand,$F012,0);
end;
Страницы: 1 вся ветка
Текущий архив: 2004.05.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
