Hallo! Ich verwende folgenden Code, um ein Fenster (TForm) mit der Maus auf dem Fensterhintergrund zu bewegen:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
implementation
{$R *.dfm}
procedure TformMain.WMNCHitTest(var M: TWMNCHitTest);
// Fenster mit der Maus bewegen:
begin
inherited; { call the inherited message handler }
if M.Result = htClient then { is the click in the client area? }
M.Result := htCaption; { if so, make Windows think it's }
{ on the caption bar. }
end;
Nun ist aber ein großer Teil des Fensterhintergrundes von einem TPanel bedeckt. Es sollte also auch beim Klick auf das Panel das Fenster bewegt werden. Wie kann man das erreichen?