怎样在一个窗体的onactive中判断不满足条件时关闭窗体自己！

Question

我用close
    destory,free试遍了没效果，不要笑我水！
　谢谢！

Answer 1

我告你一个程序员最常用的方法
添加一个Ttimer 控件 ；Enabled:=false; interval：=50；
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Close ；//这一行随你怎么写。
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
timer1.Enabled:=false;
if 1<>2 then  //在此添加判断条件
timer1.Enabled:=true;
end;
如果满意把分全部给我吧，否则一分都别给；^_^哈哈

Answer 2

当然你也可以直接关闭
procedure TForm1.FormActivate(Sender: TObject);
begin
if 1<>2 then  //在此添加判断条件
self.Close;
end;

Answer 3

ft,谁说这是最常用的方法?!不过感觉是最简单的:)
你可以直接Postmessage(..,WM_CLOSE,...)

Answer 4

的确可以！但是我有一个小问题，我在CREATE FORM的时候是 用的create(self)所以我后面用FORM的NAME.CLOSE就没用了但是经你提醒用SELF.CLOSE就可以了，我想到一个问题在create的时候是否可以不用self而用其他的如form的名字这样行不行，如果行是否close的时候就要用form的name.close呢?

Answer 5

create(Aowner)中的Aowner与self不是一个概念。AOwner是所有者，负责对象的创建和释放。self是当前类的隐式申明。