Delphi визуалды программалау ортасы


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



бет76/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   72   73   74   75   76   77   78   79   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

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

procedure TForm1.N2Click (Sender: TObject);

begin

Close; end;



procedure TForm1.N5Click (Sender: TObject); begin

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. Бағдарлама іске қосылғанда терезеде үш өріс бейнелеу.





Достарыңызбен бөлісу:
1   ...   72   73   74   75   76   77   78   79   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет