在没有uses forms的情况下,怎么获得自己的handle

Question

在没有uses forms的情况下,怎么获得自己的handle

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
   self.Handle   就是自已end;end.

Answer 2

如果是继承forms,没有uses forms也可以使用form1.handle
如果没有继承，没有uses forms就没有form1.handle
如果你是在其他一个类中使用handle，你可以把handle作为参数传入

Answer 3

在没有uses forms的情况下
就只好：uses yourForms;了

Answer 4

我不知道你想要的是什麼 handle? 
也許可用
HANDLE GetCurrentThread(void);
吧!