小弟在一般元件的event中startdrag,enddrag與mousedown,mouseup均設有動作
但drag與mouse僅能有一種能反映,也就是dragmode設為automatic ,startdrag及enddrag可以反應mousedown,mouseup沒法
dragmode設為manual ,mousedown,mouseup可以反應startdrag及enddrag則不行

不知前輩們有方法可讓drag與mouse並存?謝謝

你需要的是進階的程式設計能力

學習如何攔截與使用 message 吧！

簡單來說，可以使用
1. dragmode設為automatic
2. mousedown mouseup 用 message 來處理

===================引 用 chiehjj 文 章===================
小弟在一般元件的event中startdrag,enddrag與mousedown,mouseup均設有動作
但drag與mouse僅能有一種能反映,也就是dragmode設為automatic ,startdrag及enddrag可以反應mousedown,mouseup沒法
dragmode設為manual ,mousedown,mouseup可以反應startdrag及enddrag則不行

不知前輩們有方法可讓drag與mouse並存?謝謝

之前試了仍不行,煩請前輩幫忙看看

在TForm1加
type
TLabel = class(StdCtrls.TLabel)
private
procedure WMLButtonDown(var Message: {TWMLButtonDown}TWMmouse); message WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
end;

procedure TLabel.WMLButtonDown(var message: TWMmouse);
begin
IF message.Msg=WM_LBUTTONDOWN THEN
begin
str:=str 'llllldown,';
end;
inherited;
end;
procedure TLabel.WMLButtonUp(var message: TWMLButtonUp);
begin
str:=str 'up;';
inherited;
end;

procedure TForm1.Label1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
str:=str 'strrtdarg;' ;
end;
procedure TForm1.Label1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
str:=str 'enddarg;' ;
end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
str:=str 'm_down' ;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
str:=str 'm_up;' ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(str);
end;

在label內dragmode設為automatic與manual結果都一樣