1. delphi визуал дастурлаш муҳити

ShowHint – Мантиқий тур. Ёрдамчи ахборот кўрсатиш кераклигини белгилайди.
Tag – Бутун тур. Ҳеч нарсага таъсир қилмайди.
Top – Бутун тур. Ойна юқори позицияси.
TransparentColor – Мантиқий тур. Агар қиймати true бўлса форма ёки компонента ҳар доим шаффоф бўлади.
TransparentColorValue – Шаффоф ранг.
VertScrollBar – Вертикал силжитиш йулчаси.
Visible – Мантиқий тур. Агар киймати true бўлса, то форма/компонент кўринади, аксинча кўринмайди.
Width – Бутун тур. Ойна кенглиги.
WindowState – Ойна ҳолати. Қуйидаги параметрлари мавжуд:
wsNormal – ойна нормал ҳолатда.
wsMaximized – ойна максимал ҳолатда.
wsMinimized – ойна минимал ҳолатда.


Асосий форма ходисалари
Жадвалда асосий форманинг ҳодисалари қачон юзага келиши таърифи берилган. Бу ҳодисаларни Объектлар инспекторининг Events бўлимида кўриш мумкин.

Ҳодиса	Таърифи
OnActivate	Форма активлашганда
OnCanResize	Форма ўлчамини ўзгартиришдан олдин.
OnClick	Формага чертишда
OnClose	Форма ёпилганда
OnCloseQuery	Формани ёпишдан олдин
OnCreate	Форма яратилганда
OnDblClick	Формага икки марта чертилганда
OnDeactivate	Форма деактивлашганда
OnDestroy	Форма йўқ қилинганда
OnHide	Форма тасвири йўқолганда
OnKeyDown	Тугма босилганда
OnKeyPress	Тугма босилиб, қўйиб юборилганда
OnKeyUp	Тугма қўйиб юборилганда
OnMouseDown	Сичконча тугмаси босилганда
OnMouseMove	Сичконча ҳаракатланганда
OnMouseUp	Сичконча тугмаси қўйиб юборилганда
OnMouseWheel	Сичконча гилдираги томонидан
OnMouseWheelDown	Сичконча гилдираги пастка айлантирилганда
OnMouseWheelUp	Сичконча гилдираги юқорига айлантирилганда
OnPaint	Форма қайтадан чизилганда
OnResize	Форма ўлчамлари ўзгарганда
OnShortCut	Иссиқ клавиша босилганда
OnShow	Форма ҳали чизилмасдан пайдо бўлганда

Событие Описание
Бу форма томонидан генерация қилиниши мумкин бўлган асосий ҳодисалардир. Бу ҳодисалар компоненталарга ҳам тегишлидир.
4.ДАСТУР МАТНИ

program Project1;

uses
Forms,

Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$E SCR}

{$R *.res}

begin
Application.Initialize;

Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)

Image1: TImage;
procedure FormActivate(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$E SCR}
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin
form2.show;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
close;
end;

end.
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type
TForm2 = class(TForm)

Timer1: TTimer;
Label1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PastUng;
procedure PastChap;
procedure TepaUng;
procedure TepaChap;
procedure FormActivate(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

i,j,k,l:integer;
a,b,c,d:boolean;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.PastUng;

begin
Label1.Top:=Label1.Top+1;
Label1.Left:=Label1.Left+1;

a:=True;
b:=False;

c:=False;
d:=False;
end;

procedure TForm2.PastChap;

begin
Label1.Top:=Label1.Top+1;
Label1.Left:=Label1.Left-1;

b:=True;
a:=False;

c:=False;
d:=False;
end;

procedure TForm2.TepaUng;

begin
Label1.Top:=Label1.Top-1;
Label1.Left:=Label1.Left+1;

c:=True;
b:=False;

a:=False;
d:=False;
end;

procedure TForm2.TepaChap;

begin
Label1.Top:=Label1.Top-1;
Label1.Left:=Label1.Left-1;

d:=True;
b:=False;

c:=False;
a:=False;
end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin
if ((Label1.top<=0)and(Label1.left<=0))
or((Label1.top<=0)and c )
or((Label1.left<=0)and b )or a
then PastUng;

if ((Label1.top<=0)and(Label1.left>=1024-Label1.Width))

or((Label1.top<=0)and d )
or((Label1.left>=1024-Label1.Width)and a )or b
then PastChap;

if ((Label1.top>=750-Label1.Height)and(Label1.left>=1024-Label1.Width))

or((Label1.top>=750-Label1.Height)and b)
or((Label1.left>=1024-Label1.Width)and c)or d
then TepaChap;

if ((Label1.top>=750-Label1.Height)and(Label1.left<=0))

or((Label1.top>=750-Label1.Height)and a)
or((Label1.left<=0)and d )or c
then TepaUng;
end;

procedure TForm2.FormCreate(Sender: TObject);

begin
PastUng;
end;

procedure TForm2.FormActivate(Sender: TObject);

begin

ShowCursor(False);

end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
showCursor(true);
form1.close;
end;

end.