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;


 

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

52156. Програмування циклічних обчислень 64.5 KB
  Мета уроку: навчальна, навчитись практично застосовувати теоретичні відомості до розвязання задач; закріпити оформлення та запис на мові програмування; придбати практичні навички використання вказівок розгалуження та повторення при розв’язку задач;
52157. АЛГОРИТМ ОФОРМЛЕНИЯ КОНСПЕКТА УРОКА ЧТЕНИЯ В ПЕРИОД ОБУЧЕНИЯ ГРАМОТЕ 45.45 KB
  чтение слогов слов текста с изученными буквами в основном выборочное с попутным проведением лексической работы грамматической и орфографической пропедевтики; беседа по картинке на основе наблюдений жизненного опыта детей прослушивание и анализ подготовленных дома рассказов развитие коммуникативной компетенции в режиме публичного монолога; повторение изученных звуков и букв признаков гласных и согласных звуков звуков парных по твердости мягкости звонкости глухости в процессе работы с демонстрационными и слоговыми таблицами...
52158. МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ К СОСТАВЛЕНИЮ ПЛАНА-КОНСПЕКТА УРОКА, ЗАНЯТИЯ 29 KB
  Планконспект урока должен состоять из следующих рубрик: ТЕМА: название темы берется из календарнотематического плана. ЦЕЛЬ урока. ТИП урока: определяется исходя из целей и задач урока.
52159. Алгоритми та програмування 67.5 KB
  Поняття математичної інформаційної моделі. Поняття алгоритму. Учні повинні знати: основні етапи розв'язування задачі з використанням ЕОМ; поняття інформаційної моделі задачі; визначення вхідних даних та результатів поняття алгоритму; поняття виконавця; властивості алгоритмів; способи та форми подання алгоритмів; основні базові структури алгоритмів; сутність методу покрокової деталізації; основні Ідеї та принципи структурного програмування. Поняття про мову програмування.
52160. Алкоголь - ворог № 1 64 KB
  Мета: сформувати уявлення що алкоголізм це хвороба викликати почуття образи до алкогольних напоїв визначити причини та наслідки вживання алкоголю активізувати увагу на статистичних даних щодо вживання алкогольних напоїв навчити використовувати здобуті на виховному заході знання в практичній діяльності виховувати дбайливе ставлення до власного здоровя. Обладнання: фліпчарт листи А1 маркери мультимедійна установка рекламні плакати про вживання алкоголю клей ножиці.Інформаційне повідомлення Наслідки вживання алкоголю.Вплив...
52161. Вплив пивного алкоголізму на формування особливостей поведінки підлітка 39.5 KB
  Мета: розширити й поглибити знання учнів про шкідливий вплив пива, довести,що пивний алкоголізм-це соціальне зло і загроза здоров ю нації, показати,що вживання пива веде до деградації особистості, виховувати негативне ставлення до пива,досягти того,щоб учні усвідомили необхідність вести здоровий спосіб життя.
52162. Видатний український математик Георгій Вороний - одна з найяскравіших індивідуальностей в історії Чернігівщини 60.5 KB
  Познайомитись з життєвим шляхом та науковою спадщиною Георгія Вороного. Сьогодні ми ознайомимося із життєвим шляхом та науковою спадщиною великого математика Георгія Вороного. Вони вивчили матеріали про Георгія Вороного. Розповідь про життя і діяльність Георгія Вороного супроводжується презентацією.
52163. Амбіції та плани 2.61 MB
  So, you’ve understood that our today’s topic is «Jobs and Skills» and, what more, during lesson we are going to find out what skills a person needs to do his (her) job well, what professions are most demanded nowadays, what are the most suitable jobs for teenagers, how ambitious you are.