“Delphi”怎么点击按钮d出新窗口

其实只要熟悉 *** 作流程和每一个按键就比较容易 *** 作。

设置一个按钮，

点击后d出另外一个窗体form2。

procedure TForm1Button1Click(Sender: TObject);

var frm2 : TForm2;

begin

frm2 := TForm2Create(nil);

frm2Show;

//或者    frm2ShowModal;

frm2Free ;

end;

2光标移到按钮的时候，光标变为手指图案（handpoint）

procedure TForm1Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Button1Cursor:=crHandPoint;

end;

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 TForm1fghfg1Click(Sender: TObject);  {快捷键F12 对应的菜单项}

begin

     Form1Button1Click(Sender);

end;

procedure TForm1Button1Click(Sender: TObject);

begin

   showmessage('ghgfhgf');

end;

procedure TForm1Button2Click(Sender: TObject);

begin

      halt;

end;

procedure TForm1quit1Click(Sender: TObject);   {快捷键F11 对应的菜单项}

begin

      Form1Button2Click(Sender);

end;

end

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

用TADOquery控件可以查询数据库，你在按钮的click事件里添加查询并显示的代码就行了。

qryDbActive：=false;

qryDbSQLtext:='select from ';

qryDbActive:=true;

edit1text:=qryDbFieldByName('字段值')asstring;

edit2也用同样的方法

从问题描述来看，是需要获取“点击按钮的前一次”点击的控件信息。

既然是“前一次”点击，可以考虑，设置一个用于保存点击的列表，如TStringList，然后响应各控件的点击事件，每次点击时，将点击控件信息写入 TStringList，然后，当点击按钮时，取得 TStringList 中最后的数据即可。

示例如下：

    { Private declarations }

    ClickList: TStringList;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R dfm}

procedure TForm1btn1Click(Sender: TObject);

begin

  if ClickListCount>1 then

    ShowMessage(ClickList[ClickListCount-1]);

end;

procedure TForm1dbgrd1CellClick(Column: TColumn);

begin

  ClickListAdd('TDBGrid');

end;

procedure TForm1FormClose(Sender: TObject; var Action: TCloseAction);

begin

  ClickListFree;

end;

procedure TForm1FormCreate(Sender: TObject);

begin

  ClickList := TStringListCreate;

end;

procedure TForm1tv1Click(Sender: TObject);

begin

  ClickListAdd('TTreeView')

end;

可以的

比如说你的按钮单击事件是

procedure Button1Click(Sender:TObject);

那么单击图后写以下代码就行

Button1Click(self);

以上就是关于“Delphi”怎么点击按钮d出新窗口全部的内容，包括:“Delphi”怎么点击按钮d出新窗口、delphi新手，写了一个小程序，我想按下F12的时候 ，实现点击button1的功能、delphi中，单击一个按钮怎么实现edit1中得到数据库里的一个数据，edit2得到另一个数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！