Форум: "Начинающим";
Текущий архив: 2009.12.06;
Скачать: [xml.tar.bz2];
Вниз
игнорировать biMinimaze, biMaximize.. Найти похожие ветки
← →
AlexDan © (2009-10-16 23:50) [0]можно ли сделать чтобы клавиши оставались, но игнорировались?
← →
AlexDan © (2009-10-16 23:51) [1]отключение не предлагать, ест-но..
← →
Юрий Зотов © (2009-10-17 00:00) [2]Обработать WM_SYSCOMMAND
← →
SELECT © (2009-10-17 00:00) [3]только клавиши?
← →
AlexDan © (2009-10-17 00:17) [4]> Юрий Зотов © (17.10.09 00:00) [2]
> Обработать WM_SYSCOMMAND
да, спасибо, вот видимо то, что мне было нужно, http://www.delphikingdom.com/asp/viewitem.asp?catalogid=21
← →
AlexDan © (2009-10-17 00:32) [5]как бы ещё перехватить двойной щелчек по borders..?
← →
Юрий Зотов © (2009-10-17 00:41) [6]> AlexDan © (17.10.09 00:17) [4]
В статье по ссылке есть ошибка. Прочтите комментарии к статье.
← →
Юрий Зотов © (2009-10-17 00:46) [7]> AlexDan © (17.10.09 00:32) [5]
См. WM_NCLBUTTONDBLCLK
← →
AlexDan © (2009-10-17 00:58) [8]> Юрий Зотов © (17.10.09 00:46) [7]
спасибо преогромное..).
← →
AlexDan © (2009-10-17 10:22) [9]да, но с WM_NCLBUTTONDBLCLK что то у меня не очень вяжется..
procedure TForm1.WMGetSysCommand(var Message: TMessage);
var Msg: PMsg;
begin
if Msg^.message = WM_NCLBUTTONDBLCLK then
begin
if Msg^.wParam = HTCAPTION then
begin
MessageDlg("дв клик ",mtInformation,[mbOk],0);
end;
end
else Inherited;
end;
← →
AlexDan © (2009-10-17 18:52) [10]и вот тоже интересно
Case Message.Msg Of
WM_SYSCOMMAND : IF Message.wParam = SC_MAXIMIZE
Then Begin
// делаем то, что нужно
End
Else Inherited;
WM_NCLBUTTONDBLCLK : IF Message.wParam = HTCAPTION
Then
//делаем то, что нужно
Else Inherited;
end;
клавиша MAXIMIZE игнорируется, а WM_NCLBUTTONDBLCLK как распахивал форму, так и дальше распахивает..?(
← →
faiwer © (2009-10-17 22:21) [11]AlexDan поставь ограничение на Constraints, минимальные и максимальные той величине чему равна форма =)
← →
AlexDan © (2009-10-17 22:35) [12]потом по ней два раза кликаешь и она улетает в верхний левый угол..?)
← →
Игорь Шевченко © (2009-10-17 23:01) [13]
procedure TForm1.WmNclButtonDblClk(var Message: TWMNCLButtonDblClk);
begin
if Message.HitTest = HTCAPTION then
Message.Result := 0
else
inherited;
end;
procedure TForm1.WmSysCommand(var Message: TWMSysCommand);
begin
if (Message.CmdType = SC_MINIMIZE) or (Message.CmdType = SC_MAXIMIZE) then
Message.Result := 0
else
inherited;
end;
← →
AlexDan © (2009-10-17 23:08) [14]> Игорь Шевченко © (17.10.09 23:01) [13]
похоже, спасибо, сейчас проверю.:).
← →
Игорь Шевченко © (2009-10-17 23:16) [15]AlexDan © (17.10.09 23:08) [14]
Из панели задач все равно сворачивается
← →
AlexDan © (2009-10-17 23:25) [16]> Игорь Шевченко © (17.10.09 23:16) [15]
только нужно было вот так
procedure WmSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;
а с WmNclButtonDblClk(var Message: TWMNCLButtonDblClk); я ещё не разобрался, но тоже вроде нужно дописать немного..
← →
AlexDan © (2009-10-17 23:32) [17]да, всё, порядок procedure WmNclButtonDblClk(var Message: TWMNCLButtonDblClk);message WM_NCLButtonDblClk;
тогда всё работает..).
← →
Юрий Зотов © (2009-10-17 23:35) [18]
> AlexDan © (17.10.09 23:25) [16]
Естественно. Это же два РАЗНЫХ сообщения.
← →
Юрий Зотов © (2009-10-17 23:36) [19]> AlexDan © (17.10.09 23:32) [17]
О чем, собственно, и говорил Игорь.
:o)
← →
AlexDan © (2009-10-17 23:46) [20]а я ничего против и не имею.:)..
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.12.06;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.005 c
