Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: wiederholtes anklicken des buttons
Kuni
Datum: 25.08.02 22:08 Antwortenals Email verschicken (sabine.kunert@t-online.de) 


hallo,

beim ersten klick soll sich messagebox öffnen, macht es auch, zuvor verschiebe ich das fenster mit setwindowpos, meldung kommt, ok-klick, setwindowspos zurücksetzen, alles neu laden und dann gehen die buttons nicht mehr, warum?

hilfe, hilfe

Gruß Kuni

FENSTER

let e%=0
Whilenot e%
Waitinput
if MenuItem(101)
BEENDEN
elseif Menuitem(102)
SetWindowPos %HWnd = add(0,%maxX),0 - %MaxX,%MaxY;-1
INFO
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
UEBERSCHRIFT
elseif Menuitem(103)
SetWindowPos %HWnd = add(0,%maxX),0 - %MaxX,%MaxY;-1
INFO
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
UEBERSCHRIFT
elseif Menuitem(105)
SetWindowPos %HWnd = add(0,%maxX),0 - %MaxX,%MaxY;-1
INFO
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
UEBERSCHRIFT
elseif Menuitem(106)
SetWindowPos %HWnd = add(0,%maxX),0 - %MaxX,%MaxY;-1
INFO
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
UEBERSCHRIFT
elseif or(or(or(@getfocus(butg$),@getfocus(buti$)),@getfocus(butb$)),@getfocus(butv$))
SetWindowPos %HWnd = add(0,%maxX),0 - %MaxX,%MaxY;-1
INFO
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
UEBERSCHRIFT
endif
Wend
end



Dietmar Horn
Datum:25.08.02 19:26 Antwortenals Email verschicken (MMJ-Hoyerswerda@gmx.de) 


Hallo Kuni,

die Zeile:

"elseif or(or(or(@getfocus(butg$),@getfocus(buti$)),@getfocus(butb$)),@getfocus(butv$))"
haut auf alle Fälle nicht hin.

@GetFocus(butg$) kann nicht funkeln, @GetFocus(butg&) funkelt jedoch.

Das heißt, Du kannst das Handle eines Buttons nur einer Integer- oder Longint-Variablen zuweisen und nicht einer String-Variablen, so wie Du es offensichtlich gemacht hast.

MfG
Dietmar




 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
Shortwin - denn Glück ist kein Zufall!