Probleme mit Form ohne Border

  • C#

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von Artentus.

    Probleme mit Form ohne Border

    Hey,

    ich wollte gerade mal versuchen, einen eigenen Formrand mit GDI+ zu zeichnen. Dafür habe ich den FormBorderStyle auf None gesetzt (logisch).
    Nun wollte ich diese Form aber trotzdem verschieben können, sowie ihre Größe ändern können. Dafür verwende ich folgenden Code:
    Spoiler anzeigen

    C#-Quellcode

    1. [DllImport("user32.dll")]
    2. public static extern int SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, IntPtr lParam);
    4. private const int WM_NCLBUTTONDOWN = 0xA1;
    5. private const int HT_CAPTION = 2;
    6. private const int HT_LEFT = 10;
    7. private const int HT_RIGHT = 11;
    8. private const int HT_TOP = 12;
    9. private const int HT_TOPLEFT = 13;
    10. private const int HT_TOPRIGHT = 14;
    11. private const int HT_BOTTOM = 15;
    12. private const int HT_BOTTOMLEFT = 16;
    13. private const int HT_BOTTOMRIGHT = 17;
    15. protected override void OnMouseDown(MouseEventArgs e)
    16. {
    17. base.OnMouseDown(e);
    19. if (e.Button == MouseButtons.Left)
    20. {
    21. Capture = false;
    23. var wParam = 0;
    25. if (e.Y <= borderSize && e.X <= borderSize)
    26. wParam = HT_TOPLEFT;
    27. else if (e.Y <= borderSize && e.X >= ClientSize.Width - borderSize)
    28. wParam = HT_TOPRIGHT;
    29. else if (e.Y <= borderSize)
    30. wParam = HT_TOP;
    31. else if (e.Y >= ClientSize.Height - borderSize && e.X <= borderSize)
    32. wParam = HT_BOTTOMLEFT;
    33. else if (e.Y >= ClientSize.Height - borderSize && e.X >= ClientSize.Width - borderSize)
    34. wParam = HT_BOTTOMRIGHT;
    35. else if (e.Y >= ClientSize.Height - borderSize)
    36. wParam = HT_BOTTOM;
    37. else if (e.X <= borderSize)
    38. wParam = HT_LEFT;
    39. else if (e.X >= ClientSize.Width - borderSize)
    40. wParam = HT_RIGHT;
    41. else if (e.Y <= 30)
    42. wParam = HT_CAPTION;
    43. else
    44. return;
    46. SendMessage(Handle, WM_NCLBUTTONDOWN, new IntPtr(wParam), IntPtr.Zero);
    47. }
    48. }

    Das funktioniert auch alles so wie gewollt.

    Nun besitzt so eine Form ohne Border aber auch kein Systemmenü (das Menü, dass sich bei Alt + Space oder bei Rechtsklick auf das Icon in der Taskleiste öffnet). Dieses kann man sich ebenfalls zurückholen, und zwar mit diesem Code:
    Spoiler anzeigen

    C#-Quellcode

    1. protected override CreateParams CreateParams
    2. {
    3. get
    4. {
    5. CreateParams cp = base.CreateParams;
    6. const int WS_CLIPCHILDREN = 0x2000000;
    7. const int WS_MINIMIZEBOX = 0x20000;
    8. const int WS_MAXIMIZEBOX = 0x10000;
    9. const int WS_SYSMENU = 0x80000;
    11. const int CS_DROPSHADOW = 0x20000;
    13. int classFlags = cp.ClassStyle;
    14. if (Environment.OSVersion.Version.Major >= 6)
    15. classFlags |= CS_DROPSHADOW;
    17. cp.Style |= WS_CLIPCHILDREN | WS_MINIMIZEBOX | WS_SYSMENU | WS_MAXIMIZEBOX;
    18. cp.ClassStyle = classFlags;
    20. return cp;
    21. }
    22. }

    Jetzt ist aber mein Problem, dass wenn ich diesen Code ebenfalls in die Form einfüge, man ihre Größe nicht mehr ändern kann (verschieben geht noch). Weiß jemand, woran das liegt oder was ich anders machen muss/kann?

    Vielleicht musst du noch den Wert "WS_SIZEBOX" hinzufügen zu den Styles (könnte vielleicht der Grund sein).
    Kannst ja mal hier gucken, ob du da noch was findest, was dir weiterhilft. Bin mir grade aber nicht wirklich sicher, ob das dein Problem lösen kann, aber Probieren kostet ja schließlich nichts ;)

    Schau dir doch bei anderen Programmen mal an, welche Window-Styles die gesetzt haben. Geht doch mit einem SysInternals Tool, glaube ich.
    Mir fällt zum Beispiel Steam ein.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    So ich habe nun das Resizing komplett selber implementiert, mein Code sieht so aus:
    Spoiler anzeigen

    C#-Quellcode

    1. ResizeDirection sizeDir;
    2. Point lastCursorPos;
    4. protected override void OnMouseDown(MouseEventArgs e)
    5. {
    6. base.OnMouseDown(e);
    8. const int WM_NCLBUTTONDOWN = 0xA1;
    9. const int HT_CAPTION = 0x2;
    11. if (e.Button == MouseButtons.Left)
    12. {
    13. if (e.Y <= borderSize)
    14. sizeDir |= ResizeDirection.Top;
    16. if (e.Y >= ClientSize.Height - borderSize)
    17. sizeDir |= ResizeDirection.Bottom;
    19. if (e.X <= borderSize)
    20. sizeDir |= ResizeDirection.Left;
    22. if (e.X >= ClientSize.Width - borderSize)
    23. sizeDir |= ResizeDirection.Right;
    25. if (e.Y <= 30 && sizeDir == ResizeDirection.None)
    26. {
    27. Capture = false;
    28. SendMessage(Handle, WM_NCLBUTTONDOWN, new IntPtr(HT_CAPTION), IntPtr.Zero);
    29. }
    31. lastCursorPos = e.Location;
    32. }
    33. }
    35. protected override void OnMouseUp(MouseEventArgs e)
    36. {
    37. base.OnMouseUp(e);
    39. sizeDir = ResizeDirection.None;
    40. }
    42. protected override void OnMouseMove(MouseEventArgs e)
    43. {
    44. base.OnMouseMove(e);
    46. if (e.Button == MouseButtons.Left && sizeDir != ResizeDirection.None)
    47. {
    48. var xDif = lastCursorPos.X - e.X;
    49. var yDif = lastCursorPos.Y - e.Y;
    51. var addX = 0;
    52. var addY = 0;
    53. var addWidth = 0;
    54. var addHeight = 0;
    56. if ((sizeDir & ResizeDirection.Left) == ResizeDirection.Left)
    57. {
    58. addX = -xDif;
    59. addWidth = xDif;
    60. }
    62. if ((sizeDir & ResizeDirection.Right) == ResizeDirection.Right)
    63. addWidth = -xDif;
    65. if ((sizeDir & ResizeDirection.Top) == ResizeDirection.Top)
    66. {
    67. addY = -yDif;
    68. addHeight = yDif;
    69. }
    71. if ((sizeDir & ResizeDirection.Bottom) == ResizeDirection.Bottom)
    72. addHeight = -yDif;
    74. SetBounds(Location.X + addX, Location.Y + addY, Width + addWidth, Height + addHeight, BoundsSpecified.All);
    76. lastCursorPos = e.Location;
    77. }
    78. }
    80. [Flags()]
    81. private enum ResizeDirection
    82. {
    83. None = 0x0,
    84. Left = 0x1,
    85. Right = 0x2,
    86. Top = 0x4,
    87. Bottom = 0x8
    88. }


    Wenn ich rechts, unten oder unten-rechts ziehe funktioniert das ganze. Wenn ich aber links, oben oder links-oben ziehe, dann scheint es so, als könne sich die Form nicht schnell genug aktualisieren, jedenfalls flackert sie sehr stark und folgt auch nicht wirklich dem Mauszeiger. Hat jemand ne Idee?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()

    Ich habe mal einen Form-Style von vor 2 Jahren ausgegraben, dort habe ich die Bewegung für links und oben so gelöst:
    Bewegung für links und rechts direkt in einem:

    VB.NET-Quellcode

    1. MyBase.ParentForm.Size = New Size(MyBase.ParentForm.Width + (MyBase.ParentForm.Location.X - MousePosition.X), MyBase.ParentForm.Height)
    2. MyBase.ParentForm.Location = New Point(MousePosition.X, MyBase.ParentForm.Location.Y)

    Für oben und unten:

    VB.NET-Quellcode

    1. MyBase.ParentForm.Size = New Size(MyBase.ParentForm.Width, MyBase.ParentForm.Height + (MyBase.ParentForm.Location.Y - MousePosition.Y))
    2. MyBase.ParentForm.Location = New Point(MyBase.ParentForm.Location.X, MousePosition.Y)

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Artentus schrieb:

    @vb-checker
    Danke für den Vorschlag, aber mit dem ProcessExplorer gehts schon mal nicht. Weißt du vielleicht, welches Tool genau ich brauche?

    Ich hab jetzt auch kein Programm gefunden, aber eine Funktion: GetWindowLong
    Wenn du als zweites Argument -20 oder -16 übergibst, bekommst du Style oder ExStyle des Fensters zurück. Um da einzelne Style-Konstanten rauszubekommen, braucht man halt wieder Logik-zauberei mit Or/And/Bla, das kann ich mir nie merken, auch wenns um Enums geht ^^
    Funktionierendes Beispiel

    VB.NET-Quellcode

    1. <DllImport("user32.dll", SetLastError:=True)> _
    2. Private Shared Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As UInt32
    3. End Function
    4. Dim myProcess As New Process()
    5. myProcess.StartInfo.FileName = "notepad"
    6. myProcess.Start()
    7. Dim style As UInt32 = GetWindowLong(myProcess.Handle, -16)

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

Facebook