який компонент буде перебувати у фокусі в момент цієї події, треба перехопити його на рівні форми. Такий перехоплення здійснюється, якщо встановити властивість форми KeyPreview в true. Тоді в обробнику події форми OnKeyPress можна написати оператор if (key= C or key= c ) then Button1.Click;
2.7.1.2 Події компоненту Button
Основна подія будь кнопки - OnClick, що виникає при натисканні на ній. Саме в обробнику цієї події записуються оператори, які повинні виконуватися при клацанні користувача на кнопці. Крім цього є ще ряд подій, пов'язаних з різними маніпуляціями клавішами і кнопками миші.
Рисунок 2.1 - Компонент Button
2.7.1.2.1 Вихідні коди
procedure TForm1.Button1Click (Sender: TObject) ;. Caption:= Name: + IPAddrToName (Edit1.Text) ;; TForm1.Button2Click (Sender: TObject);// Збережено оригінальний значення IP адреси
OrgVal: string;// частини оригінального IP
O1, O2, O3, O4: string;// Шістнадцяткові частини
H1, H2, H3, H4: string;// Тут будуть зібрані всі шістнадцятковій частини
HexIP: string ;: array [1..8] of Extended; 1: Extended;
Xc: Integer;
begin
//Зберігаємо в зворотному порядку для простого випадку
Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1);[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3);[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5);[2]:=IntPower(16,6);Xn[1]:=IntPower(16,7);
//Зберігаємо оригінальний IP адреса
OrgVal:=Edit2.Text;
O1:=Copy (OrgVal, 1, Pos (. , OrgVal) - 1); Delete (OrgVal, 1, Pos (. , OrgVal)) ;: =Copy (OrgVal, 1, Pos (. , OrgVal) - 1); Delete (OrgVal, 1, Pos (. , OrgVal));:=Copy (OrgVal, 1, Pos ( laquo ;. , OrgVal) - 1);Delete(OrgVal,1,Pos(laquo;.raquo;,OrgVal));:=OrgVal;:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2);:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2);
//Отримуємо шестнадцатиричное значення IP адреси
HexIP:=H1 + H2 + H3 + H4;
//Перетворимо це велике шістнадцятковій значення в змінну Float:=0; Xc:=1 to 8 doHexIP [Xc] of
0 .. 9 raquo ;: Flt1:=Flt1 + (StrToInt (HexIP [XC]) * Xn [Xc]);
A raquo ;: Flt1:=Flt1 + (10 * Xn [Xc]);
B raquo ;: Flt1:=Flt1 + (11 * Xn [Xc]);
C raquo ;: Flt1:=Flt1 + (12 * Xn [Xc]);
D raquo ;: Flt1:=Flt1 + (13 * Xn [Xc]);
E raquo ;: Flt1:=Flt1 + (14 * Xn [Xc]);
F raquo ;: Flt1:=Flt1 + (15 * Xn [Xc]) ;; TForm1.Button3Click (Sender: TObject) ;: TWSAData ;: PHostEnt; (WINSOCK_VERSION, WSAData);:= GetHostByName (PChar (Edit3.Text)) ;. Caption:= IP: + inet_ntoa (PInAddr (p.h_addr_list ^) ^) ;;; TForm1.Button4Click (Sender: TObject) ;: TWSAData ;: array [ 0..255] of char ;: PHostEnt ;: PChar; ($ 0101, wsdata); (hostName, sizeof (hostName));(hostName,Edit4.Text);:=GetHostByName(hostName);Assigned(hostEnt)Assigned(hostEnt^.h_addr_list):=hostEnt^.h_addr_list^;Assigned(addr).Caption:=Format(laquo;%d.%d.%d.%draquo;,[byte(addr[0]),(addr[1]),byte(addr[2]),byte(addr[3])]);;;;;;TForm1.Button5Click(Sender: TObject) ;. Caption:= Name: + IPAddrToCompName (Edit5.Text) ;; TForm1.Button6Click (Sender: TObject); stop_traf=false then stop_traf:=truestop_traf:=false ;;
2.7.2 Компонент Edit
Більшість комп'ютерних програм працюють за наступним алгоритмом: введення даних в програму - обробка введених даних - висновок результату. Практично будь-яка програма за винятком елементарних вимагають введення даних. У середовищі розробки Delphi для це мети використовуються безліч різних компонентів, що найчастіше використовуваною є компонент Edit. Він являє собою звичайне поле в яке користувач вводить дані. Розташовується даний компонент на вкладки Standart.
2.7.2.1 Властивості компоненту Edit
Властивості - це характеристики компонента, вони містять тільки значення які можна вважати, або ізменіть.- властивість приймає тільки логічні значення True і False. Значення за замовчуванням True, при установки значення False поле введення даних компонент Edit ставати не доступним для введення даних і перестає реагувати на будь-які дії користувача., Left - властивості визначають місцеположення компоненту Edit на формі, обидва приймають числові значення, розмір розраховується в пікселях. Перше властивість визначає положення компонента щодо верхньої межі форми, друге, тобто Left - положення щодо лівої межі форми.является о...
