|
Вопрос # 4 146/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Извините у кого не будь есть любая программа но только что бы была написана "программно-ориентированные"
Пожалуйста помогите срочно надо!!!!!!!!!
 |
Вопрос задал: galust (статус: Посетитель)
Вопрос отправлен: 12 мая 2010, 21:07
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Егор
Здравствуйте, galust!!!
запускаем дельфи!!!!!!
ставим на форму одну кнопку!!!!!!
делаем на кнопке двойной щелчок!!!!!!
прописываем код!!!!!
procedure TForm1.Button1Click(Sender: TObject); // эта строчка уже должна быть - набирать не надо!!!!!!
begin // эта строчка уже должна быть - набирать не надо!!!!!!
close; // эту строчку набираем сами - это выход из программы!!!!!!!
end; // эта строчка уже должна быть - набирать не надо!!!!!!
всё!!!!
программа готова!!!!
в ней реализованы следующие вещи!!!
* имеются классы (класс кнопки TButton, класс формы TFrom1 и класс объекта-родителя формы TForm)!!!!!!!
* имеются два объекта - реализация этих классов (кнопка - Button1 и форма - Form1)!!!!!!
* имеется наследование (класс TForm1 наследуется от TForm)!!!!!
* имеется включение - аггрегация (класс TButton включен в класс TForm1)!!!!!
формально, программа соответствует заданию!!!!!!!!!!
Приложение: Переключить в обычный режим- 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
- close;
- end;
-
- end.
-
 |
Ответ отправил: Егор (статус: 10-ый класс)
Время отправки: 15 мая 2010, 13:37
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 37; последнее сообщение — 16 мая 2010, 21:40; участников в обсуждении: 6.
Страницы: [« Предыдущая] [1] [2]
|
min@y™ (статус: Доктор наук), 16 мая 2010, 11:15 [#21]:
Цитата (galust):
И что это значит?
Это значит, что если я тебе дам какую-нить из этих программ и ты её предъявишь своему преподу, то он тебе не поверит, что ты написал её сам.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 11:58 [#22]:
Почему поверит!))))
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:01 [#23]:
Ну давай я, для начала, скину тебе хэлп от одной из моих программ. Почитаешь и подумаешь: поверит или нет. 
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 12:03 [#24]:
Ну давай!
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:09 [#25]:
Цитата (galust):
Ну давай!
Куда кидать?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 12:28 [#26]:
galustk@yandex.ru
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:31 [#27]:
Выслал.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 12:36 [#28]:
посмотрел!Это по какому предмету?
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:40 [#29]:
Это не по предмету. Это - по работе.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 12:42 [#30]:
Скинь все!)
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:47 [#31]:
Цитата (galust):
Скинь все!)
Программу целиком скинуть?
Имей в виду, что это прога по работе с оборудованием, которого у тебя нету.
Может всё-таки дать тебе что-нить попроще?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 12:53 [#32]:
Любую прогу главное что бы в ней были не стандартные классы!
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 12:56 [#33]:
У меня есть проги попроще, но без описания. Сойдёт?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 13:11 [#34]:
Ну давай посмотрим!Ну скинь какую не будь с описанием!
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 13:16 [#35]:
С описанием у меня только та прога, хэлп от которой я тебе скидывал.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
galust (статус: Посетитель), 16 мая 2010, 13:35 [#36]:
кидай бес описания!
|
|
|
min@y™ (статус: Доктор наук), 16 мая 2010, 21:40 [#37]:
Хорошо, щас закину.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
