Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249588 (11024)
  Suchen
 Zurück zur Übersicht
 AutorThema: Doppelclick
Andreas Gebel
Datum:03.07.01 14:50 Antwortenals Email verschicken (Gaby007@freenet.de) 


Gibt es eine möglichkeit, eine Funktion oder so zu schreiben, mit der man beim "Doppelclick" das ergebnis 1 erfüllt 0 nicht erfüllt bekommt.
zbs.: if @DBClk()=1 oder so ähnlich
Danke schon mal im vorraus für eine Antwort.



Rolf Koch
Datum:03.07.01 15:28 Antwortenals Email verschicken (webmaster@rokosoft.de) 


Hi ich hab mal auf die schnelle eine Notlösung gefunden - auf den ersten Blick funktioniert es.
Leider kenne ich Deine Profanversion nicht. Ab 7.0 geht das hier:
declare buffer1$,buffer2$,buffer$,dbcl%
Cls 
while 1
getmessage
let buffer1$=str$(%lastmessage)
getmessage
let buffer2$=str$(%lastmessage)
let buffer$=buffer1$+buffer2$
if @equ$(buffer$,"513514")
   let dbcl%=1
Else
   let dbcl%=0
Endif
locate 10,10
print dbcl%
Wend




Andreas Gebel
Datum:03.07.01 15:35 Antwortenals Email verschicken (Gaby007@freenet.de) 


Wowwww das ging ja flink :-)
Danke für die schnelle Antwort... Ich habe V 6.5.
Ich werde mir den Quelltext gleich mal schnappen und sehen wie du es geregelt hast.....


Rolf Koch
Datum:03.07.01 15:39 Antwortenals Email verschicken (webmaster@rokosoft.de) 


Hoffen wir, daß Du etwas damit anfangen kannst -
ganz sicher bin ich mir nicht, jedoch ist es vieleicht eine Grundidee.
Man könnte natürlich auch mit anderen Variablen, zusammengefasster u.ä. arbeiten. Aber wie ich dieses Forum hier kenne, werden wieder weiterbilungen (und das ist hier das schöne) folgen :)
Rolf


Andreas Gebel
Datum:03.07.01 15:49 Antwortenals Email verschicken (Gaby007@freenet.de) 


.... Funktioniert super... hat nur nen kleinen Haken....... Das Programm bleibt an der Stelle stehen und wartet auf eine Aktion......
Soll aber so sein, daß das eigentliche Hauptprogramm weiterläuft.....Ich habe schon überlegt es irgendwie mit &GetTickCount zu machen beim 1ten reinsprung merken, beim 2ten diverenzvergleichen und wenn kleiner als 0,5 sek dann wahr. Aber wie konteroliere ich beim reinsprung in die prozedur das die Maustaste gedrückt, dann losgelassen und dann wieder gedrückt für den 2ten reinsprung mit vergleich ?????


Rolf Koch
Datum:03.07.01 15:56 Antwortenals Email verschicken (webmaster@rokosoft.de) 


Ja ich wieder :)
Also mach es doch mit einem Merker
zb: Merker%
und diesen übergibst Du an die Prozedur um dort zu erfahren, ob etwas wahr oder falsch ist.
Rolf


Andreas Gebel
Datum: 03.07.01 16:08 Antwortenals Email verschicken (Gaby007@freenet.de) 


Oki werde ich mal Probieren ob ich da so Profan (Spontan) was hinkriege... :-)

Danke nochmal für die Bemühungen.

Übrigens wie findest du meine Idee mit den zusammengefaltetten Proceduren (bei "Anregungen und Vorschlägen"), oder gibts das vieleicht schon in der 7mer ????


 Zurück zur Übersicht