微信小程序置顶显示的小技巧

分享一个小技巧，把小程序置顶在聊天顶部，随时随地切换状态，用微信聊天的同时也能快速回到小程序。

步骤一：首先打开微信客户端，点击底部的“发现”按钮

步骤二：点击小程序

步骤三：进入到某个小程序的界面，这里以“街店”为例

步骤四：点击小程序右上角的“…”，选择“显示在聊天顶部”。

这样就可以实现聊天界面与小程序迅速的切换了。

貌似可以把Form的formstyle属性设为StayOnTop，把Form的ParantForm（ParantWindow我记不太清楚了是那个了，本机没装DELPHI）设为桌面。其句柄为 GetDC（0）ParantForm：=GetDC（0）；不值得我记得准不准，你可以试下。

1楼太复杂，2楼不靠谱，三楼……

我的方法是：

是一个易程序同时只能打开一个吗？

置顶设置如下：把窗口总在最前属性设为真。

防止多开设置如下：

1、添加dll命令，有关判断事件对象的。

版本 2

DLL命令 创建事件对象, 整数型, "kernel32", "CreateEventA"

  参数 安全特性, 整数型

  参数 重设事件, 逻辑型

  参数 触发状态, 逻辑型

  参数 对象名字, 文本型

DLL命令 打开事件对象, 整数型, "kernel32", "OpenEventA"

  参数 访问方法, 整数型

  参数 句柄继承, 逻辑型

  参数 对象名字, 文本型

DLL命令 关闭事件对象, 整数型, "kernel32", "CloseHandle"

  参数 对象句柄, 整数型

2、写个子程序：

版本 2

子程序 程序是否已运行, 逻辑型, 公开, 真表示已经运行，假表示还未运行

参数 标志文本, 文本型, , 可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。

如果真 (打开事件对象 (2031619, 假, 标志文本) ≠ 0)

  返回 (真)

如果真结束

事件对象句柄 ＝ 创建事件对象 (0, 假, 假, 标志文本)

返回 (假)

子程序 关闭事件对象, , 公开, 窗口销毁时调用

关闭事件对象 (事件对象句柄)

3、添加一个变量，程序集的。

版本 2

程序集变量 事件对象句柄, 整数型

4、使用时在窗口的“创建完毕”与“将被销毁”事件写入代码：

版本 2

子程序 __启动窗口_创建完毕

如果真 (程序是否已运行 (“禁止多次运行”) ＝ 真)

  信息框 (“程序已经运行！”, 0, )

  销毁 ()

如果真结束

子程序 __启动窗口_将被销毁

关闭事件对象 ()

然后效果如下：

使用WinSet, Attribute, Value [, WinTitle, WinText, ExcludeTitle, ExcludeText]

第一个参数AlwaysOnTop, [On|Off|Toggle]:让窗口处于置顶状态使用 ON 打开此设置, 使用 OFF 关闭, 而使用 TOGGLE 切换到当前的相反状态 如果省略, 默认为 TOGGLE 可以使用单词 Topmost 代替 AlwaysOnTop

示例：

WinSet, AlwaysOnTop, toggle, Calculator ; 切换计算器的置顶状态

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1 '置顶

Const HWND_NOTOPMOST = -2 '不置顶

Private Sub Form_Load()

    SetWindowPos MehWnd, HWND_TOPMOST, MeLeft / ScreenTwipsPerPixelX, MeTop \ ScreenTwipsPerPixelY, MeWidth \ ScreenTwipsPerPixelX, MeHeight \ ScreenTwipsPerPixelY, 0

End Sub

以上就是关于微信小程序置顶显示的小技巧全部的内容，包括:微信小程序置顶显示的小技巧、用Delphi实现程序永远置顶、易语言怎么防止多开，，当程序已经打开时再要打开一个的时候原来的程序置顶，不打开新的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！