-
Основы Delphi
- Основы программирования на Delphi
- Компоненты Delphi. Начинаем писать свои первые приложения на Delphi
- Основные принципы программирования в Delphi. Начинаем программировать самостоятельно
- Delphi и Microsoft Word
- Delphi и Microsoft Excel
- Delphi и Microsoft Access
- Delphi и OpenOffice Writer
- Delphi и OpenOffice Calc
- Создание игр на Delphi
- Игра Пристрели птичку
Delphi и MSOffice
Delphi и OpenOffice
Delphi и Интернет
Delphi и игры
Delphi Android
Школа программирования Delphi
Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.
Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!
| Главная » Уроки Delphi » Основы Delphi » Компоненты Delphi. Начинаем писать свои первые приложения на Delphi |
 Компонент TMemo находится на вкладке Standart. За содержимое текста в этом компоненте отвечает свойство Lines. Это свойство является целым объектом типа TStrings и имеет свои свойства и методы. Давайте создадим новый проект и установим на форму компонент TMemo и 4 кнопки (TButton). Сразу же давайте изменим свойства кнопок и Memo. У первой кнопки меняем свойство Name на CleanButton и заголовок (Caption) на "Очистить", у второй – AddButton и заголовок "Добавить", у третьей – DelButton и "Удалить", у четвертой – ChangeButton и "Изменить". Далее переходим к нашему компоненту TMemo. Меняем свойство Name на MyMemo. Далее дважды щелкаем левой кнопкой мыши по свойству Lines и в появившемся текстовом редакторе удаляем надпись MyMemo. Вы наверное обратили внимание на то, что когда мы установили на форму Memo, то в нем уже было написано Memo1, а когда поменяли свойство Name на MyMemo, то и текст Memo1 поменялся на MyMemo. Но нам не нужно чтобы в этом компоненте сейчас что-либо отображалось, поэтому мы и удалили надпись.  Рисунок. Форма и компонент TMemo на ней Теперь давайте создадим обработчик события OnClick для кнопки "Очистить" и напишем следующий код: Код procedure TForm1.CleanButtonClick(Sender: TObject); begin MyMemo.Lines.Clear; end; Как мы знаем у компонента TMemo (а в нашем случае у MyMemo) есть свойство Lines. Написав MyMemo.Lines, мы получили доступ к этому свойству. Свойство Lines – это целый объект у которого есть метод Clear и который полностью очищает содержимое строк редактора. Поэтому написав MyMemo.Lines.Clear, мы полностью очищаем все строки нашего Memo. Если мы сейчас запустим нашу программу, напишем внутри Memo любой текст, а затем нажмем на кнопку "Очистить", то все что мы там написали будет уничтожено. Теперь давайте рассмотрим пример того, как можно сохранить тот текст который мы написали в Memo и как можно загрузить текст из текстового файла в Memo. Для начала нам нужно создать текстовый файл с любым текстом и назвать его, к примеру, Memo.txt. Затем создаем обработчик события OnShow для нашей формы и пишем в нем следующий код: Код procedure TForm1.FormShow(Sender: TObject); begin if FileExists ('Memo.txt') then MyMemo.Lines.LoadFromFile('Memo.txt'); end; Давайте разберем этот код. В первой строке, мы проверяем, существует ли файл Memo.txt и если он существует, то мы вызываем метод LoadFromFile объекта Lines с помощью которого, загружаем текст из Memo.txt в MyMemo. Теперь создадим обработчик события OnClose для формы и напишем следующий код: Код procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin MyMemo.Lines.SaveToFile('Memo.txt'); end; Это будет означать, что при закрытии нашей программы, все что написано в Memo будет сохранено в файл Memo.txt Ну и напоследок давайте разберемся, как программно добавлять, удалять и изменять строки в Memo. Для этого используется свойство Strings свойства Lines. Например, если мы хотим получить доступ к нулевой строке, то пишем MyMemo.Lines.Strings[0], к первой строке - MyMemo.Lines.Strings[1] и т.д. Давайте для кнопки "Добавить" напишем обработчик события OnClick со следующим кодом: Код procedure TForm1.AddButtonClick(Sender: TObject); begin MyMemo.Lines.Add('Эту строку мы сейчас добавили'); end; А для кнопки "Удалить" напишем: Код procedure TForm1.DelButtonClick(Sender: TObject); begin if MyMemo.Lines.Count <> 0 then MyMemo.Lines.Delete(MyMemo.CaretPos.Y); end; В этом примере мы проверяем сколько строк в нашем компоненте Memo, используя свойство Lines.Count. Если оно равно нулю, значит строки есть и мы можем удалить текущую строку. Для удаления используется метод Delete объекта Lines, в который нужно просто передать номер строки, которую нужно удалять. Чтобы узнать это, мы используем свойство CaretPos, которое указывает на текущую позицию курсора. В завершение, напишем обработчик события OnClick для кнопки "Изменить" и напишем код: Код procedure TForm1.ChangeButtonClick(Sender: TObject); begin MyMemo.Lines.Strings[MyMemo.CaretPos.Y]:= 'Урок Delphi Memo'; MyMemo.Lines.Strings[0]:= 'Мы изменили текст'; end; В первой строке кода, мы узнаем позицию курсора и изменяем эту строку на "Урок Delphi Memo", а во второй строке кода, мы заменяем первую строку MyMemo на "Мы изменили текст".  Рисунок. Пример работы Delphi и TMemo К уроку (статье) Delphi и TMemo. Пример работы с многострочными полями ввода в Делфи прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Delphi и TMemo. Пример работы с многострочными полями ввода в Делфи | |
Добавить Delphi и TMemo. Пример работы с многострочными полями ввода в Делфи в закладки: |
| Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery |
| Delphi и RadioGroup. Пример работы с группой компонентов RadioButton в Делфи |
| Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi |
| Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки |
| Delphi и ComboBox. Пример работы с ниспадающими списками в Делфи |
| Delphi и TEdit. Пример работы со строками ввода в Делфи |
| Константы в Delphi. Объявление констант в Делфи |
| Управление циклами в Delphi. Операторы Continue и Break. |
| Delphi и CheckBox. Пример работы с CheckBox в Делфи |
| Delphi и TPanel. Пример работы с панелями в Делфи |
| Всего комментариев: 0 | |