Исходники Delphi

StaticText

Reif — Tue, 30 Apr 2013 11:23:38 GMT

Компонент Delphi BalloonHint представляет собой невизуальный компонент, служащий для отображения подсказок в виде «воздушного шара»(рис 1). Одновременно на форме может отображаться только одна подсказка. Если приложение пытается отобразить подсказку, когда подсказка уже отображается, то новая не появится, пока существующая всплывающая подсказка была видимой. Значение свойства Delay устанавливает время после выполнения процедуры показа подсказки до появления подсказки, а свойство HideAfter время показа подсказки. Компонент BalloonHint также позволяет в подсказке выводить изображение, хранящееся в ImageList.
Рассмотрим простейший пример использования компонента.

Поместите на форму следующие компоненты: Label, Edit, BalloonHint и ImageList. Привяжите ImageList к компоненту BalloonHint с помощью свойства Images. Теперь описываем событие KeyPress для компонента edit

procedure TForm14.Edit1KeyPress(Sender: TObject; var Key: Char);
var point: tpoint;
begin
if Key = #13 then
begin
BalloonHint1.Title := 'ошибка';
BalloonHint1.Description := 'данные не совподают с данными в Label';
point.X := label1.Width;
point.Y := label1.Height;
balloonhint1.ShowHint(edit1.ClientToScreen(point));
end;
end;
При нажатии Enter в компоненте edit, проверяются введенные данные с данными находящиеся в Label если они не совпадают выводит подсказку.

Bitbtn

Reif — Mon, 29 Apr 2013 21:26:38 GMT

Компонент delphi CheckListBox — список множественного выбора. Отличие от ListBox заключается наличием рядом с каждой строкой переключателя CheckBox, облегчающий выбор сразу нескольких опций. Так же индикаторы можно переключать программно, например если список выводит данные о наличие товара на складе. Список используется для вывода данных с возможностью отметки каких-либо характеристик например можно его встретить при настройке параметров в MS Word(рис 1).

Для вставки в компонент группы независимых переключателей, открываем редактор свойства Items и вводим одну или несколько строк. Эти строки будут находится справа от переключателя, и будут являться поясняющей надписи для них.

свойства CheckListBox:

Для примера создадим небольшую программу. Разместим компонент CheckListBox зададим ему список Items. Под ним разместим memo, в него будут выводиться выбранные элементы. И две кнопки 1 и 2. Первая будет выводить в memo выделенный синим цветом элемент, а вторая — будет выводить в memo помеченные галочкой элементы.

для первой кнопки обработчик будет следующий

procedure TForm8.Button1Click(Sender TObject);
var
I integer;
begin
Memo1.Clear;
for I = 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.selected[i] then
Memo1.Lines.Add(CheckListBox1.Items[i]);
end;
end;

для второй

procedure TForm8.Button2Click(Sender TObject);
var
I integer;
begin
Memo1.Clear;
for I = 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[i] then
Memo1.Lines.Add(CheckListBox1.Items[i]);
end;
end;

MainMenu

Reif — Mon, 29 Apr 2013 15:18:42 GMT

Компонент delphi MainMenu — ‘то не визуальный компонент delphi(место размещения которого на форме не имеет значения для пользователя так как он увидит не сам компонент, а меню, с генерированное им), предназначенный для вывода главного меню на форме (см. рис 1).ое им), предназначенный для вывода главного меню на форме (см. рис 1)

По внешнему виду оно представляет собой строку с пунктами меню. Если все пункты меню не умещаются в проекте в одну строку, то они разбиваются на две строки если не помешаются в две то разбиваются на 3 и т.д. (см. рис 2).

Опции главного меню создаются с помощью редактора вызываемое двойным щелчком по компоненту MainMenu или нажатием кнопки рядом со свойством Items в окне Oject Inspectror. Первоначально меню не заполнено, но имеет один выделенный элемент для создания опции.Для её создания нужно перейти в Oject Inspectror и найти там свойство Caption которому присваиваем нужное название. В Windows, как правило, опции меню имеют возможность выбора с помощью сочетания клавиш ALT и , где Key — первая буква названия нужной опции, для её вызова с помошью сочетания клавиш первая буква опции должна быть подчеркнута. Для создания этого подчеркивания перед названием опции ставится символ &. После нажатия «Enter» создается пункт меню на Форме. Иногда требуется добавление разделительной черты между пунктами меню для этого в свойстве Caption прописываем символ «-». Так же к подпунктам можно добавлять изображения в формате bmp, для того что бы добавить рисунок выбираем подпункт в который хотим добавить изображение находим в инспекторе объектов свойство Bitmap кликаем щелчком мыши по многоточию и у нас открывается окно «picture editor»(см рис 3).

