XProfan

10/03/06 ▲

Nico
Madysa

as far as i know, Yes, there it Yes with Window Style take on can.
only The System-Variables How %WinLeft, %WinTop, %cyCaption functions with ofenster& naturally not.

Nico Madysa

10/04/06 ▲

GDL

Hello Nico,

I probierte already almost any Windowstyles, but with nothing weg %mousekey, %mousex ,%mousey and the inc mouseouver of here.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/04/06 ▲

Nico
Madysa

Hä???
the find I now überraschend, that The Systemvaiablen only of Mainwindow staid go.
now is here but someone a Statement due!

Nico Madysa

10/05/06 ▲

[quote:0e8477876a=GDL]Hello Nico,

I probierte already almost any Windowstyles, but with nothing weg %mousekey, %mousex ,%mousey and the inc mouseouver of here.

Hello
Georg[/quote:0e8477876a]
Hello Georg...

For this Gibts The APIs GetCursorPos and ScreenToClient.

Greeting

Andreas

10/05/06 ▲

GDL

Hello Andreas,

I get it on one Child-Window not there. On %hwnd works but correct.
Compile Mark Separation

Def PtInRect(3) !"USER32","PtInRect"

Proc CheckMouse

    Parameters hw&,x%,y%,lang&[onummer&],breit&[onummer&]
    Dim rect#,16
    Dim rectpt#,8
    Long rect#,0=x%
    Long rect#,4=y%
    Long rect#,8=lang&[onummer&]
    Long rect#,12=breit&[onummer&]
    GetCursorPos(rectpt#)
    ScreenToClient(hw&,rectpt#)

    If Neq(PtInRect(rect#,Long(rectpt#,0),Long(rectpt#,4)),0)

        result%=1

    EndIf

    Dispose rect#
    Dispose rectpt#

ENDPROC

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/05/06 ▲

Hello Georg...

...is not yet integrally perfect...
Compile Mark Separation

Def @GetCursorPos(1) !"USER32","GetCursorPos"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
Def @Ptinrect(3) !"USER32","PtInRect"
Def @WaitMessage(0) !"USER32","WaitMessage"
Declare Rect#,Rectpt#,Dialog&,Message#
Windowstyle 31
LET Dialog&=@CreateWindow(%Desktop,"Mausklick auf Dialog",30,30,300,300)
Usecursor 0

While %Menuitem<>-2

    @WaitMessage()
    Startpaint Dialog&
    Rectangle 30,30-60,60
    Endpaint

    IF @Checkmouse(Dialog&,30,30,60,60)=1

        IF %Message=514

            @messagebox("Mit linker Maustaste ins schwarze getroffen!","Treffer!",64)

        endif

    endif

    Usecursor 0

wend

Proc Checkmouse

    Parameters Hw&,X%,Y%,Lang&,Breit&
    Declare Result&
    Dim Rect#,16
    Dim Rectpt#,8
    Long Rect#,0=X%
    Long Rect#,4=Y%
    Long Rect#,8=Lang&
    Long Rect#,12=Breit&
    @Getcursorpos(Rectpt#)
    @Screentoclient(Hw&,Rectpt#)
    LET Result&=@Ptinrect(Rect#,@long(Rectpt#,0),@long(Rectpt#,4))
    Dispose Rect#
    Dispose Rectpt#
    Return Result&

Endproc

10/06/06 ▲

GDL

@Andreas

anke.

but comment me Please Why one on one Dialogue with waitinput not weiterkommt.or ought to one waitinput only in Ausnahmefällen benefit?

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/06/06 ▲

[quote:10c8e47fce=GDL]but comment me Please Why one on one Dialogue with waitinput not weiterkommt.[/quote:10c8e47fce]
...on the lying, what Waitinput next to the Call the API MsgWaitForMultipleObjects yet so everything does - can you well only Roland answer.

Greeting

Andreas

10/07/06 ▲

GDL

@ Andreas,

works wonderful for Einklickabfrage.for ständige request nehm I How already former
Schonmal had.

@Getasynckeystate(2)<>0.

there @Getasynckeystate(2)<>0 with waitinput not goes what about me too Buttons inquire would like used I

settimer 1
waitinput
killtimer

understand of course not Why it then goes, but hauptsache It's all right.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/08/06 ▲