notefrm.pas

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

unit notefrm;

interface

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

const
  WM_NOTE_CHANGED = WM_APP + 0;
  
type
  TNoteForm = class(TForm)
    mmoNote: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mmoNoteKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    procedure AddMyMenuItem;
    
    procedure WMSysCommand(var message: TWMSysCommand); message WM_SYSCOMMAND;
    procedure WMNCLButtonDblClick(var message: TWMNCLButtonDblClk); message WM_NCLBUTTONDBLCLK;
  protected
    procedure CreateWnd; override;
    procedure CreateParams(var Params: TCreateParams); override;
  public
    constructor Create(AOwner: TComponent); override;
  end;
  
var
  NoteForm: TNoteForm;
  
implementation

{$R *.DFM}

const
  SC_CHANGE_CAPTION = 1;
  
  { TNoteForm }
  
procedure TNoteForm.AddMyMenuItem;
var
  SysMenu     : HMENU;        
  MenuItemInfo: TMENUITEMINFO;
begin
  SysMenu := Getsystemmenu(handle, false); //