Avoiding dropdown menu

[Phil Tippit]

Gentlemen:

How do I stop the dropdown MENU WITH Restore,Move,SIZE,MIN,MAX,CLOSE
FROM being displayed when I place a icon IN the Title Area.

IF I don't put the icon in the Title Area, I can move the dialog around
by holding DOWN the mouse anywhere IN the title area.

WITH the icon IN place, the same is true anywhere over the TEXT IN the
title area, except over the icon itself, THEN I GET the dropdown menu.

How DO I destroy the dropdown after I place the icon?

WINMAIN
    hpbcicon&=loadicon(hCurInstance,"PSSOFT")  ' hpbcicon& is global
    ShowDialog_pbcodeform 0
END FUNCTION

SUB ShowDialog_pbcodeform(BYVAL hParent&)
    LOCAL Style&, ExStyle&
    LOCAL N&, CT&        '  Variables used for Reading Data in Arrays for Listbox and Combobox
    '   hParent& = 0 if no parent Dialog
    Style& = %WS_POPUP OR %DS_MODALFRAME OR %WS_CAPTION OR %WS_MINIMIZEBOX OR %WS_SYSMENU OR %DS_SYSMODAL
    ExStyle& = 0
    DIALOG NEW hParent&, "Some Kind of Title", 0,50,  427,  49, Style&, ExStyle& TO hpbcodeform&
              ' Put icon in dialog title area
    IF hpbcicon& THEN n&=SendMessage(hpbcodeform&, %WM_SETICON, %ICON_SMALL, hpbcicon&)
END SUB

------------------


[This message has been edited by Phil Tippit (edited January 25, 2001).]

[Semen Matusovski]

Phil --
try this direction

   #Compile Exe
   #Dim All
   #Register None
   #Include "win32api.INC"

   CallBack Function DlgProc
      Select Case CbMsg
         Case %WM_NCLBUTTONDOWN
            If CbWparam = %HTSYSMENU Then Function = 1: Exit Function
         Case %WM_NCRBUTTONDOWN
            If CbWparam = %HTCAPTION Or CbWparam = %HTSYSMENU Then Function = 1: Exit Function
      End Select
   End Function

   Function PbMain
      Local hDlg As Long
      Dialog New 0, "No menu", , , 100, 60, _
         %WS_CAPTION Or %WS_SYSMENU Or %WS_MAXIMIZEBOX Or %WS_MINIMIZEBOX Or %WS_THICKFRAME To hDlg
      Control Add Button, hDlg, %IDOK, "&Nothing", 30, 20, 40, 14
      PostMessage  hDlg, %WM_SETICON, %ICON_SMALL, LoadIcon(ByVal 0&, ByVal %IDI_ASTERISK)
      Dialog Show Modal hDlg, Call DlgProc
  End Function

------------------
E-MAIL: [email protected]

[Phil Tippit]

Semen,

You are a Gentlemen and a "Real Programming Scholar".

That works great!!!

Phil

------------------