Структура на Delphi-приложение

Процедурата Seek премества текущата файлова позиция на компонент, указан от променливата N. Номерът на първия файлов компонент е 0.

Пр.:

var

f: file of Byte;

size : Longint;

S: string;

y: integer;

begin

if OpenDialog1.Execute then begin

AssignFile(f, OpenDialog1.FileName);

Reset(f);

size := FileSize(f);

S := 'File size in bytes: ' + IntToStr(size);

y := 10;

y := y + Canvas.TextHeight(S) + 5;

S := 'Seeking halfway into file...';

Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;

Seek(f,size div 2);

S := 'Position is now ' + IntToStr(FilePos(f));

Canvas.TextOut(5, y, S);

CloseFile(f);

end;

end;

• 
  FileListBox
  

Свойството Directory ви показва директорията на файловете визуализирани в компонента:

Достъп до елементите на компонента имате посредством свойството Items. За да изберете едновременно няколко файла, използвайте свойството MultiSelect.

• 
  DirectoryListBox
  

Ако желаете да показвате директориите в повече от една колонка, актуализирайте стойността на свойството Columns.

• 
  DriveComboBox
  

• 
  FilterComboBox
  

1. 
   Задайте кратък текст, обозначаващ типа на файла;
   
2. 
   Поставете символа “|”;
   
3. 
   Задайте филтър.
   

Пр.:

За да получите избрания филтър, използвайте свойството Mask.

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

• 
  Timer
  

Компонентът Timer има едно единствено събитие- OnTimer, което се сбъдва, когато изтече времето определено от свойството Interval:

Пр.:

Timer1.Interval := 100;

Shape1.Shape := stCircle;

Shape1.Left := Shape1.Left + 1;

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

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

• 
  MainMenu
  

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

Елементите на менюто имат едно единствено събитие OnClick, което възниква всеки път, когато изберете даден елемент. Възможно е да зададете клавиш за бърз достъп /accelerator key/ като използвате символа ”&”. За да осигурите бърз клавиш /shortcut key/ на конкретен елемент, използвайте свойството ShortCut. За всеки един елемент от менюто можете да зададете подменю.

• 
  PopupMenu
  

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

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

Пр.:

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);

• 
  OpenDialog
  

• 
  SaveDialog
  

• 
  FontDialog
  

• 
  ColorDialog
  

• 
  PrintDialog и PrintSetupDialog
  

• 
  FindDialog
  

• 
  ReplaceDialog