| |
| |
|
Nico | Hi,
ich benutze Profan seit einen halben Jahr und hatte mich gefragt ob es möglich ist über ein Fenster im Hintergrund ein Dialog zu erstellen, der als 2. Fenster über dem 1. liegt.
Der Dialog soll beispielsweise so aussehen:
KompilierenMarkierenSeparierenDECLARE EDIT1&
DECLARE ok&
DECLARE ende%
DECLARE spieler$
WINDOW 22,20-645,163
EDIT1& = CREATE("EDIT",%HWND,"",0022,0024,0120,0020)
ok& = CREATE("BUTTON",%HWND,"OK",0168,0026,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
Wäre schön, wenn ihr mir da eine einfache Möglichkeit erklären könnt. 
- Nico |
|
| |
| |
| |
|
|
 | Sowas?
KompilierenMarkierenSeparierenuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=Create("Button",dlg&,"Button",10,10,90,20)
while 1
waitinput
select %uMessage
caseof 16 : break
endSelect
wend
end
|
|
| |
| |
| |
|
|
Nico | | genau das, danke |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Nico | Noch eine weitere Frage, wie kann ich das Programm weiter laufen lassen, nachdem sich das Dialog-Fenster geschlossen hat, und wie kann ich im Hintergundfenster ein Bild laden?
Vorlage:
KompilierenMarkierenSeparierencls
DECLARE ende%
DECLARE spieler$
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var EDIT1& = CREATE("EDIT",dlg&,"",0022,0024,0120,0020)
var ok& = Create("BUTTON",dlg&,"OK",08,0096,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
waitkey
end
|
|
| |
| |
| |
|
|
Dietmar
Horn | Hallo Nico,
schaue dir einfach mal mein XProfan-Lehrbuch an. Dort sind solche Sachen (und noch viel mehr) im Band 1 in den ersten Kapiteln ausführlich beschrieben.
Gruß
Dietmar |
|
| |
| XProfan X2Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 18.06.2012 ▲ |
|
| |
|
|
Nico | Das Problem ist, dass ich schon einige Basics beherrsche, und mich nicht durch das ganze Neueinsteiger-Zeug lesen möchte. Ich weiß, das klingt faul, aber hier zu fragen erschließt sich mir dann trotzdem als bessere Möglichkeit
Wie gesagt, meine Frage besteht noch |
|
| |
| |
| |
|
|
| Like that?
KompilierenMarkierenSeparierenuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=create("Button",dlg&,"Button",10,10,90,20)
var dlgIstOffen&=1
var bild&=create("hNewPic",320,200,$FF0000)
startpaint bild&
whileLoop 1000
setpixel rnd(320),rnd(200),rnd($FFFFFF)
wend
endpaint
drawPic bild&,0,0;0
deleteObject bild&
while 1
waitinput
select %uMessage
caseof 16
select &UWnd
caseof dlg&
if dlgIstOffen&
dlgIstOffen&=0
destroyWindow(dlg&)
endif
caseof %hWnd : break
endSelect
endSelect
wend
end
|
|
| |
| |
| |
|
(459)
Deutsch
English
Français
Español
Italia