Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Delphi для начинающих.docx
Скачиваний:
6
Добавлен:
18.11.2019
Размер:
239.69 Кб
Скачать

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войсва:

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]