| |
|
|
- page 1 - |
|
Manfred Barei | Salut,
hab la fois une Frage, ist es possible cela chez Créer("DateEdit", ne...aucune Startwert alors date chez aufruf des Edits eingetragen ist. je bräuchte cela Éditer vide et seulement chez gewähltem date un Eintrag.
si possible s'il te plaît un kurzes Code Beispiel.
Salut |
|
|
| XProfan X2Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 23.11.2015 ▲ |
|
|
|
|
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
H.Brill | cela SpinEdit scheint sich wohl chez chaque Klick récente trop befüllen, quoique on z.B. pour M = 0 T = 0 et J = 0 eingibt.
cela beste pour dein projet serait wohl une le calendrier avec
calender& = Contrôle("SysMonthCal32",», $54000004,150,100,202,155,%hwnd,2000,%HINSTANCE)
trop erstellen et selber un Modifier le champ de ou bien SpinEdit par-dessus pappen. Code zum Lecture des Kalendercontrols findest du oui im Forum pour.
Ist arrêt ensuite quelque chose plus travail. Roland hatte autrefois aussi quoi en supplément gemacht : KompilierenMarqueSéparation'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Déclarer OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME
Proc Get_MonthCalHit
Déclarer DATA#, HIT%
Faible DATA#,MCHITTESTINFO
DATA#.cbSize& = SizeOf(DATA#)
DATA#.pt!x& = %MouseX - 500
DATA#.pt!y& = %MouseY - 150
Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
Dispose DATA#
RETOUR QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Contrôle("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot Ende%
Waitinput
Si %Key = 2
Ende% = 1
D'autre
Get_MonthCalHit
EndIf
Endwhile
|
|
|
| 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. | 23.11.2015 ▲ |
|
|
|
|
|
ByteAttack | Einem DateTimePicker peux seulement un gültiges date zuweisen, là es avec DBNull pas tourner autour de peux. |
|
|
| |
|
|
|
H.Brill | je prends la fois à, qui Manfred pas den DateTimePicker, mais cela SpinEdit récente mettons veux.
là pourrait seulement Roland quelque chose faire. cela DateEdit scheint oui un zusammengesetztes Contrôle trop son : qui eigentliche Picker : SysMonthCal32 et un SpinEdit par-dessus.
si on cela le calendrier-Contrôle sur qui @Contrôle-Funktion erzeugt, sieht on, qui là seulement qui eigentliche le calendrier erstellt wird : KompilierenMarqueSéparation Folglich bräuchte on cela Handle des SpinEdits, um là quoi trop changement. |
|
|
| 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. | 23.11.2015 ▲ |
|
|
|
|
Manfred Barei | Salut,
und dir um folgendes, j'ai un formulaire dans dem gibt es un DateEdit avec Bestelldatum. eh bien peux es mais folgende konstellationen donner, es wird cela Aktuelle date bzw. un date früher comme Aktuell bzw. un date später Aktuell ou bien mais aussi ne...aucune date, ensuite doit cela Éditer vide rester avec cela beim Druck pas un date erscheint quoi garnicht gewolt ist.
tout autor mon Frage si on cela DatEdit pas aussi vide erzeugen peux.
Salut |
|
|
| XProfan X2Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 23.11.2015 ▲ |
|
|
|
|
H.Brill | cela SpinEdit scheint sich wohl chez chaque Klick récente trop befüllen, quoique on z.B. pour M = 0 T = 0 et J = 0 eingibt.
cela beste pour dein projet serait wohl une le calendrier avec
calender& = Contrôle("SysMonthCal32",», $54000004,150,100,202,155,%hwnd,2000,%HINSTANCE)
trop erstellen et selber un Modifier le champ de ou bien SpinEdit par-dessus pappen. Code zum Lecture des Kalendercontrols findest du oui im Forum pour.
Ist arrêt ensuite quelque chose plus travail. Roland hatte autrefois aussi quoi en supplément gemacht : KompilierenMarqueSéparation'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Déclarer OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME
Proc Get_MonthCalHit
Déclarer DATA#, HIT%
Faible DATA#,MCHITTESTINFO
DATA#.cbSize& = SizeOf(DATA#)
DATA#.pt!x& = %MouseX - 500
DATA#.pt!y& = %MouseY - 150
Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
Dispose DATA#
RETOUR QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Contrôle("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot Ende%
Waitinput
Si %Key = 2
Ende% = 1
D'autre
Get_MonthCalHit
EndIf
Endwhile
|
|
|
| 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. | 23.11.2015 ▲ |
|
|
|