delphi按钮问题 我设置了一个按钮,但是一按空格键按钮也相应,怎么取消空格键与按钮之间的关系啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public procedure MyButtonProc(var Message: TMessage); { Public declarations } end;var Form1: TForm1; OldProc: TWndMethod;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage('Button1Click');end;procedure TForm1.MyButtonProc(var Message: TMessage);begin case Message.Msg of WM_KEYDOWN: begin if Message.WParam = 32 then Exit; end; end; OldProc(Message);end;procedure TForm1.FormCreate(Sender: TObject);begin OldProc := Button1.WindowProc; Button1.WindowProc := MyButtonProc;end;end. 把按钮的Default Button 属性设置为False就行。 按钮的Default Button 属性设置为False就行 virtualstringtree的编辑问题 Delphi程序运行时这种错误是怎么回事呀? 如何遍历treeview? 请问如何把几张图片打包成EXE文件?单独可以运行 BORLAND公司DELPHI技术掌门人Danny Thorpe最新解释VCL for .NET的意思!!! 在query中的查询问题(like)查询! VC++与DELPHI的不惑???请高手回答!!! sql出错???急,急! DELPHI中如何启动和停止NT服务? 安装.net出错,怎么办?急! 可执行文件运行出现提示“操作被取消” 如何使得delphi的程序适应不同的分辨率
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyButtonProc(var Message: TMessage);
{ Public declarations }
end;var
Form1: TForm1;
OldProc: TWndMethod;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Button1Click');
end;procedure TForm1.MyButtonProc(var Message: TMessage);
begin
case Message.Msg of
WM_KEYDOWN:
begin
if Message.WParam = 32 then
Exit;
end;
end;
OldProc(Message);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
OldProc := Button1.WindowProc;
Button1.WindowProc := MyButtonProc;
end;end.