многострочный хинт с делением по словам

[uraura]

имеется:
Edit1.text - строка в несколько слов (естесственно не влазит целиком в поле ввода)
нужно:
показать хинт который при большом количестве слов будет выводить текст по словам в несколько строк (желательно обвести его в RoundRec)

[chertovich]

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

имеется:
Edit1.text - строка в несколько слов (естесственно не влазит целиком в поле ввода)
нужно:
показать хинт который при большом количестве слов будет выводить текст по словам в несколько строк (желательно обвести его в RoundRec)

Код немного поправь, а так норма

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: String;
begin
  Edit1.ShowHint := True;
  Str := Edit1.Text;
  while Length(Str) > 0 do
  begin
    if Str <> Edit1.Text then
      Edit1.Hint := Edit1.Hint + #13;
    Edit1.Hint := Edit1.Hint + Copy(Str, 1, 10);
    Delete(Str, 1, 10);
  end;
end;

[uraura]

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

[chertovich]

Вот я поэтому и написал что надо поправить)
Ставь + в репутацию напишу как ты хочешь))

[uraura]

примерно так
если строка более 100 символов то нужно найти последний до 100го символа пробел и отрезать строку после него
потом добавить #13
снова проверить остаток на длину в 100 символов опять отрезать по пробел и тд пока строка не кончится
типо так только в код осталось перевести
+уже нажал)))

[chertovich]

Ты забыл про мой "вопрос" к тебе, читай выше

[uraura]

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

Ты забыл про мой "вопрос" к тебе, читай выше

не забыл читай выше

так никто мне и не помог совсем

[uraura]

ну вот я сам сделал зацените пожалуйста

на форме1 едит и у него хинт с помощью второй формы на которой лайбл с wordwrap:=true
вот код

//при наведении на едит показываем форму2 с его текстом
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form2.Top:=Mous.CursorPos.y;
Form2.Left:=Mous.CursorPos.x;
Form2.label1.Caption:=edit1.Text;
ShowWindow(Form2.Handle, SW_SHOWNA);
end;

//при смещении курсора с едита на форму1 прячем форму2
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ShowWindow(form2.Handle, SW_HIDE);
end;

[uraura]

и еще для скругления моего хинта

//в процедуре создания формы2 задаем размеры и делаем ее скругленной
procedure TForm2.FormCreate(Sender: TObject);
var
Region: Cardinal;
begin
Form2.Height:=100;
Form2.Width:=400;
label1.Top:=20;
label1.Left:=20;
label1.Height:=80;
label1.Width:=380;
with Form2 do
begin
Region := CreateRoundRectRgn(10, 10, Width, Height, 30,30);
SetWindowRgn(Handle, Region, True);
end;
end;