Сайт створено у системі uCozЯндекс.Метрика
Меню сайта
Все для ucoz Counter-Strike 1.6 Все для photoshop Допомога по Counter-Strike Програмування Майстерня
Головна » Статті » навчання в ОС » Программирование в Delphi

Урок 1: Создание кнопок в Delphi

В прошлый раз мы уже познакомились с интерфейсом Delphi 7. В этот раз я научу вас делать простые элементы интерфейса, но уже в ваше программе. Немного углублюсь в историю. Delphi является продолжением популярного языка программирования Pascal. Так же Delphi является одной из первых ООП(Читай прошлую статью). Поэтому Delphi сначала был очень непривычен в то же время максимально удобен. Но это Тогда...
Начнем создание кнопки. Сейчас мы будем использовать то, о чем я сейчас говорил. ООП.

Рисуем вот такую кнопочку:


Эта кнопка у нас будет закрывать программу. Спросите и все? Да все! Это же первый урок! Ну а название кнопки давайте поменяем на "Закрыть". Для этого в разделе Caption прописываем Закрыть:


Теперь пропишем функцию кнопочки... Открываем в том же меню вкладку Events и пишем Button1Click Не забудьте что Button1 это и есть кнопка с русским названием Закрыть. Просто внутри программы название не изменено!



Осталось только прописать следующий код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

end.

Все кроме того что подчеркнуто компьютер написал сам. Мы просто добавили функцию закрыть! Хотя можно было бы просто написать не Form1.Close; а Close; но это могло не так сработать.




Категорія: Программирование в Delphi | Додав: admin (23.04.2011)
Переглядів: 3142 | Коментарі: 1 | Рейтинг: 0.0/0
Всього коментарів: 0
Додавати коментарі можуть лише зареєстровані користувачі.
[ Реєстрація | Вхід ]
Наша копилка

Block title
Онлайн всего: 1
Гостей: 1
Пользователей: 0
сервера cs 1.6

Rip by vkontakte1412.ucoz.ru | (c) Все права защищены! | 2010-2011 |
Полное или частичное использование материалов vkontakte1412.ucoz.ru только с разрешения администрации
.
Сайт оптимизирован под браузер Opera. Sitemap | Sitemap-forum | СП
Дизайн данного сайта полностью принадлежит администратору сайта.

Вся информация предоставленная на сайте vkontakte1412.ucoz.ru является собственностью авторов. Любую информацию размещенную на сайте запрещено копировать без размещения ссылки на источник.
Дизайн данного сайта принадлежит полностью администратору сайта. Категорически запрещается копировать и использовать без соглашения главного администратора. За использование дизайна без согласия главного администратора, полагается разбирательство с администрацией хостера (в данном случае системы uCoz) и блокировка аккаунта нарушителя.
Yandex | Google | Rambler | Yahoo | Mail