请教个delphi问题 frame中只有一个checkbox1,form中有一个button1和panel1,form中动态调frame,按下button1,checkbox1.enable :=false;谁能帮我写下不 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建一个Frame1,和Form1,在Frame上放上CHECKBOXunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Unit2;//Unit2为TFrame1;type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public Frame1:TFrame1; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Frame1 := TFrame1.Create(self); Frame1.Parent := Form1;end;procedure TForm1.Button1Click(Sender: TObject);begin Frame1.CheckBox1.Enabled := false;end;end. Frame1.CheckBox1.Enabled := false; 正确调用frame后,只需要在button的click事件中写: frame.checkbox.enabled := not frame.checkbox.enabled;这样就可以实现点击button,checkbox的enabled会发生变化。 ◀◀◀◀在广州的湖北的程序员出来冒个泡啊,过年啦,聊聊啊▶▶▶▶▶ Delphi 做演示软件 怎样再执行clear方法时不响应onchange事件? DataGrid使用 Delphi 下也可以屏蔽Win200、WinXP、Windows Server 2003下的Ctrl + Alt + Del组合键了 怎样编写一个程序让计算机一起动就运行该程序? 求一个加密的构件 dbExpress的应用怎样分发到客户端啊! 如何利用DELPHI来开发手机短讯的发送程序? 高手请进!关于捕获程序运行时错误的问题。 dspack 如何播放流 如何打印倾斜文本?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,Unit2;//Unit2为TFrame1;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Frame1:TFrame1;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Frame1 := TFrame1.Create(self);
Frame1.Parent := Form1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Frame1.CheckBox1.Enabled := false;
end;end.
frame.checkbox.enabled := not frame.checkbox.enabled;这样就可以实现点击button,checkbox的enabled会发生变化。