procedure TForm1.FormShow不起作用！该怎么处理

procedure TForm1.FormShow不起作用！

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 

Forms,
  Dialogs;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
   showmessage('ssss'); //为什么这里的代码不会执行呢？
end;

end.

[解决办法]
本帖最后由 bdmh 于 2009-08-18 10:05:12 编辑 没有为form1关联上OnShow事件
[解决办法]
看一下窗体的onShow事件里有没有链接
[解决办法]
嗯，是啊，没人调用它就不会执行鸟
[解决办法]
可能是因为你的Form的OnShow事件根本没有和这个函数挂钩.
设计时状态,选中form,然后在OnShow事件下拉框中选择FormShow
或者在代码中指定:

OnShow = FormShow;
[解决办法]
本帖最后由 bdmh 于 2009-08-18 10:09:04 编辑

引用:

不懂，我是初学，具体怎么改？

点击form1窗体,按F11,查看Events,找到OnShow事件处,看看是否有关联上你的Show过程
[解决办法]
是不是复制过来的代码
用楼上的方法加一下关联就行了

查看更多 下一篇