散分了!!!!!!!!

xintan 2003-08-29 01:08:41
如何向一个可执行文件中加入一个按钮控件,并加入事件代码?
...全文
22 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
steve0531 2003-10-16
  • 打赏
  • 举报
回复
up
mib3000 2003-10-15
  • 打赏
  • 举报
回复
up
tresss 2003-10-15
  • 打赏
  • 举报
回复
var
ahandle:thandle;
btn:tbutton;
begin
//首先用。。。取得窗口的handle:ahandle;
//然后如上楼的写的一样。创建一个按钮;
btn:=TButton.Create(application);
//再设置parent;
btn.Parent:=ahandle;

应该是可以。
但是这样的情况是,只有在打开本软件的状态下才起作用。
cnhgj 2003-10-15
  • 打赏
  • 举报
回复
晕..个个都答错..楼主是想修改exe文件啊....
ly_liuyang 2003-10-14
  • 打赏
  • 举报
回复
修改EXE?这要MASM才好办,Delphi不适合做这个的
fengyvn 2003-10-14
  • 打赏
  • 举报
回复
你是说加到EXE文件中?
不会,太高深了.
LL11 2003-10-14
  • 打赏
  • 举报
回复
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var btn:TButton;
begin
btn:=TButton.Create(application);
btn.Parent:=form1;
btn.Caption :='aaa'
end;

end.
mib3000 2003-09-18
  • 打赏
  • 举报
回复
up
cnssk 2003-08-29
  • 打赏
  • 举报
回复
接分
崔作非 2003-08-29
  • 打赏
  • 举报
回复
Bv:=TButton.creat(self);
BV.parent=self;
wypepsi 2003-08-29
  • 打赏
  • 举报
回复
如果是一个程序的话 动态添加很容易
Bt := Tbutton.Create(self);
Bt :=self;
如果是另外的程序 只有帮你顶
zhudongpo 2003-08-29
  • 打赏
  • 举报
回复
动态创建按钮,再写响应事件
foreveryday007 2003-08-29
  • 打赏
  • 举报
回复
如何向一个可执行文件中加入一个按钮控件,并加入事件代码?
>>>>
应该是另一个可执行文件吧
不会

楼下的,继续
boywu 2003-08-29
  • 打赏
  • 举报
回复
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var btn:TButton;
begin
btn:=TButton.Create(application);
btn.Parent:=form1;
btn.Caption :='aaa'
end;

end.
SStallMan 2003-08-29
  • 打赏
  • 举报
回复
动态创建按钮,再写响应事件
livin 2003-08-29
  • 打赏
  • 举报
回复
动态添加控件
江山易改 2003-08-29
  • 打赏
  • 举报
回复
动态创建Button,并在button创建军后指定如butt1.Onclick := dd;
cnhgj 2003-08-29
  • 打赏
  • 举报
回复
靠~!!这也叫散分???白来了!!!只能帮你UP

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