Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
1-1096876615
cad2206
2004-10-04 11:56
2004.10.17
Сложение времени


3-1095422021
Bless
2004-09-17 15:53
2004.10.17
Как лучше всего выйти из следующей ситуации:


1-1096619466
Sash
2004-10-01 12:31
2004.10.17
главная форма ровно по центру монитора


3-1095675680
serg_newone
2004-09-20 14:21
2004.10.17
Блокирование логина после троекратного неправильного ввода парол


1-1096825695
RedDragon
2004-10-03 21:48
2004.10.17
Как мне присвоить текст сделанной строки...