VPF::Фиксированные размеры окна - Форум программистов

drinkOut

Дата 24.2.2005, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

Репутация: нет
Всего: нет

Сабж.

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

--------------------

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

Леша

Дата 24.2.2005, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 7.11.2004
Где: Менск, Беларуская НР

Репутация: нет
Всего: 1

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

Poseidon

Дата 25.2.2005, 03:56 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Я что-то может не понял, но по-моему

Цитата

ресайзить

это изменять размер (от size). Т.е. имеется ввиду запритить изменение размера окна. Если так, то в инспекторе объектов, в параметрах формы выбираем BorderStyle равным bsSingle или вот так:

Код

begin
Form1.BorderStyle:= bsSingle
end;

а если я не правильно понял, то уточни вопрос. smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 25.2.2005, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(Poseidon @ 25.2.2005, 03:56)

Form1.BorderStyle:= bsSingle

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

NiJazz

Дата 25.2.2005, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 1
Всего: 23

WinAPI - так WinAPI! smile

Код


unit Unit1;

interface

uses
  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.

Добавлено @ 13:53
drinkOut
Ещё есть замечательное событие OnCanResize - используй его с умом. Задаёшь в его теле условия, по которым, с помощью параметра Resize: boolean, определяется, меняется ли размер окна, или нет.

Это сообщение отредактировал(а) NiJazz - 25.2.2005, 13:50

Girder

Дата 25.2.2005, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

NiJazz достаточно у окна сбросить флаг WS_THICKFRAME (WS_SIZEBOX),
т.е. так:

Код

SetWindowLong(Form1.Handle,GWL_STYLE,(GetWindowLong(Form1.Handle,GWL_STYLE))and(not WS_SIZEBOX));

так:

Код

MainWnd:=CreateWindowEx(0,'TMainForm','Caption',ws_overlappedwindow xor WS_SIZEBOX,10,10,100,100,0,0,Hinstance,nil);

и т.д. и т.п.

--------------------

Как слышим, так и пишим.
Истина где-то там...

drinkOut

Дата 25.2.2005, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

Репутация: нет
Всего: нет

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

Прошу прощения за неточно заданный вопрос и ваше потраченное время. smile

--------------------

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »