Вопрос новичка среди новичков- всего лишь о самой форме,окне

[lilak]

Скажите, люди добрые, программисты с опытом:а можно ли и как создать форму совсем без заголовка- чтоб даже этого места в сантиметр высотой для него не было. Смешной вопрос? Но я искал в свойствах формы- не нашёл, а очень надо. Кто-нибудь знает, наверное, и не один- отзовитесь, Спасибо.

[EvilCoder]

Плохо смотрел
Form1.BorderStyle=0

[Gloom]

Caption = ""
ControlBox = False

[vvs_adm]

Плохо смотрел
Form1.BorderStyle=0

Не обязательно, это уж слишком крутой метод и форма получается некрасивая. Лучше Form.ControlBox=False, опосля чего Caption оставь пустой. Заголовок и сгинет.

Не успел

[lilak]

Спасибо, я знал, что вы поможете, сделал как советовали Gloom
и vvs_adm - форма получилась такой, как хотелось, только- не сочтите, что капризничаю, можно ли при этом как- то сделать её перетаскиваемой? Спасибо.

[Шурик]

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

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub


[lilak]

Шурик!- Работает- супер!. Каждый день узнаю что-то новое, спасибо вам всем! Но впереди- ещё учиться и учиться, например, как создать контекстное меню правой кнопкой мыши на форме или на иконке в трее- Подскажите, хочется уметь, да и необходимость есть в том. Ещё раз спасибо.

[Amed]

Поможет поиск по форуму. И ещё раздел FAQ.

[Шурик]

Да кстати, можешь использовать код для перетаскивания не только для формы. Если у объекта(form, command, label и т.д.)есть событие _MouseDown, то можешь таскать окно своей программы не только за форму, но еще за кнопку, лэйбл и т.д.