Edit.Text

[Cassius]

Здравствуйте форумчане! Начал писать дипломную работу по теме "электронный учебник". Вопрос в следующем. Нужно сделать так, когда нажимаешь на мышкой или Tabуляцией текст в нем исчез.

[AlDelta]

Смотрите в сторону события OnEnter

[Cassius]

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

Смотрите в сторону события OnEnter

AlDelta Подробнее можно? я нубб в этом. неделю назад открыл для себя Delphi.

[Cassius]

Разобрался с этим. но все равно не так как хочется)

OnClick/

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end.

__________________________
не пишите несколько отдельных коротких сообщений подряд.
Есть что добавить - нажимайте на своём крайнем сообщении кнопка "Правка" и дописывайте..
Модератор.

[Cassius]

Справился. уффф.... еще вопрос? как сделать чтоб в Edit1.Text. при наборе набирались символы '*' как при заполнении пароля.

[AlDelta]

Вкладка Additional, компонент TMaskEdit + [А. Архангельский. 100 компонентов ]

[Пепел Феникса]

а зачем TMaskEdit?
TEdit.PasswordChar

[asmodey1]

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

Вкладка Additional, компонент TMaskEdit + [А. Архангельский. 100 компонентов ]

Добавлю :
http://www.programmersforum.ru/showthread.php?t=120429

[Cassius]

да я явно большой тормоз только взялся за работу (
еще вопрос

procedure TForm2.sEdit1Click(Sender: TObject);
begin
sEdit1.Text:='';
end;

procedure TForm2.sEdit2Click(Sender: TObject);
begin
sEdit2.Text:='';
end;

procedure TForm2.sEdit3Click(Sender: TObject);
begin
sEdit3.Text:='';
end;


procedure TForm2.sEdit1Exit(Sender: TObject);
begin
sEdit1.Text:='Аты';
end;

procedure TForm2.sEdit2Exit(Sender: TObject);
begin
sEdit2.Text:='Тегі';
end;

procedure TForm2.sEdit3Exit(Sender: TObject);
begin
sEdit3.Text:='Топ';
end;

так вот хотелось бы сделать так чтоб когда курсор мыши уходил с Edit'а там опять возвращалось слово.
думал через sEdit2Exit но при заполнение и при переходе на другой Edit возвращает прежнее значение(

[Человек_Борща]

OnMouseEnter,OnMouseLeave,OnMouseMo ve события...