|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
12.05.2009, 03:39 | #1 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
Как ограничть вывод текста?
Хотелось бы чтобы при выводе ограничелась текстовочка
скажем в 16 букв. (пробелы так же фиксировались) а после них многоточие ... пример RichEdit1.Text := 'Программирование в Делпхи'; Form1.Caption := RichEdit1.Text а вывод такой Form1.Caption := 'Программирование...';
Дайте мне власть и я переверну ваш мир!...
|
12.05.2009, 04:54 | #3 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
КОRN
знаю только один вариант как ограничить ввод procedure TForm1.FormCreate(Sender: TObject); var cRect : TRect; bm : TBitmap; s : string; begin Windows.GetClientRect(Edit1.Handle, cRect); bm := TBitmap.Create; bm.Width := cRect.Right; bm.Height := cRect.Bottom; bm.Canvas.Font := Edit1.Font; s := 'W'; while bm.Canvas.TextWidth(s) < CRect.Right do s := s + 'W'; if length(s) > 1 then begin Delete(s, 1, 1); Edit1.MaxLength := Length(s); end; end; а через Copy незнаю ... не подскажешь как??? пиши мой ник правильно
Дайте мне власть и я переверну ваш мир!...
Последний раз редактировалось KORN; 12.05.2009 в 05:53. |
12.05.2009, 05:00 | #4 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Код:
I am the First of Cyber Evolution...
I am the First to Program your Future... |
12.05.2009, 05:07 | #5 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
DomiNick Спасибо тебе ОГРОМНОЕ!!! а то я уже пошел на глупняк...
procedure TForm1.Edit1Change(Sender: TObject); var s: string[10]; begin s:=Edit1.Text; end;
Дайте мне власть и я переверну ваш мир!...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
MySQl+PHP5 как сделать запрос на вывод текста в ближайшие 5 дней | xxxsas | SQL, базы данных | 2 | 10.05.2009 14:04 |
C|Вывод текста | Troi666 | Помощь студентам | 4 | 09.05.2009 01:31 |
вывод текста | Shkentik | Общие вопросы Delphi | 5 | 21.04.2009 23:29 |
си++ вывод текста на экран | Sjava | Помощь студентам | 1 | 25.12.2008 20:03 |
Вывод текста(pascal) | Dmtr | Помощь студентам | 1 | 29.05.2008 00:25 |