PC Toledo

Boas,

Compilo minha aplicações com o xHarbour 1.0 + GTWVW e queria saber dos amigos se tem como eu colocar um MessageBox gráfico em uma determinada posição da tela?

Desde já agradeço a ajuda.

O original do Windows não, porque não tem parâmetro pra isso.
Mas se usa GTWVW, só fazer uma janela em GTWVW.

Obrigado Quintas.
Tem até a função wvw_messagebox() da lib GTWVW, mas nào tem parâmetros para definir a localização, sempre mostra ao centro.
A idéia que vc deu já tinha feito. Uma janelinha com um PROMPT, mas queria algo como as janelinhas do Windows.
Não sei também se a hbwin.lib tem.

Nos exemplos do Clipper tem uma interessante, senão é fazer com LIB gráfica.

source\tbrow\sprdsht

Es posible cambiar la posición de las cajas de diálogo de Windows, pero requiere algún trabajo extra porque hay que crear un hook de msg de los diálogos e interceptar los msg, tal cual como lo hice para HMG oficial, ver info de la doc:

SET DIALOGBOX POSITION
Sets the Position of the Dialog Boxes in the Screen
(FindTextDialog, GetColor, GetFile, GetFolder, GetFont, MessageBoxTimeout, MsgXXX, PutFile, ReplaceTextDialog, SELECT PRINTER, etc.)
 
 
 
 
Syntax:
 
        SET DIALOGBOX [ POSITION ] ROW <nRow>|<CodeBlockRow>|<NIL> COL <nCol>|<CodeBlockCol>|<NIL>
 
        SET DIALOGBOX [ POSITION ] CENTER OF PARENT
 
        SET DIALOGBOX [ POSITION ] CENTER OF <hWnd>
 
        SET DIALOGBOX [ POSITION ] CENTER OF DESKTOP
 
        SET DIALOGBOX [ POSITION ] DISABLE
 
 
 
Example:
 
 
   #include "hmg.ch"
 
   FUNCTION Main()
 
      DEFINE WINDOW Form_1 ;
         AT 0,0 ;
         WIDTH  300 ;
         HEIGHT 200 ;
         MAIN;
         TITLE "Move This Window"
 
         @ 50,100 BUTTON Button_1 CAPTION "Click Here" ACTION MsgInfo ("Hello")
 
         // These CodeBlock puts the dialog box always in the same Row and Col of Form_1
         cbRow1 := {|| Form_1.Row }
         cbCol1 := {|| Form_1.Col }
 
         // These CodeBlock puts the dialog box always in the same Row and Col of Button_1
         cbRow2 := {|| ClientToScreenRow ( Form_1.HANDLE , Form_1.Button_1.Row ) }
         cbCol2 := {|| ClientToScreenCol ( Form_1.HANDLE , Form_1.Button_1.Col ) }
 
         SET DIALOGBOX ROW cbRow2 COL cbCol2
 
      END WINDOW
 
      CENTER WINDOW Form_1
 
      ACTIVATE WINDOW Form_1
 
   RETURN NIL
 
 

Olá Claudio,

Pode-se usar suas sugestões com o xHarbour + GTWVW?