mit
Delphi-Quellcode:
Tmemo=Class(StdCtrls.TMemo)
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
End;
überschreibst Du quasi die Klasse TMemo auf Deinem Form, alle Memos kommen jetzt im MouseDown links in der Methode
Delphi-Quellcode:
{ Tmemo }
procedure Tmemo.WMLButtonDown(var Message: TWMLButtonDown);
begin
// hier vielleicht über Tag o.ä. zusätzlich steuern ob oder ob nicht inherited aufgerufen wird
if (SelText <> '') then BeginDrag(false)
else inherited;
end;
was Du hier tun willst liegt bei Dir, inherited allein löst das Standardveraltenaus, bei If
könntest Du begin..end einfügen und anhand von Dir festzulegender Bedingungen das Draggen auslösen, ein Beispiel wäre die Steuerung über TAG ...