Home

Page 112
Page 112
background image

Система

105

Здесь происходит проверка: если щелкнули левой кнопкой, то нужно при-

своить переменной Dragging значение true и запомнить координаты,

в которых произошел щелчок.

Теперь создайте обработчик события

 и напишите в нем сле-

дующее:

procedure

 (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;

begin

if Dragging then

begin

Left

Top

end;

end;

Здесь мы проверяем: если переменная Dragging равна true, то пользователь

тащит окно, и нужно изменять его координаты.

В обработчике события

 нужно написать только одну строчку:

Dragging := False.

Раз кнопка отпущена, то мы должны изменить переменную Dragging на

false и закончить перетаскивание.

 j

. '

i,

 Integer;

i width, i height: Integer;

i_left,

rectRgn:

.;

'

 . i left

  - 1 ;

 for j := 0 to i

 begin

• * if

 < 0

begin

 Canvas.

 0] ;

width - 1 do

then

 3.12. Приложение с окном нестандартной формы

Посмотрите на рис. 3.12 и вы увидите окно моей программы. Я специально

расположил окно поверх редактора с кодом программы, чтобы вы могли


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.