С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
adlet
0 / 0 / 0
Регистрация: 25.05.2014
Сообщений: 30
1

Procedure TForm1.Button3Click(Sender: TObject);

27.05.2014, 12:53. Просмотров 1277. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
begin
tab1.cells[0,1]:=Edit1.text;
tab1.cells[1,1]:=Form2.edit1.text;
tab1.cells[2,1]:=Form2.listbox1.Items[form2.listbox1.ItemIndex];
tab1.Cells[3,1]:=Form2.combobox1.text;
tab1.cells[4,1]:=maskedit1.text;
tab1.Cells[5,1]:=maskedit2.text;
end;
тут дана таблица, в ней заносятся данные в одну строку, если ввести данные заново то эта строка заменяется введенными данным, нужно чтобы повторные данные заносились на нижние строки таблицы, помогите пожалуйста буду благодарен
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 12:53
Ответы с готовыми решениями:

procedure TForm1.Edit1Change(Sender: TObject);
edit должен увеличиваться ,если в него вводят больше букв,чем он однавременно...

Ошибка в строке: 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,...

2
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
27.05.2014, 13:00 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var i:integer;//глобальная переменная
........................................
procedure TForm1.Button3Click(Sender: TObject);
begin
inc(i);
tab1.cells[0,i-1]:=Edit1.text;
tab1.cells[1,i-1]:=Form2.edit1.text;
tab1.cells[2,i-1]:=Form2.listbox1.Items[form2.listbox1.ItemIndex];
tab1.Cells[3,i-1]:=Form2.combobox1.text;
tab1.cells[4,i-1]:=maskedit1.text;
tab1.Cells[5,i-1]:=maskedit2.text;
end;
0
walfter
14 / 14 / 13
Регистрация: 08.04.2012
Сообщений: 113
27.05.2014, 17:30 3
Можно проще!=)
Delphi
1
2
3
4
5
StringGrid1.Cols[0].Add(Edit1.Text);
StringGrid1.Cols[1].Add(Edit2.Text);
StringGrid1.Cols[2].Add(Edit3.Text);
StringGrid1.Cols[3].Add(Edit4.Text);
StringGrid1.Cols[4].Add(Edit5.Text);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2014, 17:30

Как создать процедуру 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:...


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

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

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