Einzelnen Beitrag anzeigen

Kunoishi

Registriert seit: 26. Dez 2002
Ort: Berlin
140 Beiträge
 
Delphi 5 Standard
 
#1

MDIapp mit StatusBar

  Alt 18. Jun 2009, 14:05
in meinem MdIapp habe ich folgende procedure

Delphi-Quellcode:
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.

Delphi-Quellcode:
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 und wie kann ich das Problem lösen ?

[edit=Luckie]Delphi-Tags ergänzt. Mfg, Luckie[/edit]
  Mit Zitat antworten Zitat