dbgrid im Bearbeitungsmodus

[khh]

mit :
DisplayFormat HH:mm

[khh]

jemand ne Idee, ob das per DisplayFormat zu handeln ist ?

Oder gibt es einen anderen Weg?

Ich danke euch

[BadenPower]

Zitat von khh:

jemand ne Idee, ob das per DisplayFormat zu handeln ist ?

Da ist ein Problem mit dem Grid selbst.

Wenn Du nachdem die Zelle selektiert ist ohne darauf zu klicken eine Taste bedienst, dann kannst Du den Wert zwar editieren, aber das Grid befindet sich eigentlich nicht im Editiermodus.


Aber auch wenn Du Dich im Editiermodus befindest und das Datum löschst und nur einen Zeitwert angibst, dann wird das Datum auf 0 gesetzt, da dieser Wert dann eigeneben ist, weil er nicht vorhanden ist.

Gib, so wie Du es jetzt mit der Zeit gemacht hast einmal ein Datum ein z.B. 20.01.2015 dann wirst Du sehen, dass die Uhrzeit automatisch auf 00:00:00 gesetzt wird und den Wert, welche voher dastand ignoriert wird.

Ich schaue mir das nochmals genauer an, wenn ich etwas mehr Zeit habe. Schau mal nach EditMask in der TField-Klasse.

[khh]

ich danke dir

[khh]

alsoo,
EditMask ist wohl der richtige Weg die Eingabe zu beeinflussen.
Jetzt muss ich nur noch die richtige Maske hinbekommen.
Die diversen Möglichkeiten sind mir noch suspekt

Ich befürchte aber, das verhindert mir immer noch nicht, dass das Datum zurück gesetzt wird

[khh]

doppelpost, bitte löschen

[khh]

ich habe mir überlegt, per Data.DB.TField.OnGetText und Data.DB.TField.OnSetText

das Datum zu speichern und mit der eingegebenen Zeit wieder zurück zu schreiben.

was meint ihr dazu ?

danke gruss KH

[Uwe Raabe]

Zitat von khh:

ich habe mir überlegt, per Data.DB.TField.OnGetText und Data.DB.TField.OnSetText

das Datum zu speichern und mit der eingegebenen Zeit wieder zurück zu schreiben.

Sowas ähnliches wollte ich auch gerade vorschlagen. Du kannst im OnGetText dem Anzeige- und Editstring den reinen Uhzeit-Text geben und beim OnSetText liest du den Feldwert aus (da steht das Datum nämlich noch drin) und änderst lediglich den Zeitanteil.

Delphi-Quellcode:

procedure TForm19.ClientDataSet1MyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  Text := FormatDateTime('hh:mm', Sender.AsDateTime);
end;

procedure TForm19.ClientDataSet1MyFieldSetText(Sender: TField; const Text: string);
begin
  Sender.AsDateTime := DateOf(Sender.AsDateTime) + StrToTime(Text);
end;