Цитата:
|
Сообщение от 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;