如何用delphi制作一个edit显示血量?

小弟刚看delphi, 不知从那里下手, 高手指点下 ,谢谢啊;
最好做个button能够刷新,这样在edit里显示(血值的格式"???/???"),
还有就是最好把button及edit的属性及事件也写一下;
客户端为"Element Client" ,当前血量地址为[[[Ox8f509c]+Ox20]+Ox450],最大血量地址为[[[Ox8f509c]+Ox20]+0x478].

1.如果窗体存在于注入游戏的dll中两个值可以这样表达
hp = pdword(pdword(pdword($8f509c)^ + $20)^ + $450)^
hpmax = pdword(pdword(pdword($8f509c)^ + $20)^ + $478)^
edit.text := format('%d / %d', [hp, hpmax])
把这些写入timer中就可以即时刷新

2.如果窗体没有注入游戏中可以用readprocessmemory来读取

3.如果dll已经注入游戏,窗体单独
可以在dll中读取该值后发送自定义消息给窗体,窗体接收消息后刷新显示
sendmessage(frm.handle, wm_user+1, 0, hp);
sendmessage(frm.handle, wm_user+1, 1, hpmax);
温馨提示:内容为网友见解,仅供参考
无其他回答

如何用delphi制作一个edit显示血量?
1.如果窗体存在于注入游戏的dll中两个值可以这样表达 hp = pdword(pdword(pdword($8f509c)^ + $20)^ + $450)^ hpmax = pdword(pdword(pdword($8f509c)^ + $20)^ + $478)^ edit.text := format('%d \/ %d', [hp, hpmax])把这些写入timer中就可以即时刷新 2.如果窗体没有注入游...

小弟刚学delphi请问如何用edit显示dbgrid中的记录条数
在Button的onclick事件中写:ADOQuery1.RecordCount;Edit1.Text := IntToStr(ADOQuery1.RecordCount) ;

在delphi7中怎么用richedit控件来显示我要打开的文本文件?
1. 在你的 Delphi7 项目中添加一个 richedit 控件。通过拖放功能将 richedit 控件放置在目标窗体上。2. 接下来,编写代码以在按钮的单击事件中加载文本文件。为此,可以在窗体的 `OnCreate` 事件中添加相应的代码。3. 在按钮的单击事件中,使用 `richedit1.Lines.LoadFromFile` 方法加载文本文件。只...

Delphi 在Edit1中输入内容如何让它实现保存功能,使下次打开程序Edit1...
begin CnfFile := Tinifile.Create(ExtractFilePath(application.ExeName) + 'config.ini'); \/\/创建时候设定好配置文件路径 CnfFile.WriteString('config', 'mystr', edit1.text); \/\/写入记录,config为类别,mystr为名称,最后一个是值 CnfFile.free; \/\/释放 end;form在创建事件里面使用读...

Delphi中DBEdit组件使用方法
Delphi的DBEdit组件位于组件板的Data Controls页上,用于编辑数据表当前记录某字段的值。DBEdit组件的主要属性与方法如下:1、主要属性(1)DataSource用于选择数据源,使DBEdit组件通过数据源与数据表连接。当DBEdit通过数据源与数据表连接后,显示数据表的哪一个字段,则是由DataField字段决定的。(2)Data...

delphi中edit的用法
在该edit的onkeypress中响应中,只允许输入数字的代码:if ( (key<'0') or (key >'9') )and( key<>#8) then key:=#0;该编辑框的onexit事件中取出编辑框的值,判断长度就可以了,算法如下。if ((length(edit1.text)<6) or (length(edit1.text)>10)) then begin showmessage('');e...

delphi中怎样让maskedit显示dbgrid中某字段的值
edit1.text:=qry1.fieldbyname('字段名').asstring;

delphi中如何读取ini文件中的内容,并显示在edit中,需要执行程序后edit...
一、打开INI文件 Filename:=ExtractFilePath(Paramstr(0))+’program.ini’;myinifile:=Tinifile.Create(filename);二、读取关键字的值 针对INI文件支持的字符串、整型数值、布尔值三种数据类型,TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。vs:=myinifile.Readstring(’小节名’,...

delphi中DBEdit问题?
窗体上放一edit,两个button,分别显示上一记录和下一记录 首先连上数据库 初始化窗体事件\/\/ procedure Tm_log.FormShow(Sender: TObject);begin with m_log.q do begin close;sql.Clear;sql.Text:='select * from book_user_info';open;first;edit1.Text:=fieldbyname('username').AsString;e...

delphi中我想实现对Edit控件输入内容的控制:如果输入的是数字,则程序继...
then begin ShowMessage('error'); edit1.SetFocus; end else edit2.Text:=floattostr(a) ; { 以下使用 try 方式也是可行的,但影响集成调试 try i:=strtoint64(Edit1.text); except ShowMessage(

相似回答
大家正在搜