Невизуални компоненти

Timer
Компонентът Timer се използва, за да се улесни извикването на API-функциите в Windows SetTimer и KillTimer, както и за да се опрости обработката на съобщенията WM_TIMER. Свойствата и методите на този компонент засягат функционалността на таймера чрез осигуряването на информация за събитието timer. Тази информация включва времеви интервал, който се подава като параметър на функцията SetTimer.
Компонентът Timer има едно единствено събитие- OnTimer, което се сбъдва, когато изтече времето определено от свойството Interval:
CODE

1 2 3 4 5 6 7 8

property OnTimer: TNotifyEvent; Пр.: procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Interval := 100;   Shape1.Shape := stCircle;   Shape1.Left := Shape1.Left + 1; end;

Свойството Interval определя времевия интервал в милисекунди, след изтичането на който таймерът ще инициира ново събитие OnTimer:
CODE

1	property Interval: Cardinal;

По подразбиране това свойство има стойност 1000 1 sec. Допустимо е да зададете стойност 0, но тогава таймерът няма да извика събитието OnTimer.

MainMenu
Всяко меню има следните елементи:

- Командите са елементи на менюто, които се използват, за да се извърши някакво действие.
- Задаващите състояние елементи се използват за включване или изключване на опция, за да се промени състоянието на даден елемент. Такива команди обикновено имат отметка вляво от текста си, за да показват, че са включени.
- Радио елементите имат кръгла отметка и са групирани, за да представят алтернативни възможности. За да създадете такива елементи, задайте стойност True на свойството RadioItem и една и съща стойност на свойството GroupIndex за всички алтернативни елементи от менюто.
- Диалоговите елементи на менюто предизвикват показване на диалогов прозорец и обикновено се маркират с многоточие след името си.

Елементите на менюто се въвеждат с помощта на Menu Designer, който се извиква чрез двойно натискане с левия бутон на мишката върху компонента MainMenu. За всеки елемент Delphi създава нов компонент, чиито свойства показва в Object Inspector. За да именува компонентите, Delphi използва зададеното от вас заглавие, като премахва интервалите и другите специални символи, и добавя след него номер. Разделителите, които се означават със символа “-“, се именуват с буквата N, последвана от номер.
Елементите на менюто имат едно единствено събитие OnClick, което възниква всеки път, когато изберете даден елемент. Възможно е да зададете клавиш за бърз достъп (accelerator key) като използвате символа ”&”. За да осигурите бърз клавиш (shortcut key) на конкретен елемент, използвайте свойството ShortCut. За всеки един елемент от менюто можете да зададете подменю.

PopupMenu
Компонентът PopupManu ви позволява да създадете контекстно меню. Това са менюта, които обикновено се показват при щракване с десния бутон на мишката върху компонент, използващ такова меню като стойност на свойството си PopupMenu. В този случай трябва да зададете стойност True на свойството AutoPopup. За да визуализирате контекстно меню със стойност False на свойството AutoPopup, използвайте метода Popup:
CODE

1	procedure Popup(X, Y: Integer);

X и Y са екранните координати в пиксели на менюто. За да преобразувате екранните координати в клиентски, използвайте функцията ClientToScreen:
CODE

1	function ClientToScreen(const Point: TPoint): TPoint;

Стандартни диалогови прозорци на Windows

Освен създаване на собствени диалогови прозорци, Delphi позволява използване и на някои подразбиращи се диалогови прозорци за определени действия. Някои от тях са предварително дефинирани от Windows, а други се показват чрез функция на Delphi. Страницата Dialogs на палитрата с компонентите съдържа компоненти на стандартни диалогови прозорци, всеки един от които е дефиниран в системната библиотека CommDlg.DLL. За да ги визуализирате по време на изпълнение на програмата, е неоходимо да ги активирате чрез метода Exscute:
CODE

1	function Execute: Boolean;

Пр.:
CODE

1 2 3 4 5 6 7 8 9 10 11 12 13

var   F: TextFile;   S: string; begin   if OpenDialog1.Execute then          { Display Open dialog box }   begin     AssignFile(F, OpenDialog1.FileName);   { File selected in dialog box }     Reset(F);     Readln(F, S);                          { Read the first line out of the file }     Edit1.Text := S;                       { Put string in a TEdit control }     CloseFile(F);   end; end;

