|
Ішкі бағдарламаның листингі
|
| бет | 77/98 | | Дата | 07.02.2022 | | өлшемі | 1,51 Mb. | | #85980 |
| Байланысты: DelphiІшкі бағдарламаның листингі
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. Бағдарлама іске қосылғанда терезеде үш өріс бейнелеу.
Достарыңызбен бөлісу: |
|
|
