- •В ид экрана после запуска Delphi
- •Пишем первую программу
- •Icon — иконка в строке заголовка;
- •Основные события формы:
- •Items — коллекция строк;
- •IntToStr — это и есть функция перевода из целочисленного типа в строковый, а StrToInt — обратно.
- •Основные cвойсва:
- •Visible — виден ли элемент;
- •Простейший текстовый редактор
Icon — иконка в строке заголовка;
Color — цвет фона формы;
AlphaBlend — использовать ли прозрачность формы;
AlphaBlendValue — степень прозрачности формы (0-прозрачна польностью, 255-непрозрачна);
BorderStyle — тип границы, обрамляющей форму;
Значения BorderStyle:
bsDialog — форму можно только переместить и закрыть, кнопки свернуть/развернуть отсутствуют;
bsNone — нет рамки, кнопок max/min, закрыть и оконного меню;
bsSingle — форму можно свернуть и развернуть, но нельзя изменить размер формы перетаскиванием за края;
bsSizeable — размер формы можно изменять, используется по умолчанию;
bsSizeToolWin — форма отображается аналогично Sizable, отсутствуют кнопки max/min, а текст в заголовке формы выводиться уменьшенным шрифтом;
bsToolWindow — Форма отображается аналогично предыдущему свойству, с тем отличием, что размер формы нельзя будет изменить перетаскиванием за края.
Основные события формы:
onCreate — происходит при создании формы;
onShow — происходит при показе формы на экран (например сворачивание и разворачивание);
onActivate — происходит при активации формы;
onPaint — происходит при перерисовке формы;
onResize — происходит при изменении размера формы;
onCloseQuery — происходит при закрытии формы нажатием на кнопку закрыть;
onClose — происходит при закрытии формы, не обязательно кнопкой закрыть;
onClick — происходит при клике по форме;
onDblClick — происходит при двойном клике по форме;
onMouseMove — происходит при движении мышкой по форме;
onMouseDown — происходит при нажатии кнопки мыши без отпускания;
onMouseUp — происходит при отпускании кнопки мыши;
Компоненты TEdit, TMemo, TListBox
TEdit
Этот компонент представляет из себя текстовое поле ввода. У него есть такие же свойства как и у TButton.
Основные cвойства:
Text — это текст который введен;
ReadOnly — разрешенн ли ввод;
MaxLength — максимальная длинна текста. Измеряется в колличестве символов;
HideSelection — будет ли сниматься выделение с текста при потере компонентом фокуса;
PasswordChar — символ отображаемый вполе вместо всех других символов - используется для скрытия пароля;
Основные события:
onChange — происходит при любом изменении отображаемого текста;
onClick — происходит при клике по компоненту;
Все остальные свойства аналогичны свойствам формы.
Научимся программно извлекать введенные данные, а также записывать в поле. Для этого выложим на форму 2 Button и 1 Edit.
Создаем событие по клику на первую кнопку и пишем следующий код:
ShowMessage('В Edit1 написан текст: '+Edit1.Text);
Текст "В Edit1 написан текст: " будет выводиться всегда во всех сообщениях. К нему мы прибавляем Edit1.Text, т.е. строчку содержащую текст введенный в Edit.
А по нажатию на вторую кнопку будем в поле Edit1 присваивать что-нибудь свое.
Edit1.Text:='Текст изменился';
В итоге у Вас должно получиться 2 процедуры:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('В Edit1 написан текст: '+Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='Текст изменился';
end;
TMemo
Основные свойства:
Lines — содержит все строки введенные в компонент;
ReadOnly — разрешенн ли ввод;
MaxLength — максимальная длинна текста. Измеряется в колличестве символов;
HideSelection — будет ли сниматься выделение с текста при потере компонентом фокуса;
ScrollBars — какие полосы прокрутки будут отображаться;
WantReturns — разрешено ли использовать клавишу Enter;
WantTabs — разрешено ли использовать клавишу Tab;
WordWrap — будет ли переноситься текст на новую строчку если не входит;
События аналогичны компоненту TEdit.
Теперь научимся работать с TMemo. Создайте новый проект (File –> New –> Application). Выложите на форму 1 TMemo и 1 TButton. Выделите Memo1 и найдите свойство Lines в инспекторе объектов. Щелкните по этому свойству, а затем по кнопке . Появится окно с текстом "Memo1" — это текст который будет в Memo при запуске программы. Его можно убрать, что и нужно сделать. Теперь создаем событие по нажатию на кнопку:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('Была нажата кнопка');
end;
Теперь после нажатия на кнопку в Memo1 добавится новая строчка.
Выложите еще одну кнопку и в событии onClick пишем:
Memo1.Lines.Delete(0);
Теперь после нажатия на вторую кнопку удалится самая первая строчка. "0" и означает что будет удалена нулевая строчка (нумерование ведется начиная с 0)
А если нам нужно взять i-тую строчку и вывести ее на экран мы пишем следующий код:
ShowMessage(Memo1.Lines[0]);
В данном случае мы извлекаем нулевую строчку.
Колличество написанных строк хранится тут:
Memo1.Lines.Count;
Обратите внимание, что тут нумерация идет с 1. А следовательно если будем прогонять все строки в цикле то будем писать так:
For i:=0 to Memo1.Lines.Count-1 do
begin
{Выполняем то что нужно}
end;
Чтобы сохранить весь текст в файл просто пишем:
Memo1.Lines.SaveToFile('C:\Test.txt');
А чтобы загрузить из файла пишем:
Memo1.Lines.LoadFromFile('C:\Test.txt');
Чтобы очистить Memo:
Memo1.Clear;
TListBox
Основные cвойсва: