| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Окно без бордюра, но ресайзится. [D6, Win95/98, WinME, Win2k, WinXP]

BorisMor ©   (2004-09-17 06:47:00) 

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

---

Игорь Шевченко   (2004-09-17 13:45:00) [1]

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


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

---

BorisMor   (2004-09-17 13:37:00) [2]

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

---

Игорь Шевченко   (2004-09-17 10:44:00) [3]

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 10:31:00) [4]

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

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


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


?????

---

Sergius   (2004-09-17 10:00:00) [5]

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

---

Polevi   (2004-09-17 08:28:00) [6]

WM_NCHITTEST

---

Наверх