Terminkalender mit Listbox

**kurzer_newbie**

Hallo Leute

ich bin newbie und versuche gerade einkleines Prog zu schreiben.

In dem Prog gebe ich eine nachricht ein, und nach dem drücken des button erscheint es in der listbox.

nu soll der timer datum und uhrzeit vergleichen und wenn die mit der aktuellen Zeit gleich sind

soll eine Message mit der Nachricht aus der Listbox erscheinen.

Hier mal der Code:

zusammenfalten · markieren

Delphi-Quellcode:

			unit calendar_1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    ListBox1: TListBox;

    Button1: TButton;

    MonthCalendar1: TMonthCalendar;

    DateTimePicker1: TDateTimePicker;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a : string;

t, d : string;

begin

t :=timetostr(datetimepicker1.Time);

d :=datetostr(monthcalendar1.Date);

a:=(edit1.Text);

listbox1.Items.Add(d+' '+t+' '+a);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

end;

end.

Ich hoffe es kann mir jemand helfen, weil

Problem 2

wenn ich das Programm beende sind die Termine wech, aber das kommt später.

Gruß
Kurzer

[edit=Admin]Dephi-Tags korrigiert. Mfg, Daniel[/edit]

Terminkalender mit Listbox

Terminkalender mit Listbox

Forumregeln