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;


 

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

73989. Разработка конкурентной стратегии на рынке целлюлозы на предприятии ЦБК 589.5 KB
  Стратегия лидерства по издержкам – снижение полных издержек производства и реализации товаров, стратегия широкой дифференциации (лидеры по качеству) – придание товарам компании специфических черта, отличающих их от товаров конкурентов, стратегия оптимальных издержек – получение преимуществ фирмой за счет сочетания низких издержек и широкой дифференциации товаров...
73990. Возрастные особенности волевой регуляции у подростков и старшеклассников 535.5 KB
  Воля проходит свое развитие в течение многих этапов возрастного становления личности на протяжении всей жизнедеятельности, приближаясь к регулятивным функциям воли. Мы предполагаем, что в подростковом возрасте при развитости воли все еще недостаточно сформирована волевая регуляция, влияющая на произвольное поведение и деятельность подростков
73991. Сравнение возможностей инструментария разработки программного обеспечения графических процессоров 358 KB
  Обобщим основные отличия между архитектурами центрального графического процессора. CPU создан для последовательного исполнения одного потока инструкций с максимальной производительностью, а GPU спроектирован таким образом чтобы единовременно исполнять как можно большее число параллельных потоков...
73992. Весільна фотографія, засоби та прийоми композиційного рішення і технологічного виконання фоторобіт 1005.89 KB
  Весільна фотографія - напрям у фотографії, покликаний художньо відобразити події, що відбуваються під час весілля. Цей жанр у фотографії вимагає від фотографа вміння поєднувати у своїй роботі такі жанри, як портрет, фотожурналістика, документальна фотографія, художня фотографія.
73993. Порядок учета посреднических операций 105.61 KB
  Рассмотрение порядка учета посреднических операций, как с точки зрения посредников, так и с точки зрения организаций приобретающих и реализующих товары (работы, услуги) через посредников, а также раскрытие особенностей налогообложения посреднических сделок
73994. Организация финансовой работы на предприятии ЗАО Алтайстройдеталь 708.75 KB
  Изучить содержание и основные принципы организации финансовой работы на предприятии; ознакомиться со структурой и основными функциональными обязанностями отдельных финансовых служб предприятия; рассмотреть порядок организации финансовой работы предприятия на примере ЗАО Алтайстройдеталь; предложить мероприятия по совершенствованию финансовой деятельности предприятия.
73995. Экономическая политика первых лет Советской власти: от военного коммунизма к нэпу 17.8 KB
  Вопервых потому что с нэпом часто связывают идеи о возможности осуществления иного нежели сталинский варианта развития страны о возможности иной модели социализма а вовторых борьба в руководстве страны в связи с осуществлением нэпа позволяет понять сущность политической системы СССР сложившейся в результате последующего завершения нэпа. К основным принципам нэпа можно отнести: денационализацию части средней и мелкой промышленности провозглашение свободы торговли допущение частного капитала в экономику в том числе и иностранного ...
73996. Огосударствление экономики СССР.Индустриализация и коллективизация в СССР 28.31 KB
  Необходимость проведения индустриализации в России мало у кого вызывает какиелибо сомнения. Впрочем по вопросу о темпах и методах индустриализации в советском руководстве не существовало единства мнений. оставляла единственную возможность – получить средства для индустриализации за счет мобилизации внутренних ресурсов. С точки зрения наиболее решительных сторонников индустриализации Е.
73997. Основные особенности и этапы внешней политики СССР между двумя мировыми войнами 18.92 KB
  Основные особенности и этапы внешней политики СССР между двумя мировыми войнами. Условия возникновения Советского государства в рамках мировой и гражданской войн активного участия в этом процессе значительного числа иностранных государств и особенности большевистской идеологии с приоритетом в постановке задач общемировым устремлениям во многом обусловили цели и средства внешней политики СССР в 20 30х гг. С другой стороны СССР являлся наследником Российской империи с ее очевидными национальными и государственными интересами защита...