[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;

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