Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.70/20: Рейтинг темы: голосов - 20, средняя оценка - 4.70
spydark91
86 / 86 / 13
Регистрация: 03.03.2011
Сообщений: 1,873
1

procedure TForm1.Edit1Change(Sender: TObject);

04.05.2011, 22:01. Просмотров 3775. Ответов 3
Метки нет (Все метки)

edit должен увеличиваться ,если в него вводят больше букв,чем он однавременно может отобразить
написал для этого такой код
Delphi
1
2
3
4
5
6
procedure TForm1.Edit1Change(Sender: TObject);
begin
l:=length(edit1.Text);
if l>edit1.Width then
edit1.Width:=edit1.Width+21;
end;
не работает,объясните в чем дело плиз
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2011, 22:01
Ответы с готовыми решениями:

Procedure TForm1.Button3Click(Sender: TObject);
procedure TForm1.Button3Click(Sender: TObject); begin tab1.cells:=Edit1.text;...

Ошибка в строке: procedure TForm1.Button1Click (Sender: TObject)
Пишет ошибку в строке: procedure TForm1.Button1Click (Sender: TObject); ...

выдает ошибку в строке PROCEDURE TForm1.Button1Click(Sender: TObject);
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...

Как в Delphi 7 вызвать TForm1.N1Click(Sender: TObject)?
как в Delphi 7 вызвать TForm1.N1Click(Sender: TObject);

Показывает ошибку в procedure Form2Button1Click(Sender: TObject);
unit Unit2; interface uses Windows, Messages, SysUtils, Variants,...

3
maxo
хацкер
172 / 157 / 33
Регистрация: 19.01.2011
Сообщений: 425
04.05.2011, 22:11 2
Это явно лишнее поставте на эдит maxlength 20 чтобы никто не смог ввести больше 20 символов, а вы знаете в чем разница между length и width? Их даже сравнить нельзя.
0
Romantik_FM
310 / 306 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
04.05.2011, 22:23 3
spydark91, ты хочешь что бы растягивался Edit?

Добавлено через 2 минуты
Delphi
1
2
3
4
5
6
procedure TForm1.Edit1Change(Sender: TObject);
begin
l:=length(edit1.Text);
if length(edit1.Text)>20 then
edit1.Width:=edit1.Width+21;
end;
Попробуй так
1
d0lmat
28 / 28 / 4
Регистрация: 28.04.2011
Сообщений: 79
05.05.2011, 10:41 4
Лучше вот так:

Delphi
1
Edit1.Width := Form4.Canvas.TextWidth(Edit1.Text) + 15;
TextWidth(Text: string); - вычисляет ширину текста в пикселях.

Тогда как Length всего лишь возвращает кол-во символов.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2011, 10:41

Как создать процедуру procedure RadioButtonClick(Sender: TObject);?
procedure RadioButtonClick(Sender: TObject); //Как общую процедуру сделать?

Не могу понять в чём ошибка procedure Form2FormCreate(Sender: TObject);
unit Unit2; interface uses Windows, Messages, SysUtils, Variants,...

Игра угадай слово по буквам. Выдает ошибку в procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button1Click(Sender:...


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

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

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