Воронеж 2021 Практическая работа №1 Тема практической работы: Файл проекта. Структура и Назначение
Вывод : Сегодня я написать программу с использованием многострочного редактора TRichEdit. Практическая работа№21
жүктеу/скачать 0.7 Mb.
|
- Бұл бет үшін навигация:
- Цель практической работы
| Вывод : Сегодня я написать программу с использованием многострочного редактора TRichEdit.
Практическая работа№21 Тема практической работы: Кнопки: основные свойства, методы, пример использования. Цель практической работы: Изучить виды и свойства кнопок в Delphi. Ход работы : Задание №1-3
Рис 86 Рис 87 Листинг : unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) MyFirstButton: TButton; procedure MyFirstButtonClick(Sender: TObject); procedure MyFirstButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyFirstButtonClick(Sender: TObject); begin Form1.close; end; procedure TForm1.MyFirstButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var
index:integer; begin
index:=random(4); case index of 0: MyFirstButton.Left:=MyFirstButton.Left+MyFirstButton.Width; 1: MyFirstButton.Left:=MyFirstButton.Left-MyFirstButton.Width; 2: MyFirstButton.Top:=MyFirstButton.Top+MyFirstButton.Height; 3: MyFirstButton.Top:=MyFirstButton.Top-MyFirstButton.Height; end; if MyFirstButton.Left<0 then MyFirstButton.Left:=0; if (MyFirstButton.Left+MyFirstButton.Width)>Form1.Width then MyFirstButton.Left:=Form1.Width-MyFirstButton.Width; if MyFirstButton.Top<0 then MyFirstButton.Top:=0; if (MyFirstButton.Top+MyFirstButton.Height)>Form1.Height then MyFirstButton.Top:=Form1.Height-MyFirstButton.Height; end;
end. Задание №4 Рис 88
Задание №5 Рис 89 Рис 90 Рис 91 Рис 92 Рис 93 Листинг: unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; ExitButton: TSpeedButton; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure ExitButtonClick(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.ExitButtonClick(Sender: TObject); begin close;
end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin Form2.ShowModal; if Form2.ModalResult=mrOk then Application.MessageBox('Вы нажали кнопку OK', 'Вы нажали'); if Form2.ModalResult=mrCancel then Application.MessageBox('Вы нажали кнопку Cancel', 'Вы нажали'); if Form2.ModalResult=mrAbort then Application.MessageBox('Вы нажали кнопку Abort', 'Вы нажали'); end; end.
жүктеу/скачать 0.7 Mb. Достарыңызбен бөлісу:
|