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;


 

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

82698. О книге и о чтении. Иллюстрация 51 KB
  Цель и задачи: расширить знания учащихся о книге историей её возникновения и о этапах её производства; показать возможности иллюстрации как способе дополнительного восприятия новой информации; развивать навыки правильного и осознанного чтения; обогащать словарный запас учащихся...
82699. Книга – вчора, сьогодні, завтра… 45.5 KB
  Мета: дати учням загальні відомості про книгу як історичну пам’ятку людства як коштовний скарб в якому джерело мудрості; ознайомити з основними етапами створення книги дати загальні поняття про процес виготовлення книги в наш час; виховувати інтерес повагу та любов до книги.
82700. My Last Day Off. (A fairy-tale about the past) 31 KB
  Objectives: to retell pupils a fairy-tale about the past; to present pupils the way of expressing the past (regular verbs); to teach pupils to make up sentences in Past Simple; to read the text and answer the questions; to teach pupils to speak about their last day off...
82701. В.А.Сухомлинский «Стыдно перед соловушкой», «Камень», «Красота, вдохновение, радость и тайна» 31 KB
  Цель: познакомить учащихся с рассказами В.А.Сухомлинского, расширить интерес к чтению, совершенствовать технику чтения, учить высказывать собственное мнение, делать выводы, работать над выработкой навыков сознательного чтения...
82702. Як поводитися за столом? Гостини 909.5 KB
  Мета уроку ― ознайомити учнів з правилами етичної поведінки в гостях, ознаками гостинності; з’ясувати сутність понять ввічливий, уважний, чемний, грубий; вчити розв’язувати поведінкові ситуації; виховувати навички культурної поведінки в гостях, гостинність.
82703. Охорона природи в Україні 373.5 KB
  Інтерактивна дошка презентація Охорона природи в Україні атласи гасло: Не просто слухати а чути. Яку тему вивчали на минулому уроці Яка кількість населення України Які народи складають населення України Яка державна мова України На що поділена територія України Скільки областей в Україні...
82704. Останні години життя Ісуса Христа на Землі 370 KB
  Допомогти зрозуміти учням початкових класів, учасникам і глядачам велич Христових страждань. Усвідомити цінність терпінь як вияву любові. Допомогти внести в систему моралі дитини відчуття Божої турботи про людство. Дати розуміння Посту – як часу тиші, пре задуми і роздумів над Хресним шляхом Ісуса.
82705. Як Шевченко у футболі, забиваемо ми голи 269 KB
  Мета: навчальна: ознайомити учнів з поняттями досягнення; обговорити складові успіху; на прикладах відомих людей показати шлях до здійснення мети; поглиблювати знання людей про видатних людей; розвивальна: розвивати вміння аналізувати і робити висновки; розвивати навички пошукової активності...
82706. Милосердя в нашому житті 183 KB
  Мета: розкрити поняття милосердя; поглибити знання учнів про милосердя і безкорисливість; виховувати повагу добре ставлення до оточуючих; розвивати вміння доводити свою думку аналізувати свої вчинки та вчинки інших; формувати навички творчої роботи; розвивати навички синтезу та аналізу дослідницькі...