Возвращаясь к хинтам!

← →
Jack (2003-11-09 14:34) [0]

Возвращаясь к хинтам!
все выше описанное замечательно, но как сделать хинт подобнай дельфевскому?
есть edit1, его hint="1|2|3|4|5...";
изменение hint происходит на событие keypressed у edit1.
edit1.hint:=getlonghint(edit1.hint);
так вот как сделать так что бы хинт не исчезал при вводе с клавиатуры, и вися постоянно менялся пока не закончится ввод.

← →
Jack (2003-11-09 14:45) [1]

Application.ShowHint был испробован.
Application.OnHint тоже.
Как только курсор исчезает, Hint исчезает тоже, но и при настройке системы(показывать курсор при вводе с клавиатуры) хинт исчезает аналогичным способом.

← →
Dmitry © (2003-11-09 14:53) [2]

Application.ActivateHint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));

Showhint должен быть true

← →
Jack (2003-11-09 14:55) [3]

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

← →
Dmitry © (2003-11-09 14:57) [4]

На чем отображался-то? На Edit"e, на форме уточни.

← →
Jack (2003-11-09 15:02) [5]

у edita в котором вводится текст

← →
Jack (2003-11-09 15:11) [6]

Application.ActivateHint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));

Showhint должен быть true

Не работает даже если поставить

Application.HintHidePouse:=100000;

← →
Dmitry © (2003-11-09 15:19) [7]

procedure TForm1.Edit1Enter(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Hint:=Edit1.Text;
Application.ActivateHint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));
end;

showhint на форме должен быть равен true;

← →
Dmitry © (2003-11-09 15:19) [8]

timer1.interval:=10;

← →
Jack (2003-11-09 15:23) [9]

так интересно, я не попробовал, но мне надо немного другое... мне не надло чтоб он постоянно горел, мне надо что ба на вводе горел, когда грубо говоря edit1 активен.

← →
Dmitry © (2003-11-09 15:26) [10]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Hint:=Edit1.Text;
Application.ActivateHint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));
end;

← →
Jack (2003-11-09 15:28) [11]

ТОрможу.... сча опробирую...

так будет гореть всегда хинт у курсора, даже если курсор не на едите, и едит активен, или вводят он на вводе.

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

Как вариант, создавай к примеру StaticText у курсора мыши на время активности едита, сработает железно, прада сделано будет через ж... =-))))))))))

← →
Jack (2003-11-09 15:32) [13]

НЕ ПАШЕТ!!!!!

← →
Jack (2003-11-09 15:34) [14]

буду копать как найду сообщу!

Возвращаясь к хинтам! Найти похожие ветки