42
Additional вкладкасы
Additonal вкладкасына диалогты терезелердің түрлерін өзгертіп отыруға арналған 26
қосымша компоненттер орналастырылған. Оның ішіндегі массивпен жұмыс жасауға арналған
компоненттер орналасқан, олардың ішінегі массивпен жұмыс жасайтын ең ыңғайлы–
SrtingGrid
компонентін қарастырамыз.
StringGrid —
кестелік мәтін. Бұл компонент мәтіндік ақпаратты кестелік түрде
көрсететін мықты мүмкіншілікке ие.
DrawGrid —
кез кеелген кесте. StringGrid-қа қарағанда бұл компоненттің ұяшығында
кез келген ақпаратты және суреттерді жазуға болады.
Delphi-
де деректерді формадан енгізу 3-жолмен іске асырылады:
1.
Берілген бір мәтіндік қатарды көрсететін немесе өңдейтін бір қатарлы өңделетін
мәтіндік Edit алаңынан.
2.
Бір қатарлы өңделетін LabelPosition қасиетіндегі баптау параметіріне сәйкес, үстінде,
астында немесе жандарында жазуы бар
LabeledEdit мәтінді енгізу қатарынан.
3.
Деректері күні бұрын таңдалуға тиіс тізімдер түрінде ендіріліп қойған,
программа
мәтінінен шақырылатын,
ListBox және ComboBox процеураларының
терезелерінен таңдау
арқылы.
Сонымен қатар деректерді енгізу программадан шақырылатын InputBox проуцедурасы
терезесінің енгізу қатарынан ендіру арқылы. InputBox процедурасының параметрлері келесі
форматта беріледі (‘текст заголовка окна ввоода’,’текст надписи над полем ввода’,0);
Edit
компоненті
Standard компоненттер палитрасынан таңдалып
, қарапайым жолмен
орнатылады. Бұл енгізу компоненті
Additional компоненттер палитрасынан таңдалады.
Оның белгішесі -
түрінде берілген. Көптен көп деректерді осы
енгізу алаңынан енгізген
ыңғайлы деп саналады. Для учстановки компоненты на форму необходимо выделить
компонент и щелкнуть мышью на нужном месте формы – компонент перенесется на нее.
После установки нужно задать свойства полей ввода. Прежде всего надо обратить внимание
на свойство Text. В нем хранится текст (тип данных STRING), вводимый пользователем в
поле. Пока там ничего нет. В Text можно записать значения по умолчанию, чтобы при
запуске программы поля не были пустыми. Занесите в свойства Text значение "0"
(разумеется, без кавычек!) Далее следует задать подпись над полем ввода (кстати, подпись
может располагаться и сбоку, и снизу – см. свойство LabelPosition). Разверните свойство
EditLabel, щелкнув по плюсику, и найдите свойство Caption – оно написано зелеными
буквами. Напишите в свойстве Caption название поля ввода, например, "А" и "В". Эти
названия просто выводятся на экран и никак не влияют на работу программы.
ListBox —
список. Содержит список предлагаемых вариантов (пунктов списка) и дает
возможность проконтролировать текущий выбор.
ComboBox —
комбинированный список. Представляет собой комбинацию списка и
однострочного текстового поля.
Вид формы с полем ввода
LabeledEdit
43
CASE инсрукциясы пайаланылған Delphiдегі
программа мысалы
Рис. 1.18 Батырмалы компонент -
ListBox компоненті
Листинг 2.3. Салмақты фунттан килограмға ауыстыру
unit funt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ListBox1: TListBox;
Edit1: TEdit;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
funt:real;
//âåñ â ôóíòàõ
kg:real;
//âåñ â êèëîãðàììàõ
k:real;
//êîýôôèöèåíò ïåðåñ÷åòà
r:integer;
f:String;
begin
case ListBox1.ItemIndex of
0,1:K:=0.4095;
//Êàçàõñòàí, Ðîññèÿ
2: K:=0.453592
; //Àíãëèÿ
3: K:=0.5601;
//Àâñòðèÿ
4..6,8:K:=0.5;
//Ãåðìàíèÿ, Äàíèÿ, Èñëàíäèÿ, Íèäåðëàíäû
7: K:=0.31762;
//Èòàëèÿ
end;
ShowMessage('Ââåäèòå âåñ â ôóíòàõ');
f:=Inputbox('Ïðîãðàììà ïåðåñ÷åòà èç ôóíòîâ â êèëîãðàììû','Ââåäèòå âåñ â ôóíòàõ','0');
funt:=StrToFloat(f);
kg:=k*funt;
44
label4.caption:=FloatToStrF(funt,ffFixed,6,3)
+ 'ôóíò. - ýòî '
+ FloatToStrF(kg,ffFixed,6,3)
+ 'êã.';
end;
procedure TForm1.Button2Click(Sender: TObject);
var
r:integer;
begin
r:=MessageDlg('Âû äåéñòâèòåëüíî õîòèòå çàêðûòü ïðîãðàììó?', mtConfirmation,
[mbOK,mbCancel],0);
Form1.Close;\
end;
end.
Жағдайлары өңдейтін форманы қүрған кезде бірге құрылып, смол ыорманы екі рет шертіп
құрылатын FormCreate проуедурасына көп көңіл аудару керек, которая создается в
программе в момент создания формы (создается автоматический при двойном щелчке на
свободном месте формы или при запуске программы). Эту процедуру можно использовать
для инициализации переменных программы, в том числе и для добавления элементов в
список. В приведенном тексте программы инструкции создания списка закомментированы,
т.к. список был создан при помощи редактора строк во время создания формы.
Константа
Хабарлама түрі
Белгіше
mtWarning Mt
Назар аудару
Error
Қате
mt
Information
Ақпарат
mtConfirmation
Растау
mt Custom
Қалыпты
Без значка
Кнопки — хабарлама терезесінде өңделетін батырмалар тізімі. Тізім үтірмен бөлінген,
бірнеше атаумен аталған (табл2.10)-де келтірілген константалардан тұруы мүмкін. Барлық
тізім тік жақшаға алынады.
Константа
Батырма
Константа
Батырма
mbYes
Yes
mb Abort
Abort
mbNo
No
mbRetry
Retry
mbOK
OK
mbIgnore
Ignore
mbCancel
Cancel
mbAll
All
rcbHelp
Help
Депозитке салынған салымнан
проценттік кірісті есептейтін программа құру керек
unit PrDengi1;
interface
