Работа с Формами и применение API

[Bankir]

Хотелось бы знать каким образом в стандартной форме (Form) из кода можно изменить такие свойства как Caption="" ControlBox=True\False все только для того чтобы в программе скрывать верхнюю часть формы допустим по нажатию кнопки (там где иконка её caption и кнопки свернуть, развернуть, закрыть - Просто не помню как ето все одним словом завется)
короче скрывать и отображать Title формы, вот!

[Amed]

Form.BorderStyle = 0

[Konst_One]

из кода так нельзя, придется юзать API

[GSerg]

Код: Выделить всё

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Private Declare Function MapWindowPoints Lib "user32.dll" (ByVal hwndFrom As Long, ByVal hwndTo As Long, ByRef lppt As Any, ByVal cPoints As Long) As Long

Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Private Const SM_CYCAPTION As Long = 4
Private Const SM_CXEDGE As Long = 45
Private Const SM_CYEDGE As Long = 46

Private Sub Command1_Click()
  Static f As Boolean
  Dim r As RECT
 
  If f Then
    SetWindowRgn Me.hwnd, 0, 1
  Else
    GetWindowRect Me.hwnd, r
    MapWindowPoints 0, Me.hwnd, r, 2
    SetWindowRgn Me.hwnd, CreateRectRgn(0, GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYEDGE) + 1, r.Right + GetSystemMetrics(SM_CXEDGE) * 2, r.Bottom - r.Top + GetSystemMetrics(SM_CYEDGE)), 1
  End If
  f = Not f
End Sub

[Amed]

Точно. Невнимательность, стыдно.

[Bankir]

оно работает и так если вот так
Form1.BorderStyle = 0
Form1.Caption = ""
но как сделать чтобы это было красиво то есть не стакой дергатней чтобы форма так не дергалась
чтото вроде
форма на весь экран Form1.WindowState = 0 и при етом исчезает Title
а по клику на форму Title отображается тоже без дерганий
приетом форма отображается поверх системной панели в момент когда Title скрыт а когда виден системная панель поверх формы