[решено] speedbuton. окно с доп. информацией - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] speedbuton. окно с доп. информацией (http://forum.oszone.net/showthread.php?t=226146)

NickDang

24-01-2012 19:27 1843619

speedbuton. окно с доп. информацией

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

LilLoco

24-01-2012 19:31 1843623

NickDang, Как вы быстро темы создаете :)
Если нужно обычное всплывающее окно типа подсказки, то у speedbutton свойство ShowHint ставите в true, а в свойство Hint пишите текст...

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

NickDang

24-01-2012 19:42 1843636

Аааа, понял )) всё спасибо!

NickDang

24-01-2012 21:29 1843723

ещё возник такой вопрос, как перейти в Hint на следующую строку?
Строка1
Строка2

Искал в интернете, но не понял как делать.

LilLoco

24-01-2012 23:11 1843814

Пробовали управляющие символы?
Если нет, то попробуйте между строками вставить #13#10.

Код:

Первая строка #13#10 Вторая строка

NickDang

24-01-2012 23:34 1843829

Ну в параметрах? Hint. Там если просто вписать Первая строка #13#10 Вторая строка то он так и прочитает его...

Любезный

24-01-2012 23:36 1843831

NickDang, хорошо бы Вам вначале почитать про типы данных в Delphi и изучить правила записи строковых констант и переменных - сразу поймёте, что это пример гипотетический.

NickDang

24-01-2012 23:48 1843834

Скачал исходник, там каждая строка начиналась на @. хм... ничё не получилось, что-то упустил

добавил в форму:

Код:

procedure TForm1.FormCreate(Sender: TObject);

Var I: Integer;

    S: String;

begin

for I := 0 to ComponentCount -1 do

  if Components[i] is TControl then

    With TControl(Components[i]) Do

    Begin

      S := Hint;

      While Pos('@',S) <> 0 Do

        S[Pos('@',S)] := #13;

      Hint := S;

    End;

    end;

ВСЁ ПОЛУЧИЛОСЬ)

Время: 15:30.