| |
| |
|
Nico | Hi,
Yo benutze Profano seit una halben Jahr y había mich gefragt si posible es encima una Ventana en el Hintergrund una Diálogo a redactar, el como 2. Ventana encima el 1. liegt.
Der Diálogo se por ejemplo así aussehen:
KompilierenMarcaSeparaciónDECLARE 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, si ihr me como una einfache Möglichkeit erklären könnt. 
- Nico |
|
| |
| |
| |
|
|
 | Algo como?
KompilierenMarcaSeparaciónuserMessages 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 el, danke |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Nico | Noch una weitere Cuestión, como kann Yo el Programa más laufen dejar, después de se el Diálogo-Ventana geschlossen ha, y cómo kann Yo en el Hintergundfenster una Bild invitar?
Presentación:
KompilierenMarcaSeparacióncls
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 | ¡Hola Nico,
schaue dir simplemente veces mein XProfan-Lehrbuch a. Dort son solche Sachen (y todavía viel mehr) en el Band 1 en el ersten Kapiteln ausführlich beschrieben.
Saludo
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 Problema es, dass Yo ya algunos Basics beherrsche, y mich no por todos Neueinsteiger-Zeug lesen möchte. Yo weiß, el klingt faul, aber hier a fragen erschließt se me entonces trotzdem como bessere Möglichkeit
Como ya he dicho, mi Cuestión besteht todavía |
|
| |
| |
| |
|
|
| Like that?
KompilierenMarcaSeparaciónuserMessages 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
|
|
| |
| |
| |
|
(1.111)
Deutsch
English
Français
Español
Italia