如何在控制台下使用控件？

Question

RT!!
最好先讲讲原理，然后举个例子（比如idsmtp或者别的），谢谢了！！！

Answer 1

和GUI下面是一样的，不过：
idsmtp:=Tidsmtp.Create(nil);

Answer 2

var
  aa:tedit;
begin
aa:=tedit.create(nil);
aa.name:='aa';
aa.text:='bb';
................
aa.free;
end;

Answer 3

试举一例：program Project1;{$APPTYPE CONSOLE}uses
  SysUtils,windows,messages,extctrls;type
  tc=class
  private
    fTimer:TTimer;
  public
    procedure timerProc(sender:TObject);
    constructor create();
  end;  procedure tc.timerProc(sender:TObject);
  begin
    messageBox(0,'l;asdfjasdlf','goomoo',mb_ok);
  end;  constructor tc.create;
  begin
    inherited create;
    fTimer:=TTimer.Create(nil);
    fTimer.Interval:=1000;
    fTimer.OnTimer:=timerProc;
  end;var
  zjs:TC;
  s:string;
begin
  zjs:=Tc.create;
  zjs.timerProc(nil);
end.

Answer 4

是啊是啊，一样的用。create时，参数写nil就OK