Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
17. Mär 2012
Habe soeben die Lösung gefunden:
procedure TformMain.pnlMainMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MoveWindow;
end;
procedure TformMain.MoveWindow;
begin
ReleaseCapture;
Forum: Win32/Win64 API (native code)
Delphi
by PeterPanino,
17. Mär 2012
Hallo! Ich verwende folgenden Code, um ein Fenster (TForm) mit der Maus auf dem Fensterhintergrund zu bewegen:
private
{ Private-Deklarationen }
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
implementation
{$R *.dfm}
procedure TformMain.WMNCHitTest(var M: TWMNCHitTest);