Form lässt sich nicht verschieben

[DeddyH]

Nur eben falsch herum XD

Mal ein Versuch:

Delphi-Quellcode:

type
  TFormBlubb = class(TForm)
  ...
  private
    procedure WMNCHitest(var Msg: TWMNCHITTEST);
      message WM_NCHITTEST;
  ...
  end;

...

procedure TFormBlubb.WMNCHitest(var Msg: TWMNCHITTEST);
begin
  if Msg.Result = htClient then
    Msg.Result := htCaption;
end;

Falls ich nichts übersehen habe, sollte sich das Form dann auch ohne Titelbar verschieben lassen.

[edit] Jetzt hab ich das schon selber verdreht [/edit]

[taaktaak]

Was ist denn das Ziel?
Geht es darum, es verschieben zu können, oder möchtest du die TitleBar wie in einem StandardWindow dargestellt haben?

[daredd]

Das will auch nicht klappen. Komisch ist das Hauptmenü-Form lässt sich verschieben wenn ich bsSingle einstelle. @ DeddyH

Ja ich will es einfach nur verschieben können! @ taaktaak

[DeddyH]

Zeig doch mal den private-Abschnitt des Forms. Wir haben keine Lust, hier zu raten.

[Luckie]

Dann wird in der anderen Form ein Code sein, der das Verschieben unterbindet. Wie der aussehen könnte, wurde dir hier im Thread aufgezeigt. Finde ihn und lösche ihn.

[taaktaak]

Welche Windows-Botschaften werden denn vom Programm behandelt?

[daredd]

Delphi-Quellcode:

private
    procedure AssignStringGrid(sg : TStringGrid; AValues : GraphValues);
    procedure CMHitTest(var Msg : TCMHitTest);
    message WM_NCHITTEST;

ICh glaube vielleicht hat das CMHitTest was damit zu tun.
Also so war ist das in der Ursprungsform drin im quellcode.

[daredd]

und hier die Procedure an sich:

Delphi-Quellcode:

procedure TFormBigGraph.CMHitTest(var Msg : TWMNCHitTest);
begin
     if PtInRect(Graph.ClientRect, Graph.ScreenToClient(Point(Msg.XPos, Msg.YPos))) then Msg.Result := HTCAPTION;
end;

[DeddyH]

Kommentiere mal alles aus, was mit dem HitTesting zu tun hat.

[Luckie]

Zitat von daredd:

ICh glaube vielleicht hat das CMHitTest was damit zu tun.

Dann nimm ihn doch einfach mal raus und guck, was passiert. Deine Mutter wird dich schon deswegen nicht schlagen.