settings.pas

来自「小程序 可以任意的拖动 会找到一定的水平线 右击退出即可」· PAS 代码 · 共 38 行

Unit settings;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

Type
  TSettingsForm = Class(TForm)
    Procedure Timer1Timer(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  SettingsForm      : TSettingsForm;

Implementation

Uses main;

{$R *.DFM}

Procedure TSettingsForm.Timer1Timer(Sender: TObject);
Var w               : twincontrol;
Begin
  w := FindVCLWindow(Point(mouse.cursorpos.x, mouse.cursorpos.y));
  If w <> Nil Then caption := w.Name Else caption := 'nil';


End;

End.