XComponents/XButtonedEdit.pas at master · nickolasdeluca/XComponents · GitHub

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
unit XButtonedEdit;

interface

uses
  { Winapi }
  Winapi.Windows, Winapi.Messages,
  { System }
  System.SysUtils, System.Classes,
  { Vcl }
  Vcl.Controls, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Themes;

type
  TXButtonedEdit = class(TButtonedEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure DoSetTextHint(const Value: string); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

implementation

{ TXButtonedEdit }

procedure TXButtonedEdit.DoSetTextHint(const Value: string);
const
  EM_SETCUEBANNER = $1501;
begin
  inherited;
  if CheckWin32Version(5, 1) and StyleServices.Enabled then
    SendMessage(Handle, EM_SETCUEBANNER, wParam(1), Integer(PWideChar(Value)));
end;

end.