<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 To yygw：将控件和事件从published改为private的方法<br /><small>代码如下：<br />
<br />
unit Unit1;<br />
<br />
interface<br />
<br />
uses<br />
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />
  Dialogs, StdCtrls;<br />
<br />
type<br />
  TForm1 = class(TForm)<br />
  private<br />
    btn1: TButton;<br />
  private<br />
    procedure btn1Click(Sender : TObject);<br />
  public<br />
    constructor Create(AOwner : TComponent);override;<br />
  end;<br />
<br />
var<br />
  Form1: TForm1;<br />
<br />
implementation<br />
<br />
{$R *.dfm}<br />
<br />
{ TForm1 }<br />
<br />
procedure TForm1.btn1Click(Sender: TObject);<br />
begin<br />
  //DoSomething();<br />
end;<br />
 ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=413&amp;start=0&amp;offset=497&amp;sid=yFGhXO">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=8&amp;sid=yFGhXO">CnPack IDE 专家包（CnW ...</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=413&amp;sid=yFGhXO">To yygw：将控件和事件 ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=406&amp;sid=yFGhXO">请问组件栏不见了, 你 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=yFGhXO">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>