Скачать: CL | DM;

Окно без бордюра, но ресайзится.   Найти похожие ветки 

← →
BorisMor ©   (2004-09-17 06:47) [0]

Подскажите как реализовать сабж.
Как известно если устанеовить BorderStyle = bsNone то бордюр конечно исчезает, но и окно не ресайзится.
Может есть какое либо заветное сочетание Style/StyleEx ?

---

← →
Polevi ©   (2004-09-17 08:28) [1]

WM_NCHITTEST

---

← →
Sergius   (2004-09-17 10:00) [2]

Попробуй поиграть со свойством AutoSize.

---

← →
BorisMor ©   (2004-09-17 10:31) [3]

> Polevi ©   (17.09.04 08:28) [1]
> WM_NCHITTEST

Не посылается когда BorderStyle = bsNone
Может можно бордюр как нибуть нулевым cделать ?


> Sergius   (17.09.04 10:00) [2]
> Попробуй поиграть со свойством AutoSize.


?????

---

← →
Игорь Шевченко ©   (2004-09-17 10:44) [4]

BorisMor ©   (17.09.04 10:31) [3]


> Не посылается когда BorderStyle = bsNone
> Может можно бордюр как нибуть нулевым cделать ?


Посылается.

unit Unit1;

interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
 private
   procedure WmNcHitTest (var Message: TWMNcHitTest); message WM_NCHITTEST;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WmNcHitTest(var Message: TWMNcHitTest);
begin
 ListBox1.Items.Add ("Got WM_NCHITTEST");
end;

end.


object Form1: TForm1
 Left = 190
 Top = 107
 BorderStyle = bsNone
 Caption = "Form1"
 ClientHeight = 221
 ClientWidth = 294
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = "MS Sans Serif"
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object ListBox1: TListBox
   Left = 80
   Top = 64
   Width = 121
   Height = 97
   ItemHeight = 13
   TabOrder = 0
 end
end

---

← →
BorisMor ©   (2004-09-17 13:37) [5]

хех... У меня контрол (TNotebook) клиентом окно закрывает и собщение не идет. Как убрал стало обрабатыватся ;(
Странно все это.

---

← →
Игорь Шевченко ©   (2004-09-17 13:45) [6]

> У меня контрол (TNotebook) клиентом окно закрывает


Тогда сообщения о перещении мыши передаются этому контролу - ничего удивительного.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c