| |
| |
|
Stefan81 | Hallo,Ich habe mir gerade erst Xprofan 4 gekauft,Ich bin Anfänger.
Ich möchte gerne ein Fenster erstellen,Ich habe es mit Dem Dialog Editor zusammengebaut, Wenn ich Den Dialog starte erscheint mein Dialog und ein Weißes Interpreter Fenster, Ich möchte aber nur den Dialog Anzeigen ohne zweites Weißes Fenster. Was mach ich den falsch,
Hier ist der code.
proc dialog
declare hFont&
declare _ende%
declare _dlg%
declare gridrechn&
declare cmdende&
hFont& = create("Font", "ARIAL",14,0,0,0,0)
setdialogfont hFont&
_dlg% = create("dialog", %hWnd, "Dialog", 180, 100, 370, 277 + %cyCaption)
gridrechn& = create("gridbox", _dlg%, "Rechnung", 1, 16, 32, 320, 224)
create("icon", _dlg%, "MUENZE", 24, 0)
cmdende& = create("picbutton", _dlg%, 0, 232, 8, 104, 24)
_ende% = 0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(gridrechn&)
' Aktion noch nicht definiert!
elseif clicked(cmdende&)
' Aktion noch nicht definiert!
endif
endWhile
destroywindow(_dlg%)
setdialogfont 0
deleteobject hfont&
endproc
windowtitle "Dialog-Test"
cls
dialog
waitinput
end
|
|
| |
| |
| |
|
|
Georg
Teles | Guten Abend,
nunja, das CLS erzeugt ja dein Hauptfenster = %hWnd was du meinst
entferne WindowTitle und CLS zunächst...
Nun müsstest Du dein Dialog nicht auf %hWnd was Du nun nicht hast sondern auf % Desktop erzeugen, dann dürfte alles passen
Grüße |
|
| |
| |
| |
|
|
Stefan81 | Besten Dank für die schnelle Hilfe
Es Hat funktioniert.
Super |
|
| |
| |
| |
|
|
H.Brill | Vielleicht noch ein Hinweis :
gridrechn& = create("gridbox", _dlg%, "Rechnung", 1, 16, 32, 320, 224)
Als zweiten Parameter gibst du den String "Rechnung" mit.
Dieser Parameter sollte aber die Spaltendefinitionen beinhalten.
Also
"Spaltenname;Ausrichtung;Breite"
Wenn du mehrere Spalten hast, dann auch jeweils
Spaltenname;Ausrichtung;Breite .
Alles zusammen in einem String. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 05.01.2020 ▲ |
|
| |
|
|
Stefan81 | |
| |
| |
| |
|
(851)
Deutsch
English
Français
Español
Italia