Discussion :

[Powerdj]

Salut,

En Delphi 7 et D2010 je utiliser ce code pour afficher les bulles qui montrent bien lorsque vous passez le pointeur de la souris sur le bouton ( TBitBtn ) mais lorsque vous appuyez sur le bouton et ré- pointeur sur le bouton le ballon ne montre pas encore.

Solution SVP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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.GetClientRect(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.FormCreate(Sender: TObject);
begin
 
ShowBalloonTip(BitBtn1, 1, 'Information',
'Salutations militaires à Delphi', $00D5FFFF, clblack);
 
end;

[droggo]

Moa,

Pour Powerdj : je te l'ai déjà dit en MP, mais tu persistes, alors

Arrête de me bombarder de messages privés pour demander de l'aide !!

et surtout pour me dire "En attente de réponse dans le forum !!!"

Tout le monde ici est bénévole, et rien ne nous oblige à te répondre, et encore moins en urgence.

En ce qui me concerne, tu as désormais une étiquette pas flatteuse du tout, et tu n'auras aucune réponse de ma part.

[Powerdj]

et surtout pour me dire "[COLOR="#FF0000"][B][SIZE=4]En attente de réponse dans le forum !!!

Je ne voulais pas offenser ou ordre , mais je l'aime beaucoup la programmation et de la soif de la réponse que je l'ai trouvé dans l’événement (OnMouseMove)