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;


 

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

85045. Загрязнение окружающей природной среды и здоровье человека 31.48 KB
  Загрязнение окружающей природной среды и здоровье человека Цель урока. Сформировать у учащихся убеждение в необходимости сохранения окружающей природной среды и формирования у каждого человека культуры в области экологической безопасности. Изучаемые вопросы Влияние жизнедеятельности человека на загрязнение окружающей среды. Загрязнение атмосферы почв и природных вод в результате жизнедеятельности человека.
85046. Правила безопасного поведения при неблагоприятной экологической обстановке 30.91 KB
  Изучаемые вопросы Расширение возможностей организма человека противостоять опасным факторам окружающей среды. Формирование потребности в сохранении окружающей природной среды. Снижение вредного воздействия на организм человека неблагоприятных факторов окружающей среды. Изложение учебного материала Во вступительной части урока целесообразно отметить что значительного снижения уровня загрязнения окружающей нас природной среды в ближайшем будущем вряд ли можно ожидать.
85047. Классификация чрезвычайных ситуаций техногенного характера 30.34 KB
  Классификация чрезвычайных ситуаций техногенного характера Цель урока. Познакомить учащихся с чрезвычайными ситуациями техногенного характера и основными причинами их возникновения; дать общее представление о классификации чрезвычайных ситуаций техногенного характера. Изучаемые вопросы Причины возникновения чрезвычайных ситуаций техногенного характера. Объекты экономики возникновение на которых производственных аварий может привести к чрезвычайным ситуациям техногенного характера.
85048. Аварии на радиационно опасных объектах и их возможные последствия. Обеспечение радиационной безопасности населения 32.01 KB
  Аварии на радиационно опасных объектах и их возможные последствия. Обеспечение радиационной безопасности населения. Познакомить учащихся с понятиями радиационно опасный объект ионизирующее излучение радиоактивное загрязнение окружающей среды. Дать общее представление о последствиях аварий на радиационно опасных объектах и о влиянии ионизирующего излучения на организм человека.
85049. Аварии на химически опасных объектах Тамбовской области и их возможные последствия. Обеспечение химической защиты населения 33.32 KB
  Обеспечение химической защиты населения. Познакомить учащихся с общими мероприятиями проводимыми в стране и в регионе для защиты населения от химических аварий. Обобщить знания о средствах индивидуальной защиты и их защитных свойствах. Средства индивидуальной защиты и их защитные свойства.
85050. Гражданская оборона как составная часть национальной безопасности и обороноспособности страны 29.5 KB
  Сформировать у учащихся общее представление о гражданской обороне как составной части общегосударственной системы мероприятий по защите населения страны от опасностей мирного и военного времени. Познакомить с системой руководства гражданской обороной и основными правами и обязанностями граждан в области гражданской обороны. Изучаемые вопросы Предназначение и задачи гражданской обороны. Руководство гражданской обороной.
85051. МЧС России — федеральный орган управления в области защиты населения и территорий от чрезвычайных ситуаций 30.22 KB
  МЧС России федеральный орган управления в области защиты населения и территорий от чрезвычайных ситуаций Цель урока. Познакомить учащихся с МЧС России: предназначением структурой и основными задачами МЧС. Показать роль МЧС России в обеспечении защиты населения от чрезвычайных ситуаций. Изучаемые вопросы МЧС России его предназначение и структура.
85052. Мониторинг и прогнозирование чрезвычайных ситуаций 28.65 KB
  Мониторинг и прогнозирование чрезвычайных ситуаций Цель урока. Познакомить учащихся с мониторингом и прогнозированием чрезвычайных ситуаций как составной частью общей системы мер противодействия чрезвычайным ситуациям направленных на снижение риска возникновения чрезвычайных ситуаций и смягчение их последствий. Изучаемые вопросы Мониторинг чрезвычайных ситуаций и его предназначение. Основные методы прогнозирования чрезвычайных ситуаций.
85053. Инженерная защита населения и территорий от чрезвычайных ситуаций 29.7 KB
  Инженерная защита населения и территорий от чрезвычайных ситуаций Цель урока. Познакомить учащихся с комплексом мероприятий касающихся инженерной защиты населения и территорий от чрезвычайных ситуаций. Изучаемые вопросы Инженернотехнические мероприятия по защите населения и территорий от чрезвычайных ситуаций. Отметить что высокую эффективность в защите населения территорий и населенных пунктов имеют инженернотехнические мероприятия по защите от неблагоприятных и опасных природных явлений и процессов предусматривающие возведение и...