Form lässt sich nicht verschieben

[daredd]

:wall:
Hallo Freunde,

ich habe eine TForm die lässt im Programm nicht Verschieben, also mit gedrücktem linken Mauszeiger. Woran kann das liegen?

[Bernhard Geyer]

Zitat:

Zitat von daredd

ich habe eine TForm die lässt im Programm nicht Verschieben, also mit gedrücktem linken Mauszeiger. Woran kann das liegen?

Hat dir jemand sowas eingebaut?

[daredd]

Ich glaube das würde hinkommen. Nur wo kann ich das wieder raus machen?
Alle fenster lassen sich nur über Imagebuttons betätigen und die standart Windows Border sind ausgeschaltet.
Nun brauche ich aber ein Fenster das ich verschieben kann und das geht nicht.

[DeddyH]

Zitat:

Zitat von daredd

und die standart Windows Border sind ausgeschaltet.

Was meinst Du damit? BorderStyle auf bsNone?

[daredd]

Ja, der BorderStyle war auf bsNone. Dann habe ich den auf bsSingle gemacht.
Nun zeigt er mir das Form als Windows-Fenster im Programm an, jeddoch kann ich es nicht verschieben.

[daredd]

Überhaupt funktioniert dir Ganze Form-Kopf nicht. Also Schließen, Maximieren, Minimiren.

[taaktaak]

Moin, Moin,

zum Verständnis: Du hast ein Programm und auch den Source, hast es aber nicht selbst geschrieben - korrekt?

[DeddyH]

Ich vermute, es wird auf WM_NCHITTEST reagiert.

[taaktaak]

Joo, das ist schon recht wahrscheinlich...

[daredd]

Korrekt @ taaktaak!!!

Ich habe das Programm aus der Ukraine bekommen und nun will ich das ein bisschen bearbeiten. Bin leider kein 100% Delphianer. Somit habe ich an manchen stellen meine Schwierigkeiten.
Der Programmierer in der Ukraine ist leider auch nicht mehr auffindbar und darum bin ich auf mich selber angewiesen.

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

[daredd]

JUNGS!!!! hegdl :-D

Hat geklappt als ich dieses dumme CMHitTest rausgenommen habe.
Besten dank an Alle