unit2.pas

来自「delphi控件的使用」· PAS 代码 · 共 55 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, WzGrid, MyGrids, StdCtrls, StringGridPro;

type
  TForm2 = class(TForm)
    WzGrid1: TWzGrid;
    MyGrid1: TMyGrid;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure FormClick(Sender: TObject);
    procedure WzGrid1GoNext(Sender: TObject);
  private
    { Private declarations }
    procedure WMCut(var Message: TMessage); message WM_CUT;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.WMCut(var Message: TMessage);
begin
  Edit1.Clear;
  Edit1.SelectAll;
  Edit1.PasteFromClipboard;
  Edit1.SetFocus;
{
  Result := ([goRowSelect, goEditing] * Options = [goEditing]) and
    FEditorMode and not (csDesigning in ComponentState) and HandleAllocated and
    ((goAlwaysShowEditor in Options) or IsActiveControl);
}
end;

procedure TForm2.FormClick(Sender: TObject);
begin
  SendMessage(Handle, WM_CUT, 0, 0);
end;

procedure TForm2.WzGrid1GoNext(Sender: TObject);
begin
  ShowMessage('Go to next control.');
end;

end.