После добавления изображения на нашем проекте его не будет видно, что бы увидеть его нужно запустить наше приложение.

Свойства MainMenu

GroupBox и RadioGroup

Reif — Mon, 29 Apr 2013 15:05:32 GMT

Компонент GroupBox и компонент delphi RadioGroup(рис 1) опишу в одной статье потому что они во многом похожи различие заключается только в том, что на RadioGroup размешаются только радио кнопки.

Предназначены они для группирования схожих по смыслу компонентов delphi. В компоненте RadioGroup есть свойство ItemIndex, котороe указывает,на то, какая кнопка в этот момент включена. По умолчанию, ItemIndex = -1. Так как нумерация кнопок начинается с нуля, ItemIndex равное -1 означает, что ни одна кнопка в данный момент не включена.

Свойства GroupBox

Работа с файлами

Reif — Sun, 28 Apr 2013 21:48:34 GMT

Работа с файлами важная вещь в любом языке программирования. Работа с файлами в Delphi позволяет считывать, сохранять информацию, и выполнять другие действия с файлами. В Delphi поддерживаются все операции с файлами - создание, поиск, чтение и запись, переименование как файлов, так и к директорий. В Delphi существует несколько способов работы с файлами.

Для "лирического" вступления нужно упомянуть компоненты Delphi, которые умеют работать с файлами. Они читают и сохраняют своё содержимое, строки типа String, в файл текстового формата. Это компоненты ListBox, ComboBox и Memo, расположенные на первой же вкладке палитры компонентов.

Каждая строка компонентов ListBox и ComboBox является объектом Items, а Memo - Lines[i], где i - номер строки, который отсчитывается от нуля. Добавление строк в компоненты выполняется методами Add и Insert:

Memo1.Lines.Add('Первая строка');
ComboBox1.Items.Add('Первая строка');ъ
ComboBox1.Items.Add('Вторая строка');
ListBox1.Items.Add('Первая строка');
ListBox1.Items.Add('Вторая строка');

Метод Add добавляет новую строку в конец. Метод Insert имеет дополнительный параметр, указывающий, после какой строки разместить новую строку. Доступ к строкам осуществляется так:

ComboBox1.Items[0] := 'Первая строка изменилась';
ListBox1.Items[1] := 'Вторая строка изменилась' ;

У компонента ComboBox дополнительно есть свойство Text, где (как и у компонента Edit) находится вводимый текст:

ComboBox1.Text := ' Вводимый текст ';

На выделенную в данный момент строку компонента ComboBox указывает свойство ItemIndex типа Integer, то есть это номер выделенной строки. Следовательно, получить саму выделенную строку компонента ComboBox можно следующей конструкцией:

S := ComboBox1.Items[ComboBox1.ItemIndex];

или, пользуясь оператором присоединения

With ComboBox1 do
S := Items[ItemIndex];

Вот как по нажатию клавиши Enter можно заносить в этот компонент вводимую в строку информацию и удалять нажатием Escape:
Выделите на Форме ComboBox и перейдите в Инспектор объектов, на вкладку Events. Щёлкните дважды по обработчику OnKeyPress. Система Delphi создаст заготовку обработчика. Напишите:

begin
if Key = #13 then
ComboBox1.Items.Add(ComboBox1.Text)
if Key = #27 then;
ComboBox1.Items.Delete(ComboBox1.Items.Count-1);
end;

Key - определённая в этом обработчике переменная, содержащая код нажатой клавиши, [i]#13 и #27 - коды клавиш Enter и Escape соответственно. Items.Count - количество содержащихся в компоненте строк. Так как отсчёт строк идёт от нуля, мы отнимаем единицу. После очередного удаления количество строк меняется, таким образом, Items.Count-1 всегда указывает на последнюю строку. Последовательно нажимая Escape, мы можем удалить все строки. Командой

