: ListBox1.
Clear ; Щоб видалити виділений елемент: ListBox1.
DeleteSelected ; За замовчуванням список складається з однієї колонки. І якщо список великий і не всі елементи поміщаються в ньому автоматично справа з'являється або зникає вертикальна смуга прокрутки (перший і другий компонент ListBox). Для того щоб з'явилася горизонтальна смуга прокрутки необхідно властивості
Columns типу Integer поставити значення більше нуля. Третій компонент - Columns дорівнює 1, другий 2.
2.7.5.1 Властивість Sorted
Рівна true дає можливість розташувати елементи в алфавітом порядку. За рахунок сортування списку в алфавітом порядку буде легше побачити необхідний елемент, особливо якщо список великий. Застосувавши сортування в Інспектора Об'єктів скасувати сортування не вдасться.
Для того щоб визначити який елемент був обраний користувачем скористаємося даним записом, включивши його в обробник якого-небудь події:
ShowMessage (ListBox1.Items [ListBox1.ItemIndex]);
де ShowMessage () - найпростіша функція виводу на екран текстових повідомлень, а ListBox1.ItemIndex -номер поточного елемента.
MultiSelect - властивість завдяки якому можна можна вибрати не 1 елемент, а більше. Для цього ставимо його рівним TRUE. Клацаючи мишею, утримуючи клавішу CTRL, вибираємо довільні елементи. Якщо властивість ExtendedSelect одно TRUE, утримуючи клавішу SHIFT виділимо безперервний діапазон списку. Для визначення виділений компонент чи ні звернемося до властивості Selected. Вираз: ListBox.Selected [3] одно TRUE, якщо четвертий елемент в компоненті виділений (номери елементів починаються з нуля).
ItemAtPos властивість, яка переводить координати щиглика всередині списку в індекс елемента. Розташуємо на формі компоненти ListBox, Panel і Label згідно малюнку. Для компонента ListBox в обробнику відпускання кнопки миші напишемо наступний код.
Малюнок 2.5- Компонент ListBox.
2.7.5.2 Вихідні коди
procedure TForm1.ListBox1Click (Sender: TObject);
begin ;;
procedure TForm1.ListBox1MouseUp (Sender :; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;: TPoint ;: Integer; .X:=X; .Y:=Y;:= ListBox1.ItemAtPos (Point, True) ;. Caption:=IntToStr (Nomer) ;. Caption:=ListBox1.Items [ListBox1.ItemIndex];
end;
У змінній Nomer запишеться індекс елемента і компонент Label1 виведе його. Напис на Panel1 виведе текст елемента ListBox1.
2.7.6 Компонент Timer
Компонент Timer дуже простий компонент, який не видно на екрані, але, тим не менш, Timer виконує дуже важливі функції в програмі. Timer дозволяє вводити необхідні затримки між виконанням тих чи інших дій. Компонент Timer має всього дві властивості і одна подія, і працювати з компонентом Timer дуже просто.Cвойства, що дозволяють їм управляти: Interval - інтервал часу в мілісекундах і Enabled - доступність. Властивість Interval задає період спрацьовування таймера. Через заданий інтервал часу після попереднього спрацьовування, або після програмної установки властивості Interval, або після запуску програми, якщо значення Interval встановлено під час проектування, таймер спрацьовує, викликаючи подія OnTimer. У обробнику цієї події записуються необхідні операції.
Якщо задати Interval=0 або Enabled=false, то таймер перестає працювати. Щоб запустити відлік часу треба або задати Enabled=true, якщо встановлено позитивне значення Interval, або задати позитивне значення Interval, якщо Enabled=true.
2.7.6.1 Вихідний код
procedure TForm1.Timer1Timer (Sender: TObject);
//допоміжна функція, яка перетворює МАС адреса до
// нормальному увазі визначаємо спеціальний тип, щоб
//можна було передати у функцію масив
type=array [0..7] of Byte;
//в якості першого значення масив, друге значення,
//розмір даних в массівеGetMAC (Value: TMAC; Length: DWORD): string ;: integer; Length=0Result:= 00-00-00-00-00-00 := raquo ;; i:=0 to Length - 2 do:=Result + IntToHex (Value [i], 2) + - raquo ;;:=Result + IntToHex (Value [Length - 1], 2);
end ;;
2.8 Тестування програми
Малюнок 2.6- Тестув...
