Delphi - [решено] speedbuton. окно с доп. информацией

LilLoco · Конфигурация компьютера

NickDang, Как вы быстро темы создаете

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

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

NickDang · Отправлено: **19:42, 24-01-2012** | #3

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

NickDang · Отправлено: **21:29, 24-01-2012** | #4

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

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

LilLoco · Конфигурация компьютера

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

Код:

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

NickDang · Отправлено: **23:34, 24-01-2012** | #6

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

Любезный · Отправлено: **23:36, 24-01-2012** | #7

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

NickDang · Отправлено: **23:48, 24-01-2012** | #8

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

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

Код:

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;

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