André Justo, Faça o seguinte.
Library name: user32.dll Function: SetWindowPosA Description: Export Ordinal: Returns Boolean: BOOL Parameters Window Handle: HWND Window Handle: HWND Number: INT Number: INT Number: INT Number: INT Number: INT Na Constants ! CONSTANTS do Comando SetWindowPos Number: SWP_NOSIZE = 0x01 Number: SWP_NOMOVE = 0x02 Number: SWP_NOZORDER = 0x04 Number: SWP_NOREDRAW = 0x08 Number: SWP_NOACTIVATE = 0x010 Number: SWP_FRAMECHANGED = 0x020 Number: SWP_SHOWWINDOW = 0x040 Number: SWP_HIDEWINDOW = 0x080 Number: SWP_NOCOPYBITS = 0x0100 Number: SWP_NOOWNERZORDER = 0x0200 ! Usar a função SalNumberToWindowHandle antes de usar estes parametros Number: HWND_TOP = 0 Number: HWND_BOTTOM = 1 Number: HWND_TOPMOST = -1 Number: HWND_NOTOPMOST = -2 Crie um Dialog Box normal, só que como tipo Modeless e escreva On SAM_Create Call SetWindowPos( hWndForm, SalNumberToWindowHandle( HWND_TOPMOST ), 0, 0, 0, 0, SWP_NOSIZE ) Para Remover a borda use os seguintes comandos. Library name: user32.dll Function: GetWindowLongA Description: Export Ordinal: Returns Number: LONG Parameters Window Handle: HWND Number: INT Function: SetWindowLongA Description: Export Ordinal: Returns Number: LONG Parameters Window Handle: HWND Number: INT Number: LONG ! ! CONSTANTS dos Comandos GetWindowLong e SetWindowLong Number: GWL_Style = -16 Number: WS_Caption = 0x00C00000 Number: WS_Border = 0x00800000 Number: WS_DlgFrame = 0x00400000 Number: WS_VScroll = 0x00200000 Number: WS_HScroll = 0x00100000 Number: WS_SysMenu = 0x00080000 Number: WS_ThickFrame = 0x00040000 Number: WS_MinimizeBox = 0x00020000 Number: WS_MaximizeBox = 0x00010000 Na SAM_Create inclua Call SetWindowLong( hWndForm, GWL_Style, GetWindowLong( hWndForm, GWL_Style) - WS_Caption) Espero Ter Ajudado, Garcia. ============================================== Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) ==============================================
