Цитата:
Сообщение от aleksnine
Привет.
Делаю так -
procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := (Params.Style or WS_THICKFRAME);
end;
Всё работает , но появляется бордюр у формы.
Возможно ли сделать тоже самое , но чтобы форма выглядела как при bsnone, т.е без бордюра.
|
Вот тебе примерчик для одной стороны формы(правой, там доделаеш. Влом писать.
resizeRight и mouseDown - глобальные boolean
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | procedure TForm1 . FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer );
begin
mouseDown := true ;
end ;
procedure TForm1 . FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer );
begin
mouseDown := false ;
end ;
procedure TForm1 . FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer );
begin
if ((resizeRight) and (mouseDown)) then
begin
Width := X + 3 ;
exit;
end ;
if (X > Width - 3 ) then
begin
resizeRight := true ;
Cursor := crHSplit;
exit;
end else
begin
resizeRight := false ;
Cursor := crArrow;
end ;
end ;
|