Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

Перетаскивание   Найти похожие ветки 

 
картограф ©   (2005-10-29 19:32) [0]

Здравствуйте!
Как сделать так, что бы геометрическую фигуру можно было бы перетаскивать и когда ее перетащили бы в определенную область( на другую фигуру) и отпустили кнопку мыши, произошло какое-либо событие(например запись в МЕМО). Буду вдвойне рад если будут примеры кода...


 
SergProger ©   (2005-10-30 01:49) [1]

Не понял, о какой фигуре идёт речь, покажу на примере TImage:

var
 Form1: TForm1;
 DownButton: Boolean;
 LastPoint: TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.DoubleBuffered:=True;
 Image1.Canvas.Brush.Color:=clYellow;
 Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
 DownButton:=False;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 LastPoint:=Point(X,Y);
 DownButton:=True;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 If DownButton then begin
   Image1.Left:=Image1.Left+X-LastPoint.X;
   Image1.Top:=Image1.Top+Y-LastPoint.Y;
 end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 DownButton:=False;
 Label1.Caption:=IntToStr(Image1.Left)+", "+IntToStr(Image1.Top);
end;


 
картограф ©   (2005-10-30 08:39) [2]

Большое спасибо! Одним белым пятном в моих знаниях о Delphi стало меньше!



Страницы: 1 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
2-1130411420
SamProf
2005-10-27 15:10
2005.11.20
Как уменьшить JPG картинку.


8-1120050434
sinful
2005-06-29 17:07
2005.11.20
Непересекающиеся окружности


2-1131219516
gans1
2005-11-05 22:38
2005.11.20
delphi


2-1130674682
AndrewLi
2005-10-30 15:18
2005.11.20
Компонент Memo и изъятие содержимого определенной строчки


1-1130508623
Dimedrol
2005-10-28 18:10
2005.11.20
TWebBrowser. Не копируется текст.