Delphi To-Do List

在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
var
  Strings: TStrings;
begin
  Strings := typename.Create;
  try
    // 在此按【Ctrl+Shift+T】叫出 Add To-Do Item 
    // 或是按滑鼠右鍵選 Add To-Do Item
    // 在 Text: 輸入 Add Text to Strings
    // 在 Priority: 輸入 1
    // 在 Owner: 輸入 UserName
    // 在 Category: 輸入 Normal
  finally
    Strings.Free;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  Strings: TStrings;
begin
  Strings := typename.Create;
  try
    { TODO 1 -oUserName -cNormal : Add Text to Strings}
  finally
    Strings.Free;
  end;
end;

在功能表 View -> To-Do List 中可以看到所有的 To-Do Item
並可加以排序、修改、匯出 Html 報表等，做完的 Item 可以打勾變成 DONE