На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
id: 50Комментарии: 0Просмотров: 1092Автор: Reif
Категория: Для новачка
Компонент CheckBox в Delphi
Теперь перейдем к рассмотрению компонента CheckBox. Как всегда, давайте создадим маленькую программу, которая будет использовать этот компонент.
Создайте новое приложение, поместите на главную форму одну кнопку и два компонента TCheckBox. Первому компоненту дадим заголовок (свойство caption) "Разрешить закрытие программы" и имя (свойство Name) AiiowdoseCheckBox. Второму компоненту дадим заголовок (caption) "Отключить кнопку" и имя (Name) EnableButtonCheckBox. Кнопке дадим ИМЯ MyFirstButton. Создайте обработчик события onclick ДЛЯ компонента EnableButtonCheckBox (это второй CheckBox). В нем напишем следующее:
id: 49Комментарии: 0Просмотров: 927Автор: Reif
Категория: Для новачка
Полосы прокрутки очень часто используются для прокручивания какого-либо действия. Например, когда вы слушаете музыку, вы можете прокрутить ее в любое место с помощью простой полосы прокрутки. Если информация не помещается в окно, ее также прокручивают с помощью таких полос, но в большинстве случаев это делается автоматически. Давайте посмотрим на полосу прокрутки в действии. Создайте новое приложение. Сформируйте на форме один компонент TLabel и одну полосу прокрутки TScrollBar. У компонента Label1 измените свойство caption на "О". Теперь создайте обработчик события onchange для полосы прокрутки и напишите там следующее :
id: 16Комментарии: 0Просмотров: 718Автор: Reif
Категория: Для новачка
Поиск файла – типичная задача, которую ежедневно решают тысячи программистов по всему миру. Чаще всего на Паскале и Delphi эту задачу решают классическим надежным способом с помощью функции FindFirst и FindNext. Этот способ я покажу Вам в уроке: Delphi: Практический пример диаграммы: Распределение файлов по типам. А сейчас покажем способ попроще. Поместите на форму поле ввода Edit, в которое пользователь будет вводить имя файла, и кнопку Button. Предварительно в секцию Uses добавьте модуль Imagehlp.
Код:
Код
uses …, Imagehlp;
procedure TForm1.Button1Click(Sender: TObject); var FilePath: PChar; begin Button1.Enabled:= false; GetMem(FilePath, M
... Читать дальше »
id: 15Комментарии: 0Просмотров: 1315Автор: Reif
Категория: Для новачка
Компонент блокнота с закладками TabControl.
TabControl – это одностраничный блокнот. Он представляет собой прямоугольную область с набором закладок, имеет одну страницу, общую для всех закладок. Программист должен кодировать действия для изменения информации, отображаемой на странице при выборе определенной закладки.
... Читать дальше »
id: 14Комментарии: 0Просмотров: 894Автор: Reif
Категория: Для новачка
Ввод массива
Для того чтобы работать с массивом, его надо с начала получить от пользователя. Попробуем осуществить ввод одномерного массива всего в одно поле редактирования. Каждый элемент массива будет отделяться от предыдущего разделителем. После щелчка на кнопке программа выделит из строки, содержащей массив, первую подстроку, затем выделит вторую подстроку и т.д.
Давайте сейчас этим и займемся. Поставьте на Вашу форму кнопку Button и поле редактирования Edit.
Заголовок нашей функции будет такой:
function GetSubStr(st:string; expl:string; n:integer):string; где
st - строка, содержащая массив expl - строка разделитель n - номер подстроки
Код
function TForm1.GetSubStr(st:string; expl:string ;n:intege
... Читать дальше »
id: 13Комментарии: 0Просмотров: 841Автор: Reif
Категория: Для новачка
1.4 создание простого оконного приложения
Пример: Составить программу для вычисления площади круга произвольного размера.
1. File|New|Application 2. Со станици standart поместим 4 компонента label1 label2 Edit1 Button1 / label1 и label2 компоненты которые служат для отображения текстовой информации / Edit1 - строка ввода /button - это кнопка
3. В свойстве caption на нашей форме в место текста form1 введем "вычисление площади круга" 4. Шелкнем на компонент label1 и установим свойство caption равным 'введите радиус круга и нажмите кнопку "счет"' на метку label2 будем выводить результат. 5. Одним счелчком мыши выбираем компонент button1 и в свойсте Caption пишем текст кнопок "счет" 6. Переходим к этапу написания кода, дважды нажимаем на на кнопку button1(счет) переходим в редакто
... Читать дальше »
|