|
|
Bansen
|
| Titel: Datum/Zeit |
15.06.2009 15:28 |
|
|
Anmeldungsdatum: 14.06.2009
Beiträge: 2
|
in meinem MdIapp habe ich folgende procedure
procedure TMainForm.Timer1(Sender: TObject);
begin
StatusBar.Panels.Items[1].Text := DateToStr(Now);
StatusBar.Panels.Items[2].Text := TimeToStr(Now);
end;
in der Statusbar wird das auch angezeigt.
jetzt wollte ich in einem untergeordnetem Fenster
in einem Editfeld jeweils das das Datum bzw. die Uhrzeit
durch einen Klick aus der Statusbar übernommen wird.
procedure TerfassungForm.EditTdatumClick(Sender: TObject);
begin
EditTatdatum.Text := MainForm.StatusBar.Panels.Items[1].Text;
end;
procedure TerfassungForm.EditTzeitClick(Sender: TObject);
begin
EditTatzeit.Text := MainForm.StatusBar.Panels.Items[2].Text;
end;
die Zeit wird jedoch nicht 1 zu 1 übernommen und hinkt hinterher.
die Frage ist nur warum ?
|
 |
|
| |
|
|
|
|
|
|
Themen
Unbeantwortet
Betriebssysteme
