Frage zu: Fenster ohne Titelzeile verschieben

[Flocke]

Frage an Luckie:

Ich habe gerade den Code aus Fenster ohne Titelzeile verschieben in ein Splashscreen eingebaut (wird beim Programmstart angezeigt, kein Rahmen). So kann man das Fenster zur Seite schieben, falls ein Fehler passiert - sonst ist nämlich immer die Fehlerbox verdeckt und der Anwender meint, das Programm sei abgestürzt.

Wozu überprüfst du in WMNCHitTest, ob ein Control getroffen wurde?

ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil Wenn ich das drin lasse, dann passiert bei mir garnichts. Wenn ich es rausnehme, dann kann ich im gesamten Formular klicken und verschieben.

Müsste der Test nicht andersherum lauten? Ich meine ...

ControlAtPos(Point(Message.xPos, Message.yPos), True, True) = nil ... damit man dem Control nicht den Mausklick wegnimmt?

[TeronG]

Zitat von Flocke:

Frage an Luckie:

an Luckie

[toms]

Zitat:

Müsste der Test nicht andersherum lauten? Ich meine ...

ControlAtPos(Point(Message.xPos, Message.yPos), True, True) = nil

genau, so müsste es lauten.

[DevilsCamp]

Es gibt noch eine zweite Möglichkeit:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const 
  SC_DRAGMOVE = $F012;
begin
  if Button = mbleft then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Dies kann für jede Komponente angewendet werden, die ein OnMouseDown-Ereignis besitzt.

[SirThornberry]

@DevilsCamp: Ich würde auch diese Lösung bevorzugen (schließlich sind wir hier ja auch im VCL Thread). Zur Ergänzung noch: Wenn auf dem Splashscreen ein Bild (z.B.: TImage) ist musst das ganze natürlich auch in das OnMouseDown von dem TImage (bzw. die gleiche procedure zuweisen)

[DevilsCamp]

und natürlich bei jeder anderen Komponente auch.

Deshalb wollte ich eine Komponente schreiben, die dies für mich erledigt, allerdings schaffe ich das nur für das Hauptformular

Für Anregungen bin ich offen