Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Изменение размеров формы без заголовка   Найти похожие ветки 

 
Skyhawk   (2004-11-30 12:29) [0]

Как изменить размер формы если у нее borderStyle=bsNone?


 
ssk ©   (2004-11-30 12:34) [1]

попробуй сделать так

procedure FormWithoutCaption(Form:TForm);
var
FSizeCaption: Integer;
begin
with Form do
   begin
     FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
     SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
     Height:=Height - FSizeCaption;
   end;
end;


 
Skyhawk   (2004-11-30 12:49) [2]

Так не получается, в смысле получается но не так. Я хочу чтобы при наведении допустим на правый нижний угол формы, курсор менялся на двойную стрелочку (ну это ладно) и как всегда зажав левую кнопку изменить размер окна.


 
KSergey ©   (2004-11-30 12:56) [3]

Обрабатывать WM_NCHITTEST в форме


 
ssk ©   (2004-11-30 13:07) [4]

>>Skyhawk   (30.11.04 12:49) [2]
Так не получается, в смысле получается но не так. Я хочу чтобы при наведении допустим на правый нижний угол формы, курсор менялся на двойную стрелочку


1. убери bsNone, поставь bsSizeable.
2. код [1] пропиши в OnCreate своей формы:

implementation

{$R *.dfm}

procedure FormWithoutCaption(Form:TForm);
var
FSizeCaption: Integer;
begin
with Form do
  begin
    FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
    SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
    Height:=Height - FSizeCaption;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FormWithoutCaption(Form1);
end;


у меня работает


 
Думкин ©   (2004-11-30 13:30) [5]

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
    inherited;
    Params.Style := (Params.Style or WS_POPUP) and not WS_CAPTION;
end



Страницы: 1 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.043 c
4-1099031848
Grundic
2004-10-29 10:37
2004.12.12
Active Directory - проверка пользователь-пароль - как?


14-1100897306
dmk
2004-11-19 23:48
2004.12.12
Владельцам автомобилей


3-1100015950
Kergma
2004-11-09 18:59
2004.12.12
Добавить, получить значение поля массива......КАК?


4-1098861435
Prov
2004-10-27 11:17
2004.12.12
RegDeleteKey - как удалить ключ с внутренними ключами


4-1098871748
olevacho
2004-10-27 14:09
2004.12.12
запуск команд под другой учетной записью