窗体问题！

Question

在form1.borderStyle:=bsnone;的设置中，如果把鼠标移到边框处怎样出现拉伸边框时的图标！！（最后的分了）谢谢！！！！

Answer 1

bsnone状态本来就是不可调整窗口大小的，折衷一下用bsSizeToolWin吧，呵呵
 ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/

Answer 2

既然要拉伸边框，要为何form1.borderStyle:=bsnone; 
----没有困难，创造困难

Answer 3

requirement is BT;
of course
----------------
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  SC_MANIPULATE:word;
begin
  //Bottom
  if (X>8) and (X<Width-8) and (Y>height-8) then
  begin
    Cursor := crSizeNS;
    SC_MANIPULATE:=$F006;
  end
  //Top
  else   if (X>8) and (X<Width-8) and (Y<8) then
  begin
    Cursor := crSizeNS;
    SC_MANIPULATE:=$F003;
  end
  //Left
  else  if (Y>8) and (Y<height-8) and (x<8) then
  begin
    Cursor := crSizeWE;
    SC_MANIPULATE:=$F001;
  end
  //Right
  else if (Y>8) and (Y<height-8) and (x>width-8) then
  begin
    Cursor := crSizeWE;
    SC_MANIPULATE:=$F002;
  end
  // and others , write yourself
  {
$F001:改变控件的left大小
$F002:改变控件的right大小
$F003:改变控件的top大小
$F004:改变控件的buttom大小
$F007:控件左边放大缩小
$F008:控件右边放大缩小
$f002:右增缩;
$f003:上增缩;
$f004:左上增缩;
$f005:右上缩;
$f006:下增缩;
$f007:左下增缩;
$f008:右下增缩;
$f009:自由移动;
$f020:最小化(双击可以还原);
  }
  else
    Cursor:=crDefault;  if ssLeft in shift then
  begin
    ReleaseCapture;
    SendMessage(Handle, WM_SYSCOMMAND, SC_MANIPULATE, 0);
  end;
end;