| |
|
|
- Página 1 - |
|
| Das Trackmenu - si yo mich bastante erinnere - war el Procedimiento siempre sólo brauchbar solange uno en el hwnd arbeitet, simplemente wegen el Positionsangabe.
Mein Vorschlag, si Trackmenu no Parámetro bekommt, entonces el Trackmenu a Mausposition redactar.
Mittlerweile Tuve me esta una Proc geschrieben, aber mich sí trotzdem Jahrelang gequält (P²4.5=>P7) y así se otro no ebenso quälen... KompilierenMarcaSeparación
Proc Trackmenu_bymousepos
Declare Gmp#,Dx&,Dy&
Dim Gmp#,8
External("user32","ClientToScreen",%Hwnd,Gmp#)
Dx&=Long(Gmp#,0)
Dy&=Long(Gmp#,4)
External("user32","GetCursorPos",Gmp#)
Trackmenu (Long(Gmp#,0)-Dx&),(Long(Gmp#,4)-Dy&)
Dispose Gmp#
oc
|
|
|
| |
|
|
| |
|
- Página 3 - |
|
|
| Apéndice a Erklärung 2:
Natürlich podría Roland - una ID a sparen en lugar de WaitCallBackStack simplemente sólo ProcAddr () {sin cada Parámetro} benutzen. |
|
|
| |
|
|
|
RGH | ... y qué spricht gegen el Einsatz el para derartige Zwecke eingeführten XProfan-Función WinExecWait?
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 18.09.2007 ▲ |
|
|
|
|
Frank Abbing | ¿Por qué plötzlich XProfan 2008? ¿Por qué no XProfan 11? Irgendwie wirkt deine Namengebung inkonsequent y wenig durchdacht... |
|
|
| |
|
|
|
RGH | Frank Abbing
¿Por qué plötzlich XProfan 2008? ¿Por qué no XProfan 11? Irgendwie wirkt deine Namengebung inkonsequent y wenig durchdacht...
Der Name es todavía no definitiv fest, pero yo sympatisiere zugegebenermaßen con el Angabe el Jahreszahl. Aber laß uns sólo en Inhalte reden, bevor wir encima el Namen streiten!
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 19.09.2007 ▲ |
|
|
|
|
Jörg Sellmeyer | Como el Programa heißt es no así wichtig - wichtig es una weiterhin durchgehende Nummerierung el Versionen para $ProfVer |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 19.09.2007 ▲ |
|
|
|
|
RGH | Jörg Sellmeyer
Como el Programa heißt es no así wichtig - wichtig es una weiterhin durchgehende Nummerierung el Versionen para $ProfVer
El interne Versionsbezeichnung se natürlich weitergezählt voluntad. Auch Delphi 2006 se intern como Turbo Pascal 16.0 (más o menos ähnlich) gezählt. (Yo habe el genaue Versionsnummer no en el Kopf, pero yo glaube Delphi 7 war ya en 15.)
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 19.09.2007 ▲ |
|
|
|
|
| WinExec se el ProzessID (a.Ä.) zurückgeben, con dieser se una continuación con el neuen Función getUsage(pid) Características ermitteln puede? |
|
|
| |
|
|
|
RGH | IF
WinExec se el ProzessID (a.Ä.) zurückgeben, con dieser se una continuación con el neuen Función getUsage(pid) Características ermitteln puede?
Es ya muy en el Richtung, en el Yo auch al Denken bin. getUsage se aber más getState heißen.
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 19.09.2007 ▲ |
|
|
|
|
Frank Abbing |
Der Name es todavía no definitiv fest, pero yo sympatisiere zugegebenermaßen con el Angabe el Jahreszahl.
Januar 2009 wirkt así una 2008él Versión ya veraltert. An deiner Punto tät Yo el Nummerierung beibehalten. Yo selber hätte de XProfan otra vez el 1 verwendet, porque se en efecto el todo Name geändert ha. Also Profano² 7.6, XProfan, XProfan 2, usw... |
|
|
| |
|
|
|
Michael Wodrich | RGH
getUsage se aber más getState heißen.
Diese Función haben wir aber ya:
@GetState - v10.0 - Status uno Elementes uno ListBox (auch: ChoiceBox, Grid, GridBox, List)°
Schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 19.09.2007 ▲ |
|
|
|
|
RGH | RGH
[getUsage se aber más getState heißen.
Arrghhh ... getState hay ya. Yo muß más denken ... ;) Tal vez doch: GetExitCode() en Anlehnung a el verwandte API.
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 19.09.2007 ▲ |
|
|
|
|
Michael Wodrich | Wunsch: C O N T I N U E auch para Repeat-Until Schleifen.
Aus una Pascal Handbuch:
Mientras que-Bucle: El Befehle Romper y Continue puede innerhalb de zusammengesetzten Anweisungen uno Mientras que-Bucle verwendet voluntad, en de el Bucle herauszuspringen oder hacer frente a el nächsten Durchlauf a beginnen.
Repeat-Until: El Befehle Romper y Continue puede verwendet voluntad, en de el repeat-Bucle herauszuspringen oder hacer frente a el nächsten Durchlauf a beginnen.
...qué en el Falle uno fußgesteuerten Bucle natürlich bedeutet, el Continue a el Schleifenende a Bedingungsprüfung springt.
Yo weiß sí, el wir dieses Thema ya veces hatten. Aber el Wunsch besteht weiterhin: una funktionierendes Continue auch en fußgesteuerten Schleifen.
Schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 21.10.2007 ▲ |
|
|
|