Рисование по канве нажатием любой кнопки мыши

@geek · Регистрация: 21.10.2009

Author24 — интернет-сервис помощи студентам

Получаетсья сделать только для правой кнопки. А как сделать чтобы можно было и правой и левой?

Вот код

Pascal

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x1,y1:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
x1:=x;
y1:=y;
 
end;
 
procedure TForm1.FormClick(Sender: TObject);
begin
with Canvas do
 begin
   pen.Color:=clBlue;
   Rectangle(x1-20,y1-20,x1+20,y1+20);
 
end;
end;
 
end.

@Puporev · 08.06.2011, 14:02

Смени процедуру

Delphi

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with Canvas do
 begin
   pen.Color:=clBlue;
   Rectangle(x1-20,y1-20,x1+20,y1+20);
end;
end;

	08.06.2011, 14:02

Рисование по канве нажатием любой кнопки мыши

Решение