ComboBox1.Items.Delete(0);

можно добиться того же эффекта, только удаляться будут первые строки. Впрочем, чтобы стереть всё сразу, есть метод Clear!

Ну а теперь собственно о сохранении содержимого в файл. Для этого выполните команду

ListBox1.Items.SaveToFile('Имя_файла.txt');

Впрочем, расширение можно поставить любое по желанию, не обязательно .txt, как и вообще без него обойтись. Но расширение .txt позволит легко открыть файл стандартным виндовским Блокнотом, что бывает очень удобно на этапе написания программы!
Для загрузки служит метод LoadFromFile:

ListBox1.Items.LoadFromFile('Имя_файла.txt') ;

Что делать, если в своей программе мы не работаем с компонентами Combobox, ListBox или Memo, а сохранять информацию нужно? Берём один из компонентов и делаем его невидимым, для этого в Инспекторе Объектов ставим в свойство Visible значение False. Функциональность его от этого не изменится!

Последний штрих - создадим программу, сохраняющую своё положение на экране в момент закрытия и там же открывающуюся. Нам нужно сохранить два параметра - значения свойств Формы Left и Top, это расстояние от левого и верхнего краёв экрана соответственно. Значения эти выражаются в пикселях и имеют тип Integer. Необходимо перевести эти числа в строку (тип String) с помощью оператора IntToStr. Итак, разместите на Форме невидимый ListBox, щёлкните по пустому месту Формы, чтобы её свойства появились в Инспекторе объектов, и перейдите на вкладку Events. Щёлкните по обработчику OnClose и в созданной заготовке напишите:

begin
ListBox1.Items.Clear;
ListBox1.Items.Add(IntToStr(Form1.Left));
ListBox1.Items.Add(IntToStr(Form1.Top));
ListBox1.Items.SaveToFile('MyFormPos.txt');
end;

Этот обработчик сохраняет положение Формы на экране. Теперь напишем обработчик, помещающий Формула прежнее место при старте программы. Создайте заготовку обработчика события OnCreate. Это событие происходит в момент "создания" Формы операционной системой. В этот момент и нужно присваивать ей необходимые свойства. Пишите:

begin
if FileExists('MyFormPos.txt') then
begin
ListBox1.Items.LoadFromFile('MyFormPos.txt');
Form1.Left := StrToInt(ListBox1.Items[0]);
Form1.Top := StrToInt(ListBox1.Items[1]);
end;
end;

В первой строке происходит проверка на существование файла, ведь если его не будет, произойдёт ошибка. Впрочем, программа после выдачи предупреждения откроется в том месте, где была на этапе проектирования, а при закрытии нужный файл будет воссоздан!
Затем в логических скобках begin/end содержится сам код, который будет выполнен только приналичии файла MyFormPos.txt в папке с программой, так как используется относительный путь. Можно указать конкретное местоположение, например,C:\Program Files\MyProg\MyFormPos.txt.

Проверку на существовование файла можно выполнить также с помощью контроля исключительных ситуаций. Если файл не существует, то произойдёт исключительная ситуация. Перехватив её с помощью специального оператора, мы сможем избежать ошибок в программе.

Конечно, профессиональные программы сохраняют своё положение в Реестре Windows. Но всему своё время.

Это полезно!

как создать папку?
begin
// Создание нового каталога в текущей директории
if CreateDir('TestDir')
then ShowMessage('Новый каталог добавлен')
else ShowMessage('Добавление нового каталога провалилось с ошибкой: '+
IntToStr(GetLastError));

как удалить папку?
// Удаление этого каталога
if RemoveDir('TestDir')
then ShowMessage('TestDir удален')
else ShowMessage('TestDir не удален, произошла ошибка : '+
IntToStr(GetLastError));
end;

Как создать текстовый документ?

