Delphi用线程实现窗口置顶.docVIP

Delphi用线程实现窗口置顶 有很多人喜欢将SetWindowPos放到timer控件里实现窗口置顶，今天分享一个用线程实现的，供大家学习。 unit frm_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TTopMostThread = class(TThread) protected FMainHandle: HWND; procedure Execute; override; public constructor Create(AMainHandle: HWND); end; TfrmMain = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } FSetTop: TTopMostThread; public { Public declarations } end; var frmMain: Tf