Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249571 (11007)
  Suchen
 Zurück zur Übersicht
 AutorThema: TrackMenu auf Dialog
Rene Wagner
Datum:06.07.01 11:08 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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