[delpi12]

как сделать что бы в Edit был прозрачный текст который при введение в Edit все исчезла , как на сайтах (введите логин , парол ) ?

[Alegun]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with (Sender as TEdit) do
if Font.Color = clSilver then
begin
Font.Color:= clBlack;
Text:= '';
end;
end;

// Для проверки
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Color:= clSilver;
Edit1.Text:='введите логин , парол';
end;

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  EM_SETCUEBANNER = $1501;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Banner: String;
  buf: array [0..$ff] of Char;
begin
  Banner:=UTF8Encode('Введите логин');
  Utf8ToUnicode(PWideChar(@buf), PAnsiChar(Banner), Length(Banner));
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(@buf));
end;

end.

[M.A.D.M.A.N.]

Увы, но с посылом сообщения только с ХПхи будет работать (и походу только при наличии манифеста)
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[poli-smen]

Сообщение от NumLock

Код:

.....
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(@buf));
.....

Прикольно. Не знал что такая возможность появилась в XP. Плохо конечно что обязательно требуется наличие манифеста.
Единственно я не понял зачем нужны лишние преобразования. Вот так попроще будет:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Banner: WideString;
begin
  Banner := 'Введите логин';
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(Banner));
end;

или даже так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
const
  Banner: WideString = 'Введите логин';
begin
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(Banner));
end;

[delpi12]

Сообщение от poli-smen

Прикольно. Не знал что такая возможность появилась в XP. Плохо конечно что обязательно требуется наличие манифеста.
Единственно я не понял зачем нужны лишние преобразования. Вот так попроще будет:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Banner: WideString;
begin
  Banner := 'Введите логин';
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(Banner));
end;

или даже так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
const
  Banner: WideString = 'Введите логин';
begin
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(Banner));
end;

не работает так

[poli-smen]

Сообщение от delpi12

не работает так

Всё прекрасно работает (при наличии манифеста). Проверил на Delphi 7 и Delphi XE2.

Delphi 7:


Delphi XE2:

[NumLock]

Сообщение от poli-smen

зачем нужны лишние преобразования

издержки выдирания из рабочего кода)))

дополнение
первый параметр сообщения EM_SETCUEBANNER может быть false (0) или true (>0). при true подсказка показывается даже когда edit имеет фокус ввода.