label обозначить текст как мысль

[Женя32]

Здравствуйте!
Есть программа, которая выводит разные фразы в label.
Можно ли этот текст, как-то, обозначить как мысль? Ну там типа облачко, и на облачке текст.

[Женя32]

Может у label есть свойство типа border?

[type_Oleg]

В VCL Delphi вроде нет таких украшений для Label.
Может вам лучше свойство .hint использовать у какого-то компонента, например у Button (см. рис).
Правда, там тоже нет оформления "в виде мысли".
Надо вам посмотреть всякие доп. компоненты, которые народ в сети выкладывает. Типа " красивое оформление компонентов Delphi "

[Женя32]

Я сделал так:
На форму добавил компонент img, загрузил вышеприведенную картинку, сверху img кинул label.
По нажатию кнопки, вычисляется высота label и img, и если h_lab > h_img то узнаем на сколько высота label больше высоты img, и эту разницу прибавляем к высоте img. Но, почему-то, новая высота img применяется с опозданием, т.е. при втором клике на кнопке. Получается что img подстраивается под высоту предыдущего текста в label.
Как лучше сделать:

procedure TForm1.Button1Click(Sender: TObject);
var
  lab_h, img_h, deff_h, new_img_h: Integer;
begin
    label1.Caption:=gen_fraz;

    lab_h:=label1.Height;
    img_h:=image1.Height;
    if lab_h > img_h  then
      begin
        deff_h:= lab_h-img_h;
        new_img_h:=deff_h+img_h;
        image1.Height:=new_img_h;
      end;

end;

[Alex11223]

Картинка плохо выглядеть будет при ресайзе, особенно непропорциональном.
Лучше уж тогда самому рисовать на Canvas, тут же не особо сложные фигуры.

[Женя32]

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

Картинка плохо выглядеть будет при ресайзе, особенно непропорциональном.
Лучше уж тогда самому рисовать на Canvas, тут же не особо сложные фигуры.

А как это сделать в моем примере?

[Женя32]

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

Картинка плохо выглядеть будет при ресайзе, особенно непропорциональном...

Вид картинки пока не интересует, вопрос в другом, как правильно изменять размер img, при изменении текста в label?

[northener]

Сообщение от Женя32

Можно ли этот текст, как-то, обозначить как мысль?

Это называется Baloon hint. Именно это словосочетание ищите в поисковиках.

[Женя32]

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

Это называется Baloon hint. Именно это словосочетание ищите в поисковиках.

Дак, это работает по наведению мыши, и текст должен быть статичен, а у меня текст по клику кнопки меняется и выводится в label.
Вот посмотрите, пожалуйста, проект-пример, который я прикрепил в посте #4.

[Serge_Bliznykov]

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

Это называется Baloon hint

гугл говорит, что Balloon hint

пример, с TMS - https://www.youtube.com/watch?v=orUXFIZqx1c