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;


 

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

79522. Концепция школьной психологической службы Л.М. Фридмана 31.7 KB
  Фридмана цели школьной психологической службы должны соответствовать главной цели школы на современном этапе воспитание каждого ученика образованной культурной высоконравственной творчески активной и социально зрелой личностью. Поэтому главной целью школьной психологической службы является научное психологическое обеспечение учебновоспитательного процесса в школе т. Утверждается что главная функция психологической службы образования профессиональная забота о психологическом здоровье детей.
79523. Объединение Русских земель Москвы (14-первая половина 16 веков) 21.07 KB
  Объединение Руси начавшийся в XIV XV веках процесс объединения раздробленных русских земель вокруг нескольких новых политических центров приведший в конечном итоге к образованию централизованного Русского государства и его последующему возобладанию над внешними политическими конкурентами за земли Руси. Объединение Северовосточной Руси завершилось в правление Ивана III присоединение Новгорода 1478 Твери 1485 ликвидация формальной автономии Пскова 1510 и Рязани 1521. Он принял титул государя всея Руси...
79524. Начало эпохи великих географических открытий и первые колониальные захваты. Новое время как особая фаза всемирно исторического процесса 22.1 KB
  Новое время или новая история период в истории человечества находящийся между Средневековьем и Новейшим временем. Критерием определения нового времени его новизны по сравнению с предшествующей эпохой был с точки зрения гуманистов расцвет в период Ренессанса светской науки и культуры то есть не социальноэкономический а духовнокультурный фактор. Однако этот период довольно противоречив по своему содержанию: Высокое Возрождение Реформация и гуманизм соседствовали с массовым всплеском иррационализма развитием демонологии...
79525. Реформация и ее экономические, политические и социокультурные причины. Религиозные войны в Европе 21.7 KB
  С одной стороны католический мир который объединял все народы Западной Европы под духовным руководством папы римского прекратил существование. С другой стороны национальные церкви способствовали росту национального сознания народов Европы. При этом существенно повысился культурный и образовательный уровень жителей Северной Европы которая до этого была как бы окраиной Христианского Мира необходимость изучения Библии приводила к росту как начальных учебных заведений в основном в форме церковноприходских школ так и высших что...
79526. Государство и общество стран Западной Европы в 17 веке 21.34 KB
  Их концептуальным выражением и итогом стали теории естественного права и общественного договора основанные на рационализме. Теория естественного права явилась классическим воплощением нового мировоззрения. Теория естественного права основана на признании всех людей равными от природы и наделенными природой же естественными страстями стремлениями разумом. Законы природы определяют предписания естественного права которому должно соответствовать положительное позитивное волеустановленное право.
79527. Внутренняя и внешняя политика Ивана 4 Грозного 20.85 KB
  Иван IV стал великим князем в 1533 г. в 3 года. Регентшей была его мать Елена Глинская, а после ее смерти в 1538 г. началось боярское правление, сопровождавшееся борьбой боярских группировок. В 1547 г. Иван IV венчался на царство.
79528. Россия в годы смуты (конец 16-начало 17 веков) 21.68 KB
  Шурин Фёдора Борис Годунов фактически правил при недееспособном Фёдоре Ивановиче организовал свое избрание царём на Земском соборе. Но бояре были недовольны незнатным царём крестьяне отменой Юрьева дня казаки репрессиями властей дворяне тяжелой службой. Годунов умер и Лжедмитрий стал царём. Земский собор избрал царём Михаила Романова.
79529. Воцарение в России Романовых. Развитие страны в 17 веке. Особенности сословно-представительной монархии в России 20.84 KB
  Кандидатура Михаила Федоровича устроила представителей всех сословий и политических сил: аристократы были довольны тем что новый царь будет представителем древнего рода Романовых сторонники легитимной монархии были довольны тем что Михаил Федорович имеет родство с Иваном Грозным а пострадавшие от террора и хаоса смуты были довольны тем что Романов не причастен к опричнине казаки же были довольны что отцом юного царя был митрополит Филарет.
79530. Россия в конце 17-первой четверти 18 веков 21.76 KB
  Россия по Вечному миру с Польшей закрепила за собою Киев и вступила в антитурецкую коалицию. по Ништадтскому миру Россия получила за крупную сумму Эстонию Латвию и почти всю Карелию. Россия заключила союз с Австрией.