Notizzettel auf Delphi Programmieren! Aber wie ?

[Rumpi]

Zitat von Tom:

Sagen wir mal so: Das Progrämmchen ist wohl eher ein NotePad-Clone als ein Notiz-Programm. Im Demo-Ordner von Delphi gibt es das auch. Beim Start wird unter W2k angezeigt:

Code:

---------------------------
notiz
---------------------------
''Meister Müller'' ist kein gültiger Komponentenname.
---------------------------
OK   
---------------------------

Sechs. Setzen.

Versuchs mal damit

Delphi-Quellcode:

var
  Form1 : TForm1;
  FName :string;

implementation

{$R *.dfm}

procedure TForm1.Neu1Click(Sender: TObject);
begin
  RichEdit1.Lines.Clear;
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Fonteinstellen1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    RichEdit1.Font := FontDialog1.Font;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage('(C) 2003 by '+ Fname);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FName := 'Meister Müller';
end;

mfg Rumpi