高手请,有点麻烦? 1、如果动态在表单上填加一下按钮; 2、按UP键按钮上移,Down键下移,left键左移,right键右移 3、按Alt+UP键按钮变高,Alt+Down键矮,Alt+left键变宽,Alt+right键变窄 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 确实有点麻烦,不过可以做,20点是不是太少了,呵呵动态添加按钮应该没问题吧,不说了,放一个按钮,在OnKeyDown里面把后面两个问题解决解决,就是在静态按钮上实现这个功能。最后写一个函数类型,参数和Onkeydown相同,写一个函数,把刚才Onkeydown的代码拷过来,最后在创建按钮的地方把新创建的按钮的Onkeydown事件设置为你写的函数就可以了 就是判断top left height Width的问题 对不起各位了,我只有这么多可用分的,没办法,等以后有了再给你们,在这先谢谢各位了。下面这段代码是我刚写的,如果窗体上有两个按钮,按UP键时就不起作用了,请各位指教unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Qt;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=Key_up then form1.ActiveControl.Top:=form1.ActiveControl.Top-1; application.ProcessMessages;end;end. TdxSkinController使用 adotable 如何获取数据表的 字段名 从ListView拖动文件到windows浏览器 如何在程序中提供共享密码 关于小数点位数的4个小问题 ※※※※ 求:可以驱动数码相机的三方控件(For delphi5)!※※※※ 请指教做报表的经验和需要注意的事项! 100分求计算器源代码! rave 报表提示invalid class typecast? 来个调查! 那位大虾有好一点的标尺控件阿? 关于FastReport用户自定义排序问题(急)!
动态添加按钮应该没问题吧,不说了,
放一个按钮,在OnKeyDown里面把后面两个问题解决解决,就是在静态按钮上实现这个功能。
最后写一个函数类型,参数和Onkeydown相同,写一个函数,把刚才Onkeydown的代码拷过来,
最后在创建按钮的地方把新创建的按钮的Onkeydown事件设置为你写的函数就可以了
下面这段代码是我刚写的,如果窗体上有两个按钮,按UP键时就不起作用了,请各位指教
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Qt;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=Key_up then
form1.ActiveControl.Top:=form1.ActiveControl.Top-1;
application.ProcessMessages;
end;end.