Windows: Markieren mit der Maus bei D&D

[Ich934]

Hallo,

folgendes Problem tritt nur unter Windows auf. Unter Linux geht es ohne Probleme und auch in Wine.

- Projekt erstellt und einfach eine TEdit rein gezogen (ggf. Text angepasst damit man etwas zum testen hat)
- Programm starten und dann mit der Maus Text markieren
=> funktioniert

DragMode vom TEdit auf dmAutomatic stellen und das gleiche nochmals versuchen.
=> es wird hier sofort in den D&D Modus gegangen
=> gewünscht ist erst mal ein markieren und nur wenn ich das rüber in ein anderes Feld ziehe D&D

Wie gesagt geht das unter Linux (GTK und QT6) sowie in Wine problemlos und wie gewünscht. Jemand hier eine Idee, wie ich das lösen kann?

[Mathias]

Wie ist deine Window Version von deinem Programm kompiliert ?
WinAPI, GTK2 oder QT6 ?

[Ich934]

Windows ist direkt Windows. Kein anderes Widget-Set.

[Soner]

Was willst du denn d&d, den Text von TEdit oder TEdit selber?
Win32-UI unterstützt kein Text d&d von TEdit und und TMemo.
Der Erffekt den du gesehen hast ist ganz normal für Win32-UI.
Suche für Text-d&d nach drag-n-drop
Komponente bei OPM. Ich weiß aber nicht, ob die auch mit portiert wurden.

[Ich934]

Ich möchte

a) D&D zwischen verschiedenen Komponenten (funktioniert)
b) Die Möglichkeit, den Text auch mit der Maus zu markieren (funktioniert unter Linux und in Wine)

Die Frage ist, geht das auch, muss ich hier ggf. etwas auf eine andere Art und Weise umsetzen etc.

Ich habe hier ein Programm, das mit Delphi geschrieben ist. Leider hab ich keine Sourcen, um das nachzuschauen. Da funktioniert beides. Es kann aber sein, dass hier D&D manuell realilsiert wurde. Deswegen meine Frage.

[Jorg3000]

Hi!
Ich habe ein bisschen experimentiert und es hinbekommen.
Das Dragging muss mit der rechten Maustaste gemacht werden, weil der Linksklick sofort die Textmarkierung zunichte macht.

In der TForm-Definition müssen folgende Variable und Prozeduren deklariert werden ...

Code: Alles auswählen

TForm1 = class(TForm)
   private
    DraggedText: String;
    procedure SrcControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DestControlDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure DestControlDragDrop(Sender, Source: TObject; X, Y: Integer);
  end;

... die wie folgt ausprogrammiert sind ...

Code: Alles auswählen

procedure TForm1.SrcControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TCustomEdit then               // TEdit & TMemo => TCustomEdit
    if TCustomEdit(Sender).SelLength>0 then
      begin
       self.DraggedText:=TCustomEdit(Sender).SelText;
       TCustomEdit(Sender).BeginDrag(false);
      end;
end;

procedure TForm1.DestControlDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  {var} Accept := self.DraggedText <> '';
end;

procedure TForm1.DestControlDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if self.DraggedText <> '' then
    begin
     if Sender is TCustomEdit then
       begin
        TCustomEdit(Sender).Text := DraggedText;
        // TCustomEdit(Sender).SelText := '';  // optional: Ausschneiden
       end;
     DraggedText := '';
    end;
end;

Und letztlich müssen bei den betroffenen Edit/Memo-Feldern die Event-Handler zugewiesen werden.
Hier Edit1 als Quelle (Feld dessen Inhalt gezogen werden kann) und Edit2 als Ziel.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.OnMouseDown := @self.SrcControlMouseDown;

  Edit2.OnDragOver := @self.DestControlDragOver;
  Edit2.OnDragDrop := @self.DestControlDragDrop;
end;

Grüße, Jörg

[Soner]

Ich möchte

a) D&D zwischen verschiedenen Komponenten (funktioniert)
b) Die Möglichkeit, den Text auch mit der Maus zu markieren (funktioniert unter Linux und in Wine)

Die Frage ist, geht das auch, muss ich hier ggf. etwas auf eine andere Art und Weise umsetzen etc.

Ich habe hier ein Programm, das mit Delphi geschrieben ist. Leider hab ich keine Sourcen, um das nachzuschauen. Da funktioniert beides. Es kann aber sein, dass hier D&D manuell realilsiert wurde. Deswegen meine Frage.

Dann würde ich D&D unter Windows nicht automatisch sondern manuell machen, weil du sonst nur Probleme bekommst. Du kannst D&D manuell starten sobald Mauszeiger von TEdit x/y-Koordinaten weiter bewegt hat, so hatte ich damals bei TreeView-Knoten gemacht.