请问有什么控件可实现气泡提示和Raize里的Rzballo 找商品库存管理软件
库存管理软件版1楼: 各大侠,本人想在登陆窗体的密码框里判断用户输入密码是否正确,如不正确就用气泡提示,像xp里用户登陆时那样.请高手指点一点.谢谢!!
BackColor,TextColor:TColor);
implementation
{使用API函數CreateWindowEx創建一個具有擴展風格的子視窗作為
飛躍提示用，然後用SetWindowPos函數設置該子視窗的位置和大小。
這樣我們可以定義如下的過程創建飛躍提示窗口（hToolTip）：}
procedure RCreateToolTip(hWnd: Cardinal);
begin
hToolTip := CreateWindowEx(0, ＇＇Tooltips_Class32＇＇, nil, TTS_ALWAYSTIP
or TTS_BALLOON,Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT), hWnd, 0, hInstance, nil);
if hToolTip <> 0 then
begin
//設定新窗口顯示位置
SetWindowPos(hToolTip, HWND_TOPMOST, 0,0, 0, 0, SWP_NOMOVE or
SWP_NOSIZE or SWP_NOACTIVATE);
ti.cbSize := SizeOf(TToolInfo);
ti.uFlags:=TTF_SUBCLASS or TTF_TRANSPARENT;
ti.hInst := hInstance;
end;
end;
procedure RAddToolTip(hwnd: dword; lpti: PToolInfo; IconType: Integer; Text, Title: PChar;
BackColor,TextColor:TColor);
var
Rect: TRect;
begin
if (hwnd <> 0) AND (GetClientRect(hwnd, Rect)) then
begin
lpti.hwnd := hwnd;
lpti.Rect := Rect;
lpti.lpszText := Text;
SendMessage(hToolTip, TTM_ADDTOOL, 0, Integer(lpti));
FillChar(buffer, sizeof(buffer), #0);//填充緩存區
lstrcpy(buffer, Title);//復制字符串到緩存區
if (IconType > 3) or (IconType < 0) then IconType := 0;
if BackColor<>0 then
SendMessage(hToolTip, TTM_SETTIPBKCOLOR, BackColor, 0);
if TextColor<>0 then
SendMessage(hToolTip, TTM_SETTIPTEXTCOLOR, TextColor, 0);
SendMessage(hToolTip, TTM_SETTITLE, IconType, Integer(@buffer));
end;
end;
你可以將其制作成dll來實現共用代碼.有疑問請留言。
2楼: 把 RzBalloonHints 拖放到窗体上就行了。要显示提示的控件必须将其 ShowHint 属性设为 True, 并在 Hint 属性中填入要提示的内容。 如商品库存管理软件
3楼: TO:kaida
RzBalloonHints控件在什么地方？
4楼: 在 Raize Widgets 里面！！
5楼: RzBalloonHints控件在Raize Widgets页中。
6楼: 老兄你可以參考下我寫的氣泡提示實現代碼:
{氣泡提示實現}
unit Realize;
interface
uses
Windows, Messages, SysUtils,Classes,
Graphics, Controls,commctrl, StdCtrls;
const
TTS_BALLOON = $40;
TTM_SETTITLE = (WM_USER + 32);
var
hTooltip: Cardinal;
ti: TToolInfo; //packed record類型
buffer : array[0..255] of char;
procedure RCreateToolTip(hWnd: Cardinal);
procedure RAddToolTip(hwnd: dword; lpti: PToolInfo; IconType: Integer; Text, Title: PChar;
BackColor,TextColor:TColor);
implementation
{使用API函數CreateWindowEx創建一個具有擴展風格的子視窗作為
飛躍提示用，然後用SetWindowPos函數設置該子視窗的位置和大小。
這樣我們可以定義如下的過程創建飛躍提示窗口（hToolTip）：}
procedure RCreateToolTip(hWnd: Cardinal);
begin
hToolTip := CreateWindowEx(0, ＇＇Tooltips_Class32＇＇, nil, TTS_ALWAYSTIP
or TTS_BALLOON,Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT), hWnd, 0, hInstance, nil);
if hToolTip <> 0 then
begin
//設定新窗口顯示位置
SetWindowPos(hToolTip, HWND_TOPMOST, 0,0, 0, 0, SWP_NOMOVE or
SWP_NOSIZE or SWP_NOACTIVATE);
ti.cbSize := SizeOf(TToolInfo);
ti.uFlags:=TTF_SUBCLASS or TTF_TRANSPARENT;
ti.hInst := hInstance;
end;
end;
procedure RAddToolTip(hwnd: dword; lpti: PToolInfo; IconType: Integer; Text, Title: PChar;
BackColor,TextColor:TColor);
var
Rect: TRect;
begin
if (hwnd <> 0) AND (GetClientRect(hwnd, Rect)) then
begin
lpti.hwnd := hwnd;
lpti.Rect := Rect;
lpti.lpszText := Text;
SendMessage(hToolTip, TTM_ADDTOOL, 0, Integer(lpti));
FillChar(buffer, sizeof(buffer), #0);//填充緩存區
lstrcpy(buffer, Title);//復制字符串到緩存區
if (IconType > 3) or (IconType < 0) then IconType := 0;
if BackColor<>0 then
SendMessage(hToolTip, TTM_SETTIPBKCOLOR, BackColor, 0);
if TextColor<>0 then
SendMessage(hToolTip, TTM_SETTIPTEXTCOLOR, TextColor, 0);
SendMessage(hToolTip, TTM_SETTITLE, IconType, Integer(@buffer));
end;
end;
你可以將其制作成dll來實現共用代碼.有疑問請留言。
库存管理软件版7楼: 请问delphisuccess,我如果把这段程序保存为Pas文件，在程序里引用，但不知道怎样调用，用什么过程名调用啊，请给一个调用的例子，万分感谢！！
联系我们
