阻止表单调整大小并在悬停时显示提示

Question

Delphi 11 如何做到这一点，当您将光标悬停在调整表单大小时，会出现一个带有一些题词的十字，例如：“不要调整大小”并且无法调整表单大小？

我需要在调用第二个表单时阻止第一个表单调整大小。我对 Delphi 很陌生，你能帮帮我吗？

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form1.Caption:= 'Main';
  Form1.BorderStyle:= bsSingle;
  //And Form1.OnCanResize() or in some other way?
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Caption:= 'Main Form';
  Form1.BorderStyle:= bsSizeable;
  Form2.Hide;
end;

Answer 1

问题解决

“如果你不喜欢这个答案并不代表它不对。但是继续删除我的评论:)”

当专业的人帮不了你，只表现出傲慢的时候，真是可悲。继续，你真有趣）

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form1.Caption:= 'Main';
  Form1.BorderStyle:= bsSingle;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Caption:= 'Main Form';
  Form1.BorderStyle:= bsSizeable;
  Form1.Cursor:= crDefault;
  Form1.Hint:= '';
  Form1.ShowHint:= False;
  Form2.Hide;
end;

procedure TForm1.Timer1Timer(Sender: TObject); //Interval = 1
var
  pt: TPoint;
  Width, Heigth: Integer;
begin
  GetCursorPos(pt);
  if Form2.Visible then
    begin
      if (ScreenToClient(pt).X > ClientWidth - 10) or (ScreenToClient(pt).Y > ClientHeight - 10) then
        begin
          Cursor:= crNo;
          Hint:= 'No resize';
          ShowHint:= True;
        end
      else
        begin
          Cursor:= crDefault;
          Hint:= '';
          ShowHint:= False;
        end;
    end;
end;

阻止表单调整大小并在悬停时显示提示

Block form resize and show a hint when hovering

delphi

resize