Есть старенькое приложение в котором по т\з заказчика предыдущий прогер не от хорошей жизни убрал загаловок и границы и сделал самописный кэпшн
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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
procedure WMNCCalcSize(var Msg: TWMNCCalcSize); message WM_NCCALCSIZE;
public
{ Public declarations }
end;
var
Form1: TForm1;
const
WM_SYSCOMMAND = $0112;
implementation
{$R *.dfm}
procedure TForm1.WMNCCalcSize(var Msg: TWMNCCalcSize);
begin
Msg.Msg := WM_NULL;
inherited;
end;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;
end;
end.
И б-г судья и заказчику и исполнителю однако все работает и заказчик был счастлив все эти годы
Но теперь оно перешло мне и в свете будующего перехода на мобайл попросили для начала настольного клиента перевести на ФМХ с которым у меня вобще любви ни разу не было
И я спотыкаюсь на первом же шаге
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.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Types, System.UITypes,
System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Platform.Win,
FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
private
{ Private declarations }
procedure WMNCCalcSize(var Msg: TWMNCCalcSize); message WM_NCCALCSIZE;
public
{ Public declarations }
end;
var
Form1: TForm1;
const
WM_SYSCOMMAND = $0112;
implementation
{$R *.fmx}
procedure TForm1.WMNCCalcSize(var Msg: TWMNCCalcSize);
begin
Msg.Msg := WM_NULL;
inherited;
end;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
if Button = TMouseButton.mbLeft then
begin
ReleaseCapture;
SendMessage(FmxHandleToHWND(Self.Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;
end;
end.
как видно кэпшн не исчезает на ФМХ
Использовать темы и стили нельзя
Про тень от окна уже предупредил заказчика что возможно потеряется в процесе миграции на ФМХ
Нужно сохранить именно такой вид как на старом и чтобы _
обязательно _ подержка Snap Aero, это когда окно за кэпшн к границе дисплея подводишь и оно само подсказывает будующую позицию
Весь остальной код переписываю норм но с этой задачкей не могу совлодать уже пятый день
прошу помощи
