一个菜问题

Question

如在button的onclick事件中写：
shellexecute(self.handle,...);

Answer 1

procedure myonclose(sender:tobject;var action:tcloseaction);
begin
    showmessage('dd');
end;function getform(aowner:tcomponent):integer;
var
    aform:tform;
begin
    try
        aform:=tform.Create(aowner);
        aform.onclose:=myonclose;   //这样是不行的，那么，应该怎么做呢
        result:=aform.handle;
    except
        result:=0;
    end;
end;exports
    getform;

Answer 2

我解决了,下午结贴.procedure myonclose(sender:tobject;var action:tcloseaction);
begin
    showmessage('dd');
end;function getform(aowner:tcomponent):integer;
var
    aform:tform;
    proc:tcloseevent;
begin
    try
        aform:=tform.Create(aowner);
        @proc:=@myonclose;
        aform.onclose:=proc;
        aform.show;
        result:=aform.handle;
    except
        result:=0;
    end;
end;exports
    getform;

Answer 3

To robinhunter(深空):
    高手,受教。