| |
| |
|
| - Seite 1 - |
|
Manfred
Barei | Hallo,
hab mal eine Frage, ist es möglich das bei Create("DateEdit", kein Startwert also Datum bei aufruf des Edits eingetragen ist.
Ich bräuchte das Edit leer und nur bei gewähltem Datum ein Eintrag.
Wenn möglich bitte ein kurzes Code Beispiel.
Gruß |
|
| |
| 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 ▲ |
|
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
H.Brill | Das SpinEdit scheint sich wohl bei jedem Klick
neu zu befüllen, obwohl man z.B. für M = 0 T = 0
und J = 0 eingibt.
Das beste für dein Vorhaben würde wohl einen
Kalender mit
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hinstance)
zu erstellen und selber ein Editfeld oder SpinEdit darüber
pappen. Code zum Auslesen des Kalendercontrols findest
du ja im Forum dafür.
Ist halt dann etwas mehr Arbeit. Roland hatte damals
auch was dazu gemacht :
KompilierenMarkierenSeparieren'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Declare 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
Declare DATA#, HIT%
Dim 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#
RETURN QT%
EndProc
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot Ende%
Waitinput
If %Key = 2
Ende% = 1
Else
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 kannst nur ein gültiges Datum zuweisen, da es mit DBNull nicht umgehen kann. |
|
| |
| |
| |
|
|
H.Brill | Ich nehme mal an, daß Manfred nicht den DateTimePicker,
sondern das SpinEdit neu setzen will.
Da könnte nur Roland etwas machen.
Das DateEdit scheint ja ein zusammengesetztes
Control zu sein :
Der eigentliche Picker : SysMonthCal32
und ein SpinEdit darüber.
Wenn man das Kalender-Control über die @Control-Funktion
erzeugt, sieht man, daß da nur der eigentliche Kalender
erstellt wird :
KompilierenMarkierenSeparieren
Folglich bräuchte man das Handle des SpinEdits,
um da was zu ändern. |
|
| |
| 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 | Hallo,
es geht um folgendes, ich habe ein Formular in dem gibt es ein DateEdit mit Bestelldatum.
Nun kann es aber folgende konstellationen geben, es wird das Aktuelle Datum bzw. ein Datum früher als Aktuell bzw. ein Datum später Aktuell oder aber auch kein Datum, dann muß das Edit leer bleiben damit beim Druck nicht ein Datum erscheint was garnicht gewolt ist.
Darum meine Frage ob man das DatEdit nicht auch leer erzeugen kann.
Gruß |
|
| |
| 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 | Das SpinEdit scheint sich wohl bei jedem Klick
neu zu befüllen, obwohl man z.B. für M = 0 T = 0
und J = 0 eingibt.
Das beste für dein Vorhaben würde wohl einen
Kalender mit
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hinstance)
zu erstellen und selber ein Editfeld oder SpinEdit darüber
pappen. Code zum Auslesen des Kalendercontrols findest
du ja im Forum dafür.
Ist halt dann etwas mehr Arbeit. Roland hatte damals
auch was dazu gemacht :
KompilierenMarkierenSeparieren'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Declare 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
Declare DATA#, HIT%
Dim 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#
RETURN QT%
EndProc
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot Ende%
Waitinput
If %Key = 2
Ende% = 1
Else
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 ▲ |
|
| |
|
(941)
Deutsch
English
Français
Español
Italia