Alqoritm, xassələri və təsvir üsulları

Esc klavişi ilə adətən dialoq pəncərələrindəki Cancel (imtina) düyməsi basılır. Düymənin Esc klavişinə məhəl qoyması üçün onun Cancel xassəsinə True qiyməti vermək lazımdır.
Dialoq pəncərələrini bağlamaq məqsədilə düyməni tətbiq etdikdə, onun ModalResult tipli ModalResult xassəsindən istifadə etmək olar. Bu hissə aşağıdakı qiymətləri ala bilər: mrNone, mrOk, mrCancel, mrAbort, mrYes, mrNo, mrAll, mrNoToAll, mrYesToAll susmaya görə mrNone qiyməti mənimsədilir. Əgər bu xassəyə mrNone qiymətindən fərqli istənilən qiymət mənimsədilərsə, onda Close metodu çağrılmadan avtomatik olaraq bağlanacaqdır.
Misal. Mausdan qaçan düymə.
Biz elə proqram yazacağıq ki, mausu düyməyə yönəltdikdə o, mausdan qaçacaqdır. Bunun üçün forma üzərində yeganə komponent - Buttonl I yerləşdirərək, onun üçün OnMouseMove hadisəsini yaradaq. Bu məsələnin lımiti aşağıdakı kodlardan ibarət olacaqdır:
unit Unitl; interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForml = class (TForm) Buttonl:
TButton; procedure Buttonl MouseMove (Sender: TObject;
Shift: TShiftState; X, Y: Integer); private
{ Private declarations ) public { Public declarations } end;
var
Forml: TForml;
Implementation {$R *.dfm}
procedure TForml. Buttonl Mouse Move (Sender: TObject;
Shift: TShiftState; X,Y: Integer); Var
index: integer; begin index: = random(4); case index of
0: Buttonl.Left: = Buttonl.Left + Buttonl. Width;
1: Buttonl.Left:=Buttonl.Left - Buttonl.Width;