Drag & drop markierte text im memo

[michdan]

hallo Bummi

Nein ich verstehe nicht was ich mit da machen muss, kannst du mir mal etwas genauer erklären worum es geht?
Danke.

[Bummi]

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 ...

[michdan]

hallo Bummi

Das klappt wirklich, vielen dank.

Delphi-Quellcode:

procedure Tmemo.WMLButtonDown(var Message: TWMMouse);
begin
     if ((form1.memo1.SelText <> '') and not bSelected ) then
        begin
          form1.memo1.BeginDrag(false);
          bSelected := true;
        end
     else
        begin
          inherited;
          bSelected := false;
     end;
end;

[Sir Rufo]

Aber bitte so:

Delphi-Quellcode:

  Tmemo= Class( StdCtrls.TMemo )
  private
    bSelected : Boolean; // sollte man eigentlich noch initialisieren
  public
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  End;

procedure Tmemo.WMLButtonDown(var Message: TWMMouse);
begin
     if (( {form1.memo1.}SelText <> '') and not bSelected ) then
        begin
          {form1.memo1.}BeginDrag(false);
          bSelected := true;
        end
     else
        begin
          inherited;
          bSelected := false;
     end;
end;