PaintBox

[_-Re@l-_]

Как проверить, зажата ли левая кнопка мыши?

[SERG1980]

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

[_-Re@l-_]

Ясно, а как проверить, что мышь ещё одновременно и двигается?(т.е. левая кнопка зажата и мышь двигается, просто через таймер как-то не очень)

[SERG1980]

Ну вы хоть свойства компонента посмотрите....

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

-Re@l- так к слову попробуйте скачать книгу 100 компонентов (Архангельский) там описаны все основные св-ва основных компонентов. Могу даже выложить

[ex.cluz]

Предвосхищаю ваш возможный следующий вопрос.
SERG1980 вам правильно сказал.
Только в этом обработчике не удастся задействовать
if Button = mbLeft then...
поэтому создайте глобальную переменную типа boolean и в OnMouseDown приравнивайте, например, к true. А в OnMouseMove проверяйте ее на это значение.

[mutabor]

Также в событие MouseMove приходит параметр Shift, в нем все что нужно есть.

[SERG1980]

Ну и небольшой примерчик

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if ssLeft in Shift then
 begin
  TPaintBox(Sender).Canvas.LineTo(x,y);
 end else TPaintBox(Sender).Canvas.MoveTo(x,y);
end;

[ex.cluz]

Сообщение от SERG1980

Ну и небольшой примерчик

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if ssLeft in Shift then
 begin
  TPaintBox(Sender).Canvas.LineTo(x,y);
 end else TPaintBox(Sender).Canvas.MoveTo(x,y);
end;

А я и не знал на счет ssLeft. Стыдно

[_-Re@l-_]

-Re@l- так к слову попробуйте скачать книгу 100 компонентов (Архангельский) там описаны все основные св-ва основных компонентов. Могу даже выложить

Книга эта есть, однако там не было того что я вас спрашивал.

[SERG1980]

Сообщение от _-Re@l-_

Книга эта есть, однако там не было того что я вас спрашивал.

Да извиняюсь спутал книги