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
downloaded from KitabYurdu.org
203
{ 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
Dostları ilə paylaş: |