delphi 按钮过程依次执行的问题
delphi 按钮过程依次执行的问题
我现在有 5个 按钮 每个按钮都有一个过程
我想 用 第6个按钮 点击点击第一次 执行 button1 第二次 执行 button2 三次 button3 一直到 button5 如何实现呢？？
Delphi(Pascal) code:
button1.OnClick(self);
button2.OnClick(self);
button3.OnClick(self);
button4.OnClick(self);
button5.OnClick(self);
Delphi(Pascal) code:
下面是根据函数名称执行函数的方法，你把这个循环改成根据i的值，单步的执行就行了
var
p:Pointer;
i:integer;
begin
for i := 1 to 3 do
begin
p := MethodAddress('Button'+IntToStr(i)+'Click');
if p = nil then Continue;
asm
call p;
end;
end;
end;
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
