Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Как присвоить действие resize формы в компонент?


Автор: Elfebet 12.7.2006, 11:08
к примеру передать image1 действие таскания за  заголовок формы можно вот так
Код

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 Form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

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

Автор: _hunter 12.7.2006, 11:16
0xF000 

Автор: Elfebet 12.7.2006, 11:35
Цитата

0xF000

а что это, куда это вставить? 

Автор: _hunter 12.7.2006, 11:56
это число. вставить нужно вместо $F012 ($F000) 

Автор: Romikgy 12.7.2006, 12:05
Form1.Perform(WM_SYSCOMMAND, $F000 , 0); 

Автор: Elfebet 12.7.2006, 12:45
если $F000 - тогда мышка просто становится в центр окна.
я у же разобрался, вот какой результат:
$F001 - растягивание по левой стороне
$F002 - растягивание по правой строне
$F003 - растягивание по верху
$F004 - растягивание всей формы
$F006 - растягивание по низу
$F012 - таскать форму 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)