OpenDialog
Компонентът OpenDialog визуализира модален диалогов прозорец на Windows, позволяващ избор и отваряне на файлове. Когато потребителят натисне бутона Open, диалоговият прозорец се затваря, а избраният или избраните файлове се съхраняват в свойството Files на компонента. За да позволите на потребителя да избира едновременно няколко файла, задайте стойност True на флага ofAllowMultiSelect в свойството Options. Свойството FileName връща името и пътечката на последно избрания файл.

SaveDialog
Компонентът SaveDialog визуализира модален диалогов прозорец на Windows, осигуряващ избор и съхраняване на файлове.

FontDialog
Компонентът FontDialog визуализира модален диалогов прозорец на Windows, позволяващ избор на шрифтове. Когато потребителят избере шрифт и натисне бутона OK, диалоговият прозорец се затваря, а избраният шрифт се съхранява в свойството Font на компонента. Събитието OnApply възниква, когато потребителят натисне бутона Apply на диалоговия прозорец. Този бутон се появява, когато флагът fdApplyButton в свойството Options има стойност True или ако сте свързали събитието OnApply  с обработчика му.

ColorDialog
Компонентът ColorDialog визуализира модален диалогов прозорец на Windows, осигуряващ избор на цветове. Когато потребителят избере цвят и натисне бутона OK, диалоговият прозорец се затваря, а избраният цвят се съхранява в свойството Color на компонента.

PrintDialog и PrintSetupDialog
Компонентът PrintDialog визуализира стандартен диалогов прозорец на Windows, осигуряващ изпращането на команди за печат към принтера. Компонентът PrintSetupDialog визуализира модален диалогов прозорец на Windows, който предоставя възможност за настройка на принтера.

FindDialog
Компонентът FindDialog визуализира немодален диалогов прозорец на Windows, предоставящ възможност за търсене на текст във файл. Стрингът, който се търси, се съхранява в свойството FindText. Когато потребителят натисне бутона Find Next, текстът от Edit-полето автоматично ще се асоциира с това свойство.

ReplaceDialog
Компонентът ReplaceDialog е подобен на компонента FindDialog, позволяващ търсене и замяна на текст. Диалоговият прозорец на Windows, който визуализира е немодален. Стойността на свойството FindText, взетa от Edit-полето Find What, съдържа стринга, който потребителя търси. Стойността на свойството ReplaceText, взета от Edit-полето Replace With, съдържа стринга, който ще се използва за замяна.

Съобщителни прозорци

В Delphi съществуват няколко основни процедури и функции, които се използват за показване на прости диалогови прозорци:

MessageDlg
Функцията MessageDlg извежда зададено съобщение на екрана, съпроводено от няколко бутона и изображение:
CODE

1 2	function MessageDlg(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;

Диалоговият прозорец се появява в центъра на екрана. Неговият тип се определя от параметъра AType:

 

mtWarning ------- A message box containing a yellow exclamation point symbol.  
mtError ------- A message box containing a red stop sign.  
mtInformation ------- A message box containing a blue "i".  
mtConfirmation ------- A message box containing a green question
markmtCustom ------- A message box with no bitmap. The caption of the message box is the name of the application's executable file.

Параметърът AButtons определя бутонът, който ще се появи в диалоговия прозорец:

mbYes ------- A button with the text 'Yes' on its face  
mbNo ------- A button with the text 'No' on its face  
mbOK ------- A button with the text 'OK' on its face  
mbCancel ------- A button with the text 'Cancel' on its face  
mbHelp ------- A button with the text 'Help' on its face  
mbAbort ------- A button with the text 'Abort' on its face  
mbRetry ------- A button with the text 'Retry' on its face  
mbIgnore ------- A button with the text 'Ignore' on its face  
mbAll ------- A button with the text 'All' on its face

Функцията връща стойността на бутона, който потребителят е избрал:

mrNone --- mrAbort --- mrYes  
mrOk --- mrRetry --- mrNo  
mrCancel --- mrIgnore --- mrAll

Пр.:
CODE

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); begin   if MessageDlg('Welcome to my Object Pascal application.  Exit now?',     mtConfirmation, [mbYes, mbNo], 0) = mrYes then   begin     MessageDlg('Exiting the Object Pascal application.', mtInformation,       [mbOk], 0);     Close;   end; end;