Скрытие символов на половину Edit

[KBO]

Доброе время суток форумчане.
Все знают, что у «TMaskEdit» и «TEdit» есть свойство «PasswordChar», а можно этим свойством воспользоваться для скрытия части символов (т.е. н-р, чтобы одна часть слова была нормальной, а другая закрывалась звездочками)?

А то:

procedure TFMain.HideSymbol(ANumber: integer);
var
  LString: string;
  LLength: integer;
begin
   LLength := length(Edit1.Text);
   LString := Edit1.Text;
   Delete(LString, ANumber, 1000);
   Edit1.Text := LString;
   for LLength := ANumber to LLength do
     Edit1.Text := Edit1.Text + '*';
end;

procedure TFMain.Button1Click(Sender: TObject);
begin
   HideSymbol(4);
end;

Как-то сильно громоздко выглядит.

Заранее спасибо

[Stilet]

Для части врядли. Делай несколько эдитов раз уж хочется именно часть скрыть.

[Алексей_2012]

В теории, а что если содержимое эдита добавлять в память как строку, а введенные данные стереть и заменить на звездочки, потом копировать пол строки из эдита при условии..., не, ну теория тоже имеет место быть

[Stilet]

теория тоже имеет место быть

Теорию такую ТС кодом описал. Но говорит, что громоздко.

[min@y™]

а как эту фишку использовать на практике? и зачем?

[Алексей_2012]

Я думаю затем, чтоб реализовать что-то типо секундного показа пароля, когда вводится новый символ в строку.

Т.е. ввод символа, пароль виден секунду, потом исчезает ...наверное так, но мы не телепаты

Если нужно сделать так, то TtIMER вам в помощь (я КЭП )

[KBO]

Сообщение от min@y™

а как эту фишку использовать на практике? и зачем?

очень просто, программа для запоминания английских слов.
При повторе слова, если пользователь его забыл, я сделал, так чтобы можно открыть, сначало первую, потом (если что вторую), и третью начальные буквы.

у меня до этого были, вместо "Edit", "dbEdit", а там можно было использовать например, для открытия первой быквы:

dbEdit.Fields.EditMask := 'c'+LString_symbol_SSE+';1;*';

но это мне не понравилось, т.к. эта реализация меняла символы в "DataSet".

Мне пришлось "DbEdit" завязать с "Edit", который исключает изменения в "DataSet".

Поэтому наверно #1 - для меня лучший вариант

[min@y™]

При повторе слова, если пользователь его забыл, я сделал, так чтобы можно открыть, сначало первую, потом (если что вторую), и третью начальные буквы.

Тогда зачем тут Edit (и его потомки)? Берёшь текст и рисуешь, как душе угодно на понравившемся канвасе. Быстро и красиво.

[KBO]

Сообщение от min@y™

Тогда зачем тут Edit (и его потомки)? Берёшь текст и рисуешь, как душе угодно на понравившемся канвасе. Быстро и красиво.

Ну просто в "Edit", текст как-то более привычно выглядет, чем на "canvas"

[min@y™]

Ну просто в "Edit", текст как-то более привычно выглядет, чем на "canvas"

Да неужели?!
А как текст выглядит на канвасе, чтобы это выглядело непривычно? Может я чото не понимаю?