Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249571 (11007)

| Suchen
| Zurück zur Übersicht

Autor | Thema: TrackMenu auf Dialog
Rene Wagner
| Datum:06.07.01 11:08 (apollo@rw-net.de) |
Hallo Ich erstelle mit @create("dialog",...) einen Dialog. Wie krieg ich jetzt ein TrackMenu auf die Dialogbox? Das wird ja normalerweise nur im Hauptfenster geöffnet. Problem nebenbei: waitinput wird bei Dialogen offensichtlich nicht durch einen Maus-rechts-klick ausgelöst!? gruss, Rene http://www.rw-net.de
Rene Wagner
| Datum:07.07.01 12:31 (apollo@rw-net.de) |
Soll das heissen, dass sowas nicht geht? :-( gruss, Rene http://www.rw-net.de
Eric Eggert
| Datum:08.07.01 18:29 (webmaster@innotic.de) |
Versuch mal %MouseKey abzufrage, ist es 2 wurde rechtsgeklickt, vielleicht hilft dir das weiter!?! MfG, Eric
Rene Wagner
| Datum:09.07.01 09:38 (apollo@rw-net.de) |
Das weiss ich, aber das hilft nichts, weil waitinput anders als auf dem Hauptfenster nicht auf den Mausklick im Dialog reagiert. Ausserdem wird das Trackmenü auf des Hauptfenster, nicht auf den Dialog. Danke trotzdem. gruss, René http://www.rw-net.de
René Bühling
| Datum:09.07.01 10:40 (Rene.Buehling@gmx.de) |
Hallo René ;-) , ein Beispiel für die Abfrage von Mausklicks in Dialogfeldern findest Du bei den Profan²-Sources auf meiner Homepage. MfG René
Rene Wagner
| Datum:09.07.01 14:38 (apollo@rw-net.de) |
Danke, dass hilft mir erstmal ein Stück weiter, nur das TrackMenü krieg ich noch nicht auf den Dialog. gruss, René http://www.rw-net.de
Uwe ''Pascal'' Niemeier
| Datum:09.07.01 21:14 (Pascalxd@owl-online.de) |
Hallo René! Vielleicht hilft dir dies weiter:
    '*******************************************************************
    window 50,50-500,500
    def GetCursorPos(1) !"USER32","GetCursorPos"
    def ScreenToClient(2) !"USER32","ScreenToClient"
    declare dlg&,Pos#
    dim Pos#,8

    dlg&=create("dialog",%hwnd,"Test",200,200,200,200)

    usermessages 516
    while 1
       waitinput
       if (%umessage=516) and (%mwnd=dlg&)'---Rechtsklick in Dialog
          GetCursorPos(Pos#)
          ScreenToClient(%hwnd,Pos#)
          createmenu
          appendmenu 10,"&blau"
          appendmenu 11,"&rot"
          appendmenu 12,"&grün"
          separator
          appendmenu 13,"&Ende"
          trackmenu long(Pos#,0),long(Pos#,4)
          case menuitem(13):break
          print "Ausgewählt:",%menuitem
       endif
    endwhile
    dispose Pos#
    '*******************************************************************
HTH Pascal
René Bühling
| Datum:10.07.01 09:18 (Rene.Buehling@gmx.de) |
Spitze! Ich denke das dürfte es sein, was René gesucht hat. MfG René
René Wagner
| Datum: 10.07.01 10:07 (apollo@rw-net.de) |
Ich hab´s zwar noch nicht ausprobiert, aber das sieht sehr gut aus. Danke für eure Hilfe. :) gruss, Rene http://www.rw-net.de

| Zurück zur Übersicht