var
f: TextFile;
begin
{$I-}
AssignFile (f, name.txt'); //имя документа
Reset(f);
{$I+}
if IOResult <> 0 then Rewrite(f);
CloseFile (F);

Первая программа на делфи

Reif — Wed, 24 Apr 2013 21:40:58 GMT

Начнем изучение Delphi с самого простого. Для начала запустите Delphi. После запуска, перед вами появиться окно вашего будущего приложения. Код, который уже сгенерирован, можно просмотреть в окне кода, для перехода к нему нажмите F12. Пока не чего не изменяйте, подробнее его мы рассмотрим в следующих главах. Теперь преступил к созданию первой программы. Первым делом поменяем размер формы, для этого кликнете в любое место формы. Потом отредактируйте свойства ClientHeight и ClientWidth, поставьте значения 150 и 180 соответственно, первое свойство изменяет высоту окна, а второе его ширину. Также можно подписать окно, для этого отредактируем свойство Caption, поставив значение «Программа». Пример получившегося окна приведен на рисунке 1, пример настроек приведен на рисунке 2.

Рис 1 – Пример окна

Рис 2 – Пример настроек

Далее выберите на палитре Standard элемент Button. И поместите его на форме, после этого отредактируйте свойство Caption, поставив значение «ОК», это свойство определяет надпись кнопки. Пример приведен на рисунке 3. Далее выберите на палитре Standard элемент Label. И поместите его на форме, после этого отредактируйте свойство Caption, поставив значение «Здесь будет надпись», это свойство определяет надпись объекта. Пример приведен на рисунке 4.

Рис 3 – Пример окна с размещенной кнопкой

Рис 4 – Пример окна с надписью

После этого выделите кнопку, и перейдите на вкладку Events окна Object Inspector, двойным щелчком левой кнопки мыши, зайдите в событие OnClick, данное событие происходит, когда кто-то нажмет кнопку. После этого произойдет автоматический переход к окну кода и сгенерируется код события приведенный ниже (// авторские комментарии не генерируемые Delphi).

procedure TForm1.Button1Click(Sender: TObject); //Название процедуры
begin //начало
//место для кода
end; //конец

Теперь допишем нужный код для работы нашей программы.
А именно код label1.Caption:='Моя первая программа';
Где:
Label1 – Название объекта, в нашем случае это надпись.
Caption – Свойство объекта.
:= - оператор присваивания, то есть с помощью этого оператора мы присваиваем новое значение свойству объекта.
‘ – кавычки обозначают, начало и конец строкового значения.
; - оператор закрытия, служит для закрытия операций.

После внесения данного строки код должен выглядеть так:

Цитата

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:='Моя первая программа';
end;

Теперь запустите программу и проверьте её работу путем нажатия кнопки «ОК».
Все на это первый урок закончен.

Плавное исчезание формы

Reif — Fri, 19 Apr 2013 10:38:16 GMT

Плавное исчезание формы, в событии OnClose пропишите код

Код

AnimateWindow(handle, 2000, AW_BLEND or AW_HIDE)

Проверяем введен ли текст в эдит

Reif — Fri, 19 Apr 2013 10:34:53 GMT

Проверяем введен ли текст в эдит

Код

procedure TForm1.Button1Click(Sender: TObject);
begin //начало
if edit1.Text <> '' then form2.show //Если поле не пустое, вызываем форму 2
else // в противном случаи
showmessage('введите свое имя'); // выводим сообщение
end; // Конец

end.

Как запретить ввод числ, символов, букв в Edit

Reif — Fri, 19 Apr 2013 10:33:06 GMT

Часто вижу в группе один и тот же вопрос...
Как запретить ввод символов в Edit?
в этом маленьком уроке, мы научимся ставить запрет на ввод некоторых символов, букв, и цифр.

И так, Бросим на Форму Edit, выберем свойство OnKeyPress (см. рисунок) создадим событие и пропишем следующий код:

Код

if Key in ['A'..'Z']+['a'..'z']+['`']+['~']+['@']+['/']+[',']+['.']+['Ё']+['ё'] then Key:=#0;

пример загрузки файла через IDHTTP

Reif — Thu, 04 Apr 2013 12:33:59 GMT

Еще один пример загрузки файла через IDHTTP с возможностью выбора сайта директории
С использованием ProgressBar
Пример научит вас скачивать файл с интернета, и отображать в Progressbar % выполнения

Скачать исходник