VPF::Mouse - Форум программистов

Sanechichek

Дата 23.10.2008, 06:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 20.9.2008

Репутация: нет
Всего: нет

Подскажите пожалуйста как можно сделать так что бы при зажатии левой кнопки на Image и не отжимаючи ее перетягывать по Imagу образовывался прямокутник, подобно тому как мишь перетягывать на рабочом столе или выделяем папки... Только нужно что бы при отжатии кнопки зафиксировался прямокутник, а при повторном нажатии он исчезал.

Coder

Дата 23.10.2008, 08:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 2
Всего: 11

вот так можно

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  g_LButtonDown : boolean = false;
  g_DownX, g_DownY : Integer;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
    begin
      g_LButtonDown:=true;
      g_DownX:=X;
      g_DownY:=Y;
    end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
    begin
      g_LButtonDown:=false;
    end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  offset : TPoint;
begin
  if g_LButtonDown then
    begin
      Image1.Refresh;
{вот это все можно узнавать и устанавливать заранее}
      offset.X:=Image1.Left;
      offset.Y:=Image1.Top;
      Form1.Canvas.Brush.Style:=bsClear;
      Form1.Canvas.Pen.Style:=psDash;
      Form1.Canvas.Pen.Color:=clBlue;

      Form1.Canvas.Rectangle(g_DownX+offset.X,g_DownY+offset.Y,X+offset.X,Y+offset.Y);
    end;
end;

end.

Это сообщение отредактировал(а) Coder - 23.10.2008, 08:49

Sanechichek

Дата 23.10.2008, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 20.9.2008

Репутация: нет
Всего: нет

Большое спасибо

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »