Вопрос про события мыши?

[juan666777]

У меня вопрос .Я делаю не большой векторный редактор и мне приходится пользоваться OnMouseDown,MouseMove и OnMouseUp а, можно ли в одном событии обрабатывать все эти 3 события? А то мне приходится прыгать во все эти события и это как то не удобно .

[The Best]

что ты имеешь ввиду под "в одном событии обрабатывать все 3 события" Можешь написать процедуру, в которой будешь проверять все эти 3 свойства и в каждом событии просто написать обращение к данной процедуре..

[Evgeniy26]

Может так:

procedure Mouse(index: Integer;.....);
begin
  case index of
    0://MouseUp
    1://MouseDown
    2://MouseMove
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Mouse(0,...);
end;

[juan666777]

Это не плохой вариант .Но а можно сделать такую процедуру что бы вообще не приходилось в них не чего писать(MouseUp,MouseDown...) ну или хотя бы в одну писать а выглядело это так?
prosedure Name;
begin
if клавиша мыши нажата then
......
if мышь шевелится then
......
if клавиша мыши отпущена then
......
if нажаты клавиши клавиатуры then
......
end

[Evgeniy26]

Вот пример попробуй:

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
    procedure WndProc(var Msg: TMessage); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  case Msg.Msg of
    WM_LBUTTONDOWN: Caption := 'jjjj';
    WM_LBUTTONUP: Caption := 'jjjj';
  end;
end;

[juan666777]

Я сделал
if (Msg.Msg = MWM_LBUTTONDOWN) then
begin
label1.caption:='1';
end;
if (Msg.Msg = MWM_MBUTTONDOWN) then
begin
label1.caption:='2';
end;

.........

но почему то не чего не меняется при нажатии клавиши

[juan666777]

Всё спасибо разобрался.