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 :oops: [/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:

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. ;)