delphi新手，写了一个小程序，我想按下F12的时候 ，实现点击button1的功能

unit Unit1

interface

uses

  Windows, 闭吵Messages, SysUtils, Variants, Classes,

   Graphics, Controls, Forms,

  Dialogs, Menus, Buttons, StdCtrls

type

  TForm1 = class(TForm)

    Button1: TButton

    MainMenu1: TMainMenu

    hgfhf1: TMenuItem

    hgfhfg1: TMenuItem

    fghfg1: TMenuItem

    Button2: TButton

    quit1: TMenuItem

    procedure fghfg1Click(Sender: TObject)

    procedure Button1Click(Sender: TObject)

    procedure 轿戚侍Button2Click(Sender: TObject)

    procedure quit1Click(Sender: TObject)

  private

    { Private declarations }

  public

    { Public declarations }

  end

var

  Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.fghfg1Click(Sender: TObject)  {快捷键F12 对应的菜单项}

begin

     Form1.Button1Click(Sender)

end

procedure TForm1.Button1Click(Sender: TObject)

begin

   showmessage('ghgfhgf')

end

procedure TForm1.Button2Click(Sender: TObject)

begin

      halt

end

procedure TForm1.quit1Click(Sender: TObject)   {快捷键F11 对应的菜单项}

begin

      Form1.Button2Click(Sender)

end

end.

 

只有菜单项才能定义快捷键，以上程序是将菜单项和button按仔碰钮绑定 实现。

1、首先，新建一个带有button按钮的页面，打开这个页面。

2、button按钮不能笑渣高直接添加herf属性，可以通过button的onClick事件来实现页面的跳转自动点击。

3、碰尺可以直接在onclick事件上添加动作实现页面跳转，也可以让onClick触发函数实现页面跳转。

4、需要给button的onClick一个触发事件。具体写法见下图。

5、希望页面在点击登录按钮的时候实现梁余页面跳转，所以函数是直接声明，而不是等页面加载完后立即执行的。就完成了。

在微信小程序中,自带的 button 是自带点击效老模悔果的,但是一旦我们给 button 加了 class 之后,这个按钮就变成了一个方块,点击也没有任侍正何视觉效果.于是自己写了一套通用的小程序码颂点击按钮效果

按钮样式

---