ok Nesler thanks for ur recommendations, i will try in that angle. regards, Vijay.
--- In [email protected], "Nesler, Thomas J" <tnes...@...> wrote: > > So the balloon is supposed to help the user find an edit control? I would > recommend changing the font or color of the edit control instead. It is > easier to do and all you have to do is refresh the control to make the > changes viewable. > > You would have to go into the Win32 controls to access the feature and change > its behavior. > > Tom Nesler > > -----Original Message----- > From: [email protected] [mailto:[email protected]] On Behalf > Of forbvijay > Sent: Thursday, November 05, 2009 1:27 PM > To: [email protected] > Subject: [delphi-en] Re: Balloon tips > > > say suppose when a user clicks a particular button a balloon is to be pop > ed up on an edit control(to attract his attention on to that control); in the > present situation user must click on the button and only when he places the > mouse cursor on the edit control he can see the balloon. > > > > > --- In [email protected], David Smith <djsmith_1998@> wrote: > > > > You've got it on "an event that fires". Please be more descriptive of the > > actual problem. > > > > --- On Thu, 11/5/09, forbvijay <forbvijay@> wrote: > > > > From: forbvijay <forbvijay@> > > Subject: [delphi-en] Balloon tips > > To: [email protected] > > Date: Thursday, November 5, 2009, 10:09 AM > > > > > > > > > > > > > > > > Â > > > > > > > > > > > > > > > > > > > > hi, > > > > > > > > i have a code for balloon tool tips which pops up a balloon only when the > > mouse is moved on to the control, my requirement is that it should be pop > > ed up when an event fires. > > > > > > > > Can any one provide solution for this problem? > > > > > > > > the code i am having is like this: > > > > > > > > [CODE] > > > > > > > > uses > > > > Commctrl; > > > > > > > > procedure ShowBalloonTip( Control: TWinControl; Icon: integer; Title: > > pchar; Text: PWideChar; > > > > BackCL, TextCL: TColor); > > > > const > > > > TOOLTIPS_CLASS = 'tooltips_class32' ; > > > > TTS_ALWAYSTIP = $01; > > > > TTS_NOPREFIX = $02; > > > > TTS_BALLOON = $40; > > > > TTF_SUBCLASS = $0010; > > > > TTF_TRANSPARENT = $0100; > > > > TTF_CENTERTIP = $0002; > > > > TTM_ADDTOOL = $0400 + 50; > > > > TTM_SETTITLE = (WM_USER + 32); > > > > ICC_WIN95_CLASSES = $000000FF; > > > > type > > > > TOOLINFO = packed record > > > > cbSize: Integer; > > > > uFlags: Integer; > > > > hwnd: THandle; > > > > uId: Integer; > > > > rect: TRect; > > > > hinst: THandle; > > > > lpszText: PWideChar; > > > > lParam: Integer; > > > > end; > > > > var > > > > hWndTip: THandle; > > > > ti: TOOLINFO; > > > > hWnd: THandle; > > > > begin > > > > hWnd := Control.Handle; > > > > hWndTip := CreateWindow( TOOLTIPS_ CLASS, nil, > > > > WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP, > > > > 0, 0, 0, 0, hWnd, 0, HInstance, nil); > > > > if hWndTip <> 0 then > > > > begin > > > > SetWindowPos( hWndTip, HWND_TOPMOST, 0, 0, 0, 0, > > > > SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); > > > > ti.cbSize := SizeOf(ti); > > > > ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS; > > > > ti.hwnd := hWnd; > > > > ti.lpszText := Text; > > > > Windows.GetClientRe ct(hWnd, ti.rect); > > > > SendMessage( hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0); > > > > SendMessage( hWndTip, TTM_SETTIPTEXTCOLOR , TextCL, 0); > > > > SendMessage( hWndTip, TTM_ADDTOOL, 1, Integer(@ti) ); > > > > SendMessage( hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title) ); > > > > end; > > > > end; > > > > > > > > procedure TForm1.Button1Click (Sender: TObject); > > > > begin > > > > ShowBalloonTip( Button1, 1, 'Title', > > > > 'Text', clBlue, clNavy); > > > > end; > > > > > > > > [/CODE] > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > [Non-text portions of this message have been removed] > > > > > > > ------------------------------------ > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: delphi-en-unsubscr...@...! Groups Links >
