?? unit2.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -