如何在delphi中实现操作系统的密码框“大写锁定打开”的提示(100分)

W

wind_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-17

• #1

在登录windows时，如果大写锁定打开，且焦点处于密码输入框中，会出现气泡提示信息：“大写锁定打开 保持大写锁定打开可能会使你错误输入密码……”。
我发现在QQ登录界面，Spype登录界面中也会出现完全一样的提示信息。
请问在delphi是如何实现这种功能？
谢谢各位了！

 

大

大器晚成

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-17

• #2

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
istate:integer;
begin
iState:=GetKeyState(VK_CAPITAL);
if istate>0 then
showmessage('大写键已打开!');
end;

 

B

bootdelay

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-18

• #3

大器晚成：楼主想要的主要是显示那个气泡。。。答非所问...

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-18

• #4

你到我的笔记：http://www.delphibbs.com/keylife/iblog_show.asp?xid=30670去下载那个示例看看，但是我的提示是朝上的，估计不能完全达到你的要求，我试过朝下的，但是那个“尖角”是居中的。

 

W

wind_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #5

谢谢上面各位的答复，
一般的气泡提示我也做过，
QQ登录界面，Spype登录界面中的大写锁定提示完全和系统提示一样，我想可能是通过某个系统接口来实现的

我见过一个Delphi程序，实现了的相同功能，源码也有，但我并没有从源码中找到任何有关该提示的代码。所以我想可能是登录窗体或相关控件的设置问题，如果那位高人知道，还望能给以帮助。
成分感谢！

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #6

uses XPMan
d7通过。d2007我没试过。

 

W

wzh706096

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #7

楼主还在么

 

W

wind_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-20

• #8

谢谢　hhjjhhjj　问题　解决