Головна

Procedure TForm1.ShowHint (Sender: TObject); begin

  1.  Anti-tobacco treaty begins
  2.  Anti-tobacco treaty begins
  3.  B) Read the passage and find out if she is at the beginning, middle or end of her journey.
  4.  Begin // Якщо так, то додати ім'я виділеної директорії до шляху // і перечитати файли з неї.
  5.  Begin ListBox1.Items.Clear;
  6.  Begin ListBox1.Items.Clear; SetLength (r, 10);
  7.  CaptionStr: String; begin

StatusBar1.SimpleText: = Application.Hint; end;

Отже, наша процедура повинна буде викликатися кожен раз, коли треба вивести підказку. Усередині процедури ми присвоюємо в властивість SimpleText рядки стану текст знаходиться в Application.Hint. А в Application.Hint завжди перебувати підказка, яку треба зараз відобразити.

Тепер створи обробник події OnShow для головної форми і в ньому напиши:

procedure TForm1.FormShow (Sender: TObject); begin Application.OnHint: = ShowHint; end;

Тут ми програмно призначаємо нашу процедуру ShowHint в якості обробника події OnHint. Я люблю це робити програмно, але можна було зробити й простіше:

1. 1. Поставити на форму компонент ТApplicationEvents з закладки Additional.

2. 2. У цього компонента на закладці Events створити обробник події OnHint і там відразу ж написати «StatusBar1.SimpleText: = Application.Hint».

На компакт диску, В директорії\ Приклади \ Глава 11 \ Hintти можешь увидеть приклад цей програми.

Тепер спробуємо створити рядок стану з декількох панелей. Виділи рядок стану і двічі клацни по властивості Panels. Перед тобою має відкритися вікно редактора панелей:

У цьому вікні перша кнопка створює нову панель

 (Також можна натиснути клавішу Ins), а друга

 видаляє виділену (також можна натиснути Del).
 Створи нову панель і в її властивості Width (Ширина) встанови значення 200. Тепер

створи ще одну панель. Все, можна закривати вікно. Тепер перейди в процедуру обробник події OnHint і зміни її текст на:




 Procedure TTreeViewForm.AddButtonClick (Sender: TObject); var |  CaptionStr: String; begin |  Private |  ListView1.Items.EndUpdate; // Прорисовуємо всі зміни відразу |  Implementation |  If Path [Length (Path)] <> '\' then |  R: TRect; begin if ToolBar1.HostDockSite <> ControlBar1 then |  r: TRect; begin if ToolBar1.HostDockSite <> ControlBar1 then |

© 2016-2022  um.co.ua - учбові матеріали та реферати