Autor | Thema: mal wieder Fenster :o) | | Datum:16.10.02 20:29 
(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
|
| | Datum:16.10.02 21:14 
(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 ...
|
| | Datum: 16.10.02 21:29 
(info@multimediareview.de) | |
hab ich schon mal in einigen faq's gesehen...
funkt aber nicht ( profan5.0 ).
bekommen nur die meldung..."befehl unbekannt: handle...."
Rich
|
|
|