Page 78 - 6370
P. 78
end;
if (ssShift in Shift) then
begin
canvas.LineTo(x,y);
memo1.Lines.Add(IntToStr(x) +' '+
IntToStr(y) );
end
end;
8. Доповнюють програму процедурою, що показуватиме на
панелях А і В статусного рядка поточні значення
координат курсору під час його переміщення:
procedure TForm3.FormMouseMove(Sender:
TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[0].Text:='А'+'
'+intToStr(x);
StatusBar1.Panels[1].Text:='В'+'
'+intToStr(y);
end;
9. Запускають командою Run програму і рухаючи
курсором по вікні з допомогою мишки переконуються у
дієвості – тобто відображення координат курсора у
панельках А і В (рисунок 55):
80
