Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
willgelm
0 / 0 / 0
Регистрация: 15.03.2017
Сообщений: 50
#1

Строка больше 255 символов - Delphi

02.06.2017, 15:25. Просмотров 162. Ответов 2
Метки нет (Все метки)

Сделал бегущую строку таким образом:
Delphi
1
2
3
4
5
6
7
procedure TForm1.FormResize(Sender: TObject); 
begin
WebBrowser1.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
  'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
  IntToStr(WebBrowser1.height-5)+'" width="'+IntToStr(WebBrowser1. width)+
  'bgcolor="white" scrollamount="3" behavior="scroll" direction="rtl" ><font color="rgb(23,84,147)" fase="Times New Poman" size="+2"><small>Бегущая строка</small></font></marquee></body>');
end;
Как сделать так, чтобы в эту бегущую строку вместилось больше 255 символов?
Пробовал делать с разделителем, что-то в этом роде:
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.FormResize(Sender: TObject); 
var st:string;
begin
st:='Не имеет смысла нанимать толковых людей, а затем указывать, что им делать. Мы нанимаем '+'толковых людей, чтобы они говорили, что делать нам.';
WebBrowser1.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
  'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
  IntToStr(WebBrowser1.height-5)+'" width="'+IntToStr(WebBrowser1. width)+
  'bgcolor="white" scrollamount="3" behavior="scroll" direction="rtl" ><font color="rgb(23,84,147)" fase="Times New Poman" size="+2"><small>'+st+'</small></font></marquee></body>');
end;
но тогда вообще ничего не отображалось.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2017, 15:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Строка больше 255 символов (Delphi):

Больше 255 символов и WriteBinaryData - Delphi
Для записи инфы в реестр использую такой код: procedure TForm1.Button1Click(Sender: TObject); var s : string; Buff :...

Подскажите переменную, в которую можно записать больше 255 символов - Delphi
Я использую в своей программе переменную типа String. Но мне нужно туда записать данные из ListBox1.Items.Text и программа вылетает с...

Дана строка символов. Определить, каких букв – гласных или согласных – больше в этой строке. - Delphi
Дана строка символов. Определить, каких букв – гласных или согласных – больше в этой строке. Помогите пожалуйста решить задачу!

Дана строка символов. Группа символов между пробелами считается словом. Определить количество слов, являющихся палиндромом. - Delphi
Дана строка состоящая из слов разделенных пробелом определить номера слов. Название темы изменено, исходя из обсуждения ниже. Прежнее...

Дана строка символов, среди которых есть двоеточие(":"). Определить, сколько символов ему сопутствуют - Delphi
Есть такая задача: Дана строка символов,среди которых есть двоеточие(&quot;:&quot;).Определьть,сколько символов ему сопутствуют. Дело в том что...

строка символов - Delphi
Кто-нибудь,плиииз помогите,ничего не понимаю. дана строка символов.Известно,что в этой строке несколько раз встречается буква&quot;а&quot;.Вывести...

2
Пытливый
1313 / 629 / 148
Регистрация: 29.05.2013
Сообщений: 2,718
02.06.2017, 18:53 #2
Не, так не выйдет. Адресная строка не может быть больше 255 символов т.к. аргументом идет WideString.
Надо просто другой метод использовать:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  WBDoc: Variant;
  ScrollText, Htm: String;
begin
 ScrollText := 'Не имеет смысла нанимать толковых людей, а затем указывать, что им делать. Мы нанимаем ' +
               'толковых людей, чтобы они говорили, что делать нам.';
 Htm := '<body topmargin="0" leftmargin="0" marginwidth="0"'+
        'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
        IntToStr(WebBrowser1.height-5)+'" width="'+IntToStr(WebBrowser1. width)+
        'bgcolor="white" scrollamount="3" behavior="scroll" direction="rtl" >'+
        '<font color="rgb(23,84,147)" fase="Times New Poman" size="+2"><small>'+ScrollText+'</small></font></marquee></body>';
 WebBrowser1.Navigate('about:blank');
 WBDoc := WebBrowser1.Document;
 WBDoc.Clear;
 WBDoc.Write(Htm);
 WBDoc.Close;
end;
0
willgelm
0 / 0 / 0
Регистрация: 15.03.2017
Сообщений: 50
02.06.2017, 20:29  [ТС] #3
Пытливый, спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2017, 20:29
Привет! Вот еще темы с ответами:

Дана строка символов - Delphi
Delphi Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.

дана строка символов... - Delphi
Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.

Поиск пары и больше одинаковых символов - Delphi
В моей программе есть процедура, которая выдает сообщение, если найдены в ValueListEDitor-е одинаковые символы. Но она не показывает...

Является ли исходная строка символов анаграммой - Delphi
2. Определите, является ли исходная строка символов анаграммой (читается одинаково с начала и с конца).


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.