VPF::Зафиксировать Окно ??? - Форум программистов

Олег_Игоревич

Дата 19.4.2005, 09:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Доброго ВАМ времени суток !!!
Подскажите пожалуйста , как можно зафиксировать окно например в правом верхнем углу экрана, чтобы пользователь не смог его ни сдвинуть ни свернуть???
Заранее спасибо !!!

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

Используй жизнь ПО ПОЛНОЙ !!!

mvdr

Дата 19.4.2005, 10:05 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

Ставишь BorderStyle в bsNone, сдвигаешь форму в нужный угол. единственный недостаток - надо (если надо ) прописать кнопки свернуть, развернуть...

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Pathfider

Дата 19.4.2005, 19:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

А еще ради прикола можно воткнуть Form1.FormStyle:=fsStayOnTop;

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

Trust is a weakness

Dimannn

Дата 21.4.2005, 21:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Или поставь таймер с интервалом 1 и в обработчике таймера:

Код


Form1.Left:=0;
Form1.Top:=0;

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

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

mvdr

Дата 23.4.2005, 21:55 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

Цитата(Dimannn @ 21.4.2005, 22:19)

Или поставь таймер с интервалом 1 и в обработчике таймера:

не прокатит, окно потом двигать можно.
Хотя в сочитании с formStyle, наверно пройдет.

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Dimannn

Дата 25.4.2005, 20:36 (ссылка)

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

Загрузка ...

Опытный

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

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

Окно двигать можно, но далеко его не удвинешь - обратно вернётся, а гемор с кнопочками закрыть и сверныть проподает

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

Yanis

Дата 25.4.2005, 20:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Можно ещё

Код


Align := alTop;

Только окно всегда будет "расплываться" по всему краю экрана.

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

*щёлк*

drinkOut

Дата 25.4.2005, 22:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Cтавишь свойство формы Align в значение alTop, а в обработчике события формы OnCreate пишешь:

Код

Screen.DisableAlign;

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

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

Rouse_

Дата 26.4.2005, 09:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну а вообще просто прижать форму без всяких стилей и т.п. можно вот так:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
    procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

const
  FormWidth = 300;
  FormHeight = 150;

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Left := 0;
  Top := 0;
end;

procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  with Message.MinMaxInfo^ do
  begin
    ptMinTrackSize.X := FormWidth;
    ptMinTrackSize.Y := FormHeight;
    ptMaxTrackSize.X := FormWidth;
    ptMaxTrackSize.Y := FormHeight;
  end;
  inherited;
end;

procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  with Message.WindowPos^ do
  begin
    x := 0;
    y := 0;
    cx := FormWidth;
    cy := FormHeight;
  end;
  inherited;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  with Message do
    if (CmdType and $FFF0 <> SC_MINIMIZE) and
      (CmdType and $FFF0 <> SC_MAXIMIZE) then inherited;
end;

end.

Устанешь отдирать ;)

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

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Олег_Игоревич

Дата 26.4.2005, 10:48 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо огромное!!! Работает!
Добавлено @ 10:48
Спасибо огромное!!! Работает!

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

Используй жизнь ПО ПОЛНОЙ !!!

Payne

Дата 27.4.2005, 17:51 (ссылка)

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

Загрузка ...

Детектив

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

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

А вообще лучше всего поставить свойство Align в alCustom smile

drinkOut

Дата 27.4.2005, 17:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Payne, тогда мы не достигнем желаемого результата. smile

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

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

Payne

Дата 28.4.2005, 12:29 (ссылка)

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

Загрузка ...

Детектив

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

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

drinkOut
В чем проблема? Окно-то будет всегда на одном месте. А если отключишь кнопки
сворачивания и максимизации в свойстве BorderIcons, то юзер вообще не сможет никак повлиять на окно smile

- только закрыть. Так что я думаю, этот вариант как нельзя лучше подходит к заданному в этой теме вопросу.
Действует, кстати, точно так же как

Цитата(drinkOut @ 25.4.2005, 22:11)

Screen.DisableAlign;

С учетом того, что тебе не придется писать лишних строчек кода.

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