Лаборатория иши №

type
TForm1  class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
Uni quyidagicha o`zgartiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1  class(TForm)
private
{ Private declarations }
procedure WMRButtonDown(var Msg: TWMMouse); message WM_RBUTTONDOWN;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMRButtonDown(var Msg : TWMMouse);
begin
MessageDlg('Sichqoncha ung tugmasi bosildi.', mtInformation, [mbOK], 0);
end;
end.
Dastur ishga yuklanib forma sirtida sichqonchaning o`ng tugmasi bosilsa, quyidagi dialog oynasi xosil bo`ladi:

1.6-rasm
§-1.2. DELPHI DASTURLASH TILINING BOSHQARUV OPERATORLARI

§-1.2.1. O`tish operatori (Goto)

Odatda dastur o`z ishini, yozilgan operatorlar ketma-ketligi bo`yicha amalga oshiradi. Operatorlarning tabiiy bajarilish ketma-ketligini buzish uchun shartciz o`tish operatoridan foydalaniladi. Dasturning bir operatoridan boshqarishni boshqa operatorga uzatish uchun boshqarilish uzatiladigan operator oldiga belgi (metka) qo`yilishi kerak. Boshqarishni shartsiz uzatish operatori quyidagicha yoziladi:
Goto ;
bu holda boshqarish ko`rsatilgan metkali qatorga uzatiladi. YUqorida aytganimizdek dasturda qatnashgan barcha metkalar dasturning metkalar bo`limida e`lon qilinishi kerak: