Окно сворачивается неправильно

@selevo · Регистрация: 13.10.2013

Author24 — интернет-сервис помощи студентам

Хочу при двойном клике форму свернуть.
Оба метода использовал, в результате при сворачивании над свернутым кирпичем появляется окно выбора действия.

Delphi

procedure TForm2.Image1DblClick(Sender: TObject);
begin
 
 // SendMessage(Handle, WM_SYSCOMMAND, $F020, 0);
 // Application.Minimize;
end;

Исходник прилагаю.

@Puporev · 22.06.2018, 10:10

Так попробуйте

Delphi

procedure TForm1.Image1DblClick(Sender: TObject);
begin
ShowWindow(Handle,SW_HIDE); // Скрываем программу
end;

Добавлено через 7 минут
Или просто

Delphi

1	WindowState:=wsMinimized;

@selevo · 22.06.2018, 11:51 **[ТС]**

Мне надо его потом вернуть по alt+tab
а этот вариант его оттуда скрывает

WindowState:=wsMinimized;
такой же эффект что и с первыми двумя вариантами.

Добавлено через 41 минуту
такой эффект происходит когда я скрываю заголовок окна.
Жопа.

Delphi

  PROCEDURE TForm2.CreateParams(VAR Params: TCreateParams);
BEGIN
  Inherited CreateParams(Params);
  WITH Params DO
    Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME;
END;

Если этот кусок убираю то все нормально.
Как мне это решить ?
Мне хочется без заголовка форму но с изменяемым размером.

Добавлено через 8 минут
хотя...
вернул и с этим работает...

Добавлено через 15 минут
перестает работать из-за добавления возможности таскания за форму

Delphi

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form2.perform(WM_SysCommand,$F012,0);
end

Как это победить?

Добавлено через 32 минуты
пока сделал таскание по двум кнопкам одновременно нажатым

Delphi

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
//ReleaseCapture;
// Form2.perform(WM_SysCommand,$F012,0);
 
  if (button=mbRight)  and (button=mbRight) then
    begin
      ReleaseCapture;
  Form2.Perform(WM_SysCommand, $F012, 0);
end;
end;

Терпеть можно, до нахождения нормального решения.

@selevo · 22.06.2018, 12:03 **[ТС]**

последняя версия )))

DenNik · 22.06.2018, 14:34

Сообщение от selevo

if (button=mbRight) *and (button=mbRight) then

а что это за бред?
сравни:

если сегодня солнечная погода и сегодня солнечная погода
то мы пойдем гулять

@selevo · 22.06.2018, 14:54 **[ТС]**

да
немного сглючил, там был вариант с тремя кнопками еще...
спасибо

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	22.06.2018, 14:34	5
	Сообщение от selevo if (button=mbRight) and (button=mbRight) then а что это за бред? сравни: если* сегодня солнечная погода и сегодня солнечная погода то мы пойдем гулять 0

@selevo 2 / 7 / 6 Регистрация: 13.10.2013 Сообщений: 249
	22.06.2018, 14:54 [ТС]	6
	да немного сглючил, там был вариант с тремя кнопками еще... спасибо 0