игнорировать 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]
похоже, спасибо, сейчас проверю.:).

> Игорь Шевченко © (17.10.09 23:16) [15]
только нужно было вот так
procedure WmSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;
а с WmNclButtonDblClk(var Message: TWMNCLButtonDblClk); я ещё не разобрался, но тоже вроде нужно дописать немного..

да, всё, порядок procedure WmNclButtonDblClk(var Message: TWMNCLButtonDblClk);message WM_NCLButtonDblClk;
тогда всё работает..).

а я ничего против и не имею.:)..

игнорировать biMinimaze, biMaximize.. Найти похожие ветки