|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как сделать что бы в Edit был прозрачный текст который при введение в Edit все исчез
как сделать что бы в Edit был прозрачный текст который при введение в Edit все исчезла , как на сайтах (введите логин , парол ) ?
|
#2
|
||||
|
||||
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
Код:
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. Пишу программы за еду. __________________ |
#4
|
||||
|
||||
Увы, но с посылом сообщения только с ХПхи будет работать (и походу только при наличии манифеста)
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
Цитата:
Единственно я не понял зачем нужны лишние преобразования. Вот так попроще будет: Код:
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; |
#6
|
|||
|
|||
Цитата:
не работает так |
#7
|
||||
|
||||
Цитата:
Delphi 7: Delphi XE2: |
#8
|
||||
|
||||
Цитата:
дополнение первый параметр сообщения EM_SETCUEBANNER может быть false (0) или true (>0). при true подсказка показывается даже когда edit имеет фокус ввода. Пишу программы за еду. __________________ |