Платные хостинги     Раскрутка сайта     Книги по программированию

Фиксированные размеры окна

- Сабж. Как можно средствами WinAPI сделать так, чтобы окно нельзя было ресайзить?Заранее благодарен!

- WS_OVERLAPPEDWINDOW xor WS_THICKFRAME Добавлено @ 23:43 это немного не то! честно говоря. это окно будет перекрывающим...надо просто в стилях окна добавить xor WS_THICKFRAME

- это изменять размер (от size). Т.е. имеется ввиду запритить изменение размера окна. Если так, то в инспекторе объектов, в параметрах формы выбираем BorderStyle равным bsSingle или вот так:Код beginForm1.BorderStyle:= bsSingleend;highlightSyntax('delphiNhYzNk','delphi');а если я не правильно понял, то уточни вопрос.

- Средствами WinAPI! То-есть, окно<>TForm.

- WinAPI - так WinAPI! Код unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormShow(Sender: TObject);    procedure FormResize(Sender: TObject);  private    { Private declarations }    rect: TRect;  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);begin GetWindowRect(self.Handle, rect); // Узнаем размеры формы при её показе.end;procedure TForm1.FormResize(Sender: TObject);begin MoveWindow(self.Handle, rect.Left, rect.Top, rect.Right-rect.Left,           rect.Bottom-rect.Top, true); // Задаём старые размеры после изменения.end;end.highlightSyntax('delphimMDFmM','delphi'); Добавлено @ 13:53 drinkOutЕщё есть замечательное событие OnCanResize - используй его с умом. Задаёшь в его теле условия, по которым, с помощью параметра Resize: boolean, определяется, меняется ли размер окна, или нет. Это сообщение отредактировал NiJazz - 25.2.2005, 13:50

- NiJazz достаточно у окна сбросить флаг WS_THICKFRAME (WS_SIZEBOX),т.е. так:Код SetWindowLong(Form1.Handle,GWL_STYLE,(GetWindowLong(Form1.Handle,GWL_STYLE))and(not WS_SIZEBOX));highlightSyntax('delphiOTIwND','delphi');так: Код MainWnd:=CreateWindowEx(0,'TMainForm','Caption',ws_overlappedwindow xor WS_SIZEBOX,10,10,100,100,0,0,Hinstance,nil);highlightSyntax('delphixNWQxM','delphi');и т.д. и т.п.

- Я имел ввиду следующее: "Как получить unresizeable окно без заголовка с рамкой".Прошу прощения за неточно заданный вопрос и ваше потраченное время.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD