procedure TForm1.FormShow不起作用！该如何处理

2012-08-22

procedure TForm1.FormShow不起作用！Delphi(Pascal) codeunit Unit1interfaceusesWindows, Messages, Sys

procedure TForm1.FormShow不起作用！

Delphi(Pascal) code

unit Unit1;interfaceuses  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.

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

OnShow = FormShow;
[解决办法]

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

[解决办法]
是不是复制过来的代码
用楼上的方法加一下关联就行了

热点排行

.NET

procedure TForm1.FormShow不起作用！该如何处理