Ішкі бағдарламаның листингі

procedure TForm1.N2Click (Sender: TObject);

begin

Close; end;

Imagel.Picture.LoadFromFile ('C:\Documents and Settings\М±ратбек\Мои документы\Мои рисунки\Atanam.bmp '); end;

procedure TForm1.N6Click (Sender: TObject); begin

Imagel.Picture.LoadFromFile ('C:\Documents and Settings\М±ратбек\Мои документы\Мои рисунки\NvpSp1.bmp'); end;

procedure TForml.FormMouseDown

(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X. Y: Integer); var p:TPoint; begin

p.X :=X; p.Y :=Y;

p := ClientToScreen (p); PopupMenul.Popup (p.X, p.Y); end;

№8. Сөйлем құраушы

Жұмыстың мақсаты – мына әрекеттерді орындайтын бағдарлама құру:

1. Бағдарлама іске қосылғанда терезеде үш өріс бейнелеу.