Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: mal wieder Fenster :o)
Richard Triebel
| 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
Thorsten
| 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 ...

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |