39893

Компоненты страницы Standard

Реферат

Информатика, кибернетика и программирование

Button1ClickSender: TObject; begin lbel4.Text; end; Результат работы процедуры: Пример: при изменении состояния флажка о его текущем состоянии будет выведена надпись.CheckBox1ClickSender: TObject; begin cse CheckBox1.Cption:= 'Включен'; end; end; Результат работы процедуры: Пример: при изменении состояния переключателя о его текущем состоянии будет выведена надпись.

Русский

2013-10-11

146 KB

1 чел.

Компоненты страницы Standard

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

procedure TForm1.Button1Click(Sender: TObject);

begin

label4.Caption:= IntToStr (StrToInt (Edit1.Text)+ StrToInt (Edit2.Text));

end;

Результат работы процедуры:

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

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

case CheckBox1.State of

cbUnchecked: Label1.Caption:= 'Выключен';

cbGrayed: Label1.Caption:= 'Затемнен';

cbChecked :Label1.Caption:= 'Включен';

end;

end;

Результат работы процедуры:

 

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

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked

then Label1.Caption:= 'Включен первый';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked

then Label1.Caption:= 'Включен второй';

end;

Результат работы процедуры:

 


Пример
: при выборе определенного переключателя выдать сообщение о его выборе.

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex > -1 then

Label1.Caption:= 'Выбран '+ RadioGroup1.Items [RadioGroup1.itemindex];

end;

Результат работы процедуры:

 

Пример: в поле надписи отображается результат сложения чисел.

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.Items.Add(Label1.Caption);

end;

Результат работы процедуры:

Отображение и скрытие формы

procedure TForm1.Button3Click(Sender: TObject);

begin

form2.visible:=true;

form3.show();

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form2.Visible:=false;

form3.Hide;

end;

Закрытие формы

procedure TForm3.Button1Click(Sender: TObject);

begin

form3.Close;

end;


Компоненты страницы
Additional 

Пример: изменить размер таблицы, помещенной на форму в режиме проектирования (по умолчанию размер принят 5х5 элементов), на размер 10х10 и заполняет ячейки строками, содержащими их координаты.

procedure TForm1.FormCreate(Sender: TObject);

var c, r: integer;

begin

StringGrid1.ColCount:=10;

StringGrid1.RowCount:=10;

for c:= 1 to StringGrid1.ColCount-1 do

for r:= 1 to StringGrid1.RowCount-1 do

StringGrid1.Cells[c,r]:= '('+ IntToStr(c)+','+IntToStr(r)+')';

end;

Результат работы процедуры:

Пример: построение графика функции sin(x).

procedure TForm1.FormActivate(Sender: TObject);

var x: integer;

begin

for x:= 0 to 20 do

Chart1.Series[1].addXY (x, sin(x),'CLRed');

end;

Результат работы процедуры:


Компоненты страницы
System

Пример: Программа имитирует работу электронных часов.

procedure TForm4.Timer1Timer(Sender: TObject);

var DateTime: TDateTime;

begin

DateTime:= Time; // возвращает текущее время

label1.Caption:= TimeToStr(DateTime);

end;

Результат работы процедуры:

Пример: использования данного компонента

procedure TForm4.PaintBox1Paint(Sender: TObject);

var x, y: integer;

begin

with PaintBox1.Canvas do

begin

brush.Color:= clRed;

Ellipse (0,0, width, height);

font.Name:= 'Arial';

font.Size:= height div 5;

font.Style:= [fsBold, fsItalic];

font.Color:=clWhite;

x:= (width - TextWidth ('Delphi'))div 2;

y:= (height - TextHeight ('D'))div 2;

TextOut (x,y,'Delphi');

end;

end;

Результат работы процедуры:

Пример: создание эллиптического окна программы.

procedure TForm4.PaintBox1Paint(Sender: TObject);

var Rgn: Cardinal;

begin

Application.CreateForm(TForm4.Form4);  // создать обычное окно

with Form4.Canvas do

begin

Rgn:= create EllepticRgn (0,0,Width,Height);  // в нем эллипс

SetWindowRgn (Handle,Rgn,true); // показать вместо окна

end;

Application.Run;

end;

Пример: как можно программно извлечь диск из дисковода, например по щелчку на форме.

procedure TForm1.FormClick(Sender: TObject);

begin

MediaPlayer1.DeviceType:=dtCDAudio;

MediaPlayer1.Open;

MediaPlayer1.Eject;

MediaPlayer1.Close; end;


Компоненты страницы
Dialogs

Пример: программа для просмотра содержимого текстового файла.

procedure TForm1.Button1Click(Sender: TObject);

var s: string;

f: TextFile;

begin

OpenDialog1.Filter:='Текстовые файлы (*.txt)'+'Файлы Pascal (*.pas)';

if OpenDialog1.Execute and FileExists (OpenDialog1.FileName) then

begin

AssignFile (f,OpenDialog1.FileName);

Reset(f); // открываем

Memo1.Lines.Clear; // очистка текстового поля

while not Eof(f) do // наполняем его

begin

readln (f,s);

Memo1.Lines.Add(s);

end;

closefile (f);

end;

end;

Пример: при нажатии на кнопку «найти далее» возникнет событие OnFind. Обработчик события должен найти образец в тексте и показать его.

procedure TForm1.FindDialog1Find(Sender: TObject);

var SelPos: integer;

begin

with TFindDialog (Sender) do

begin

SelPos:= Pos (FindText,Memo1.Lines.Text);

if SelPos>0 then

begin

Memo1.SelStart:= SelPos-1; // выделяем найденный текст

Memo1.SelLength:= Length (FindText);

end

else

ShowMessage ('Текст' +FindText+ 'не найден');

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

FindDialog1.Execute;

end;


 

А также другие работы, которые могут Вас заинтересовать

1212. Информационные технологии в пищевой и перерабатывающей промышленности 7.34 MB
  Основные приемы работы с проводником операционной системы Windows. Основные приемы работы с текстовым редактором MS WORD. Форматирование списков. Проверка орфографии, грамматики. Создание презентаций в среде Microsoft PowerPoint. Редактор векторной графики CorelDraw. Работа в глобальной вычислительной сети Internet.
1213. Проектирование судна грузоподъемностью 3600 тонн 4.2 MB
  Анализ условий плавания проектируемого судна. Практика мирового судостроения. Водный путь Балтика - Чёрное море. Минимальные гарантированные габариты судового хода на Волго-Балтийском водном пути (в метрах). Таблица проектных уровней по опорным водомерным постам. Характеристики гидроузлов.
1214. Математическое моделирование в экономике 5.65 MB
  Микроэкономический и макроэкономический подход в моделировании. Модели закрытой и открытой экономики. Интенсивность естественного процесса воспроизводства трудовых ресурсов. Процедура вывода основного уравнения модели. Материализованный технический прогресс в модели Солоу. Стохастическое моделирование финансовых потоков. Мониторинг динамики финансового ресурса коммерческого банка.
1215. Теоретическая схемотехника 3 MB
  Приставки для образования кратных и дольных единиц измерения. Теорема об эквивалентном преобразовании источников (генераторов). RC-цепи: изменения во времени напряжения и тока. Использование эмиттерных повторителей в качестве стабилизаторов напряжения. Улучшенная модель транзистора: усилитель с передаточной проводимостью. Простая логическая схема на транзисторах и диодах.
1216. Железнодорожный транспорт и работа в его сфере 2.37 MB
  Общий курс железных дорог. Сооружения и устройства путевого хозяйства. Движение поездов. Подвижной состав и его содержание. Устройство и эксплуатация механического оборудования пассажирских вагонов. Меры для предотвращения заклинивания колесных пар. Санитарно - техническое оборудование. Комбинированный кипятильник непрерывного действия. ПТЭ, инструкции и безопасность движения.
1217. Внутренние трубопроводы и канализация 191.5 KB
  Производство, передача и распределение электроэнергии. Деятельность по обеспечению работоспособности котельных. Внутренний водопровод здания. Система канализации здания. Дневник прохождения практики. Временное устранение канализационной течи или течи из под резьбы. Замена сифона под умывальником в детском саду.
1218. Базы данных 1.62 MB
  Проектирование однотабличной базы данных. Создание и использование фильтров. Создание многотабличной базы данных. Установление взаимосвязей между таблицами. Создание экранной формы. Создание элементов управления на форме. Создание главной кнопочной формы. Создание отчета. Создание подчиненного отчета. Вычисления в отчетах. Создание и управление базой данных с помощью SQL – операторов.
1219. Основы работы с СУБД MS Access 1.51 MB
  Редактирование таблиц, создание форм и запросов в СУБД MS Access. Изменение структуры таблиц. Редактирование таблиц, сортировка и фильтрация записей. Создание в Конструкторе (самый сложный). Использование макросов, обмен данными между СУБД MS Access и MS Excel, создание сетевых приложений.
1220. Технологический процесс термической обработки деталей машин 1.5 MB
  Основные задачи и исходные данные для курсового проектирования. Общие методические указания к выполнению курсовой работы. Разработка технологического маршрута изготовления детали. Разработка технологического процесса термической обработки. Основные требования к оформлению расчетно-пояснительной записки и чертежей.