Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.037 c
3-1095851327
Карелин Артем
2004-09-22 15:08
2004.10.17
Использование Midas.dll в Win 2000.


4-1095261523
AZiN
2004-09-15 19:18
2004.10.17
Серийный номер


4-1095353519
RaPToR_1
2004-09-16 20:51
2004.10.17
блокировка


1-1096369568
Yura
2004-09-28 15:06
2004.10.17
Несколько экземпляров одной и той же формы???


1-1096917443
lipskiy
2004-10-04 23:17
2004.10.17
Как предотвратить "замерзание" проигрывания авишки в TAnimate





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский