Блог

Delphi 11 Как сделать так, чтобы при наведении курсора на изменение размера формы появлялся крестик с какой-нибудь надписью типа: «Не изменять размер» и изменить размер формы было невозможно?

Мне нужно заблокировать изменение размера моей первой формы, когда я вызываю свою вторую форму. Я совсем новичок в Дельфи, не могли бы вы мне помочь, пожалуйста?

 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;  

Вопрос решен.

«Если вам не нравится ответ, это не значит, что он неправильный. Но продолжайте удалять мои комментарии :)»

Это так печально, когда профессионалы не могут вам помочь, а только выражают высокомерие. Продолжай, ты такой забавный)

 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 gt; ClientWidth - 10) or (ScreenToClient(pt).Y gt; ClientHeight - 10) then  begin  Cursor:= crNo;  Hint:= 'No resize';  ShowHint:= True;  end  else  begin  Cursor:= crDefault;  Hint:= '';  ShowHint:= False;  end;  end; end;