Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organizer
Delphi. 1ая практика

Delphi. 1ая практика


Ну ещё раз привет, добрались мы с тобой и до этой статьи... Хотя теории было не много, мы переходим к практике. Мы напишем первую прогу, но не просто напишем, а ещё и одновременно научимся кое-чему. Чему? Читай дальше.

Открывай свой Delphi... Открыл? Ну тогда поехали дальше. У тебя сразу-же создался новый проэкт, давай его для начала сохраним. (примечание: очень вам советую создать папку например, Delphi, в корне своего диска, а в ней отдельные папки в которые уже будут сохранены)
Как сохранить проэкт? Лягко! Давай сделаем это вместе.
File->Save All (или на кнопку ). Теперь Делфи у нас спрашивает имя файла с кодом на ПАСКАЛЕ(*.pas)(ты ведь знаешь что делфи основан на object pascal`е, да), можно оставить по умолчанию-Unit1, это значения не имеет. Далее надо вводить имя проэкта, которое и будет именем программы, давайте напишем test. Ну всё, сохранили.

Теперь давай поколдуем...
Кликни на форму, чтобы выделить её, в испекторе объектов доступны свойства и события нашей ФОРМЫ. Ищем поле NAME и изменяем на MainForm. Получилось? Если да,то поехали дальше! Ищем в том же инспекторе поле CAPTION и изменяем на Super-Mega proga v1.0. Посмотри на заголовок формы, он изменился на Super-Mega proga v1.0.
Мало-мальски мы изучили свойства формы, теперь давай о событиях. В инспекторе объектов переходи на вкладку EVENTS. В поле OnCreate кликай два раза и... И создалась процедура "создания" формы. Пока нас интерисуют только то, что между begin и end;. Пишем там следующий текст:
ShowMessage('Привет!');

У тебя должно быть так:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ShowMessage('Привет!');
end;

Теперь нажми F9 (или на кнопку )чтобы запустить прогу или же Ctrl+F9(или Project->Compile test) для компилирования без запуска, я бы даже сказал что откомпилировать прогу, и запустить с жёсткого диска предкочтительней.
  И что мы видим? Мессага выскочила до того как показалась форма! НО! В заголовке сообщения, да и на панели задач, написано test, это имя нашего проэкта. А как изменить эту надпись? Пересохранить проект с др. именем? Не обязательно! Делай те же действия что и я, и у тебя будет всё в ажуре! Кликай Project->Options (или же Shift+Ctrl+F11). Зделал? Молодец! Переходи на вкладку Application. Там есть поле TITLE, пиши туда Super-Mega proga v1.0, кликай ОК и запускай заново! Всё! Там же можно и заменить стандартную иконку дельфи на свою, кликнув на кнопке LOAD ICON! Круто? Дальше ещё круче!

  Довь-ка на форму с палитры компонентов Standart компонент TEdit . Кликни по нему 2 раза и Дельфи создаст процедуру Edit1.Change. Между begin и end; пиши : MainForm.Caption:= Edit1.Text;

У тебя должно получиться так:

procedure TMainForm.Edit1Change(Sender: TObject);
begin
  MainForm.Caption:= Edit1.Text;
end;

Запускай прогу. И попробуй написать что-нибуть в Edit`е... Видишь, заголовок окна меняется на текст, который ты вводишь. Если тебе надоело сообщение которое появляется до запуска формы, то удали строку ShowMessage('Привет!'); из TMainForm.FormCreate.

Кликни правой кнопкой мыши на TEdit`е, и ты увидишь стандартное меню, давай сделаем своё!
  Добавь на форму с палитры компонентов Standart компонент TPopupMenu . Кликай по нему два раза, Дельфи сразу создаст 1ый пункт, перейди в инспектор объектов, в поле Caption пиши Очистить. Написал? Поехали дальше! Кликай по пункту который мы сделали 2 раза и пиши Edit1.Clear;. Та-а-к запускаем, проверяем... Странно всё равно стандартное меню... Ничего странного! Закрываем прогу возвращаемся в Дельфи, кликаем по Edit`у, чтобы активировать его свойства в инспекторе объектов, и находим поле PopupMenu, из списка выбираем нашу PopupMenu`шку (выбирать не придётся, у нас только одна менюшка), этим мы как-бы присвоили Edit`у нашу PopUpMenu`шку. Вот теперь перезапускаем и проверяем... Всё работает!!!

Хотя это была ОЧЕНЬ маленькая практика, всё равно я кое-чего тебе объяснил(надеюсь)

На всякий случай вот тебе исходнЯк(4,19 kb)