TTimeEdit - TEdit für Zeiteingabe

[chest3rs]

Hallo Leute,

seit einiger Zeit war ich auf der Suche nach einer Komponente, die die Eingabe der Uhrzeit
ermöglicht. Da die Kompo MaskEdit zu fehleranfällig ist, konnte ich damit nichts anfangen und
Microsoft's Lösung (bei XP: Eigenschaften von Datum und Uhrzeit) mit drei Edits und mehreren
Statics mit Doppelpunkten gefiel mir überhaupt nicht.

Jedenfalls bin ich kürzlich über diese Komponente gestolpert. Hab sie etwas angepasst und auf
die Eingabe von Stunden und Minuten beschränkt.

Date : 7.1.2008
Changes : adapted for time input
Author : Mariusz Wojtkowski

Range : 00:00 to 23:59


Original : Andrey Tebenkov


Viel Spaß, Chester

[mashutu]

Das sieht doch recht gut aus.


Ohne Dir zu nahe treten zu wollen mal drei kleine (!) Kritikpunkte:
+ Sieht mir nach viel ueberfluessigem Code aus. Da laesst sich bestimmt noch was ausmisten.
+ STRG-V (Einfuegen) sollte in einem Edit-Feld schon funktionieren.
+ <ESC> sollte auf die zuletzt eingegebene Zeit zuruecksetzen (Geschmackssache)
Dazu vieleicht im OnEnter die letzte Zeit merken....

Nur mal so als Vorschlag

[chest3rs]

Zitat von mashutu:

+ STRG-V (Einfuegen) sollte in einem Edit-Feld schon funktionieren.

Hallo mashutu,

Leider hab ich den Fehler bis jetzt nur umgangen. So wird das Menü deaktiviert:

Delphi-Quellcode:

procedure TForm1.EditContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
 Handled := True;
end;

Ich werde das noch versuchen zu ändern.

Chester

[shmia]

Mir fallen 3 Dinge auf:
* im Sourcecode sind extrem viele Zahlen und Strings hartcodiert
also die Methoden KeyPress und ResultTC sind sehr umständlich!! Nichts für ungut; jeder fängt mal klein an.
* es fehlt ein Property vom Typ TTime oder TDateTime
* das Control TDateTimePicker kann doch auch Uhrzeiten annehmen; man muss nur das Property Kind auf dtkTime setzen

[chest3rs]

Zitat von shmia:

* das Control TDateTimePicker kann doch auch Uhrzeiten annehmen;
man muss nur das Property Kind auf dtkTime setzen

Hab ich auch schon ausprobiert, nur bereiten mir die Spinbuttons Probleme.
Mir gefallen sie nicht, weil sie mit den XP-Designs nicht korrekt dargestellt werden.

Das ist aber eher Geschmacksache

Außerdem bin ich der Meinung, dass Sekunden bei der Eingabe überflüssig sind.

[Bernhard Geyer]

Zitat von chest3rs:

Außerdem bin ich der Meinung, dass Sekunden bei der Eingabe überflüssig sind.

Format-Property auf "hh:mm" setzen und gut ist.

[s-off]

Zitat von chest3rs:

Hab ich auch schon ausprobiert, nur bereiten mir die Spinbuttons Probleme.

Dann blende ihn aus:

Delphi-Quellcode:

Procedure HideSpinButton(oPicker: TDateTimePicker);
Var
   oHandle: HWND;
Begin
   If assigned(oPicker) Then Begin
      oHandle := oPicker.Handle;
      oHandle := FindWindowEx(oHandle, 0, 'msctls_updown32', Nil);
      Windows.ShowWindow(oHandle, SW_HIDE);
   End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   HideSpinButton(DateTimePicker1);
End;

[chest3rs]

Auch eine gute Möglichkeit, danke!

Jetzt gefällt mir der DateTimePicker schon wesentlich besser!
Mir scheint, meine Kompo ist jetzt überflüssig...

Grüße

[mashutu]

Zitat von chest3rs:

Mir scheint, meine Kompo ist jetzt überflüssig... :wall:

Ueberhaupt nicht. Du hast sicherlich was gelernt bei der Sache.

[chest3rs]

Hi Leute,
und wie ich was gelernt habe...

Danke für eure Hilfe,
doch nach ausführlichem Test hat mich der DateTimePicker nicht überzeugt.

- Einfügen funktioniert nicht
- Zeichenfläche der SpinButtons verdeckt ein Teil des DateTimePickers (sollte so klein wie möglich sein)

Jetzt werde ich noch nach einem passenden DateEdit suchen.

Grüße,

Mariusz