main.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, notefrm;

type
  TMainForm = class(TForm)
    btnNewNote: TButton;
    lbxNotes: TListBox;
    procedure btnNewNoteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure lbxNotesDblClick(Sender: TObject);
  private
    function CreateNewNote: TNoteForm;
    procedure ListNotes;
    
    procedure LoadNotes;
    procedure SaveNotes;
    
    procedure WMNoteChanged(var message: TMessage); message WM_NOTE_CHANGED;
  public
    { Public declarations }
  end;
  
const
  FN_NOTES = 'notes.dat';
  
var
  MainForm: TMainForm;
  
implementation

{$R *.DFM}


procedure TMainForm.btnNewNoteClick(Sender: TObject);
begin
  CreateNewNote;
  
  ListNotes;
end;

function TMainForm.CreateNewNote: TNoteForm;
begin
  // ⊿Τ VCL