Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: mal wieder Fenster :o)
Richard Triebel
Datum:16.10.02 20:29 Antwortenals Email verschicken (info@multimediareview.de) 


habe kleines problem mit fenstern. NEIN..putzen hilft nicht :o)

declare i%,hand%,hand2%
WindowStyle 26
Window 100,100-800,600
let hand%=@GetActiveWindow()
print hand% ' handle erstes fenster '

proc splash
windowstyle 80
@Createwindow(hand%,"",400,200,400,200)
let hand2%=%GetFocus
print hand2% 'handle zweites fenster '

@SetFocus(hand2%) 'erster versuch :o('
@SetActiveWindow(hand2%) 'zweiter versuch :o('

UsePen 0,2,@RGB(0,0,0) ' nur damit er was '
Rectangle 100,0-400,200 ' im aktiven fester macht '

let i%=0 ' warten und dann killen '
WHILENOT @Equ(I%,60000)
INC I%
ENDWHILE
@DestroyWindow(hand2%)
endproc

splash
waitinput
end

habe wohl beide handle's. kann jedoch das aktive fenster nicht setzten....?????

bin für jede hilfe dankbar

Rich




Thorsten
Datum: 16.10.02 21:14 Antwortenals Email verschicken (galaxy@mrk-soft.de) 


Hi,

Warum so kompliziert ..... es geht viel einfacher

WindowStyle 26
Window 100,100-800,600

in der Profan Systemvariable %hwnd ist das Handle
des Profan Hauptfensters ...

handle% = @CreateWindow(hand%,"",400,200,400,200)

Profan übergibt das Handle des erstellten Fensters aus der
Funktion schon zurück, hier in handle%

Mit SetFocus(handle%) machste es zum aktibem Fenster ...




 Zurück zur Übersicht
 

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