Sujet Précédent Sujet Suivant

Glisser déposer d'un texte sélectionné vers un tedit

Résolu
cs_oluha Messages postés 71 Date d'inscription vendredi 19 mars 2004 Statut Membre Dernière intervention 5 février 2009 - 26 nov. 2004 à 17:03
cs_oluha Messages postés 71 Date d'inscription vendredi 19 mars 2004 Statut Membre Dernière intervention 5 février 2009 - 29 nov. 2004 à 09:33
Bonjour

J'ai deux composants tedit. L'un contient une chaine qui est automatiquement insérée. J'aimerai pouvoir glisser déposer la partie de la chaine que l'utilisateur a sélectionné dans le 2eme composant tedit.
Mon problème est que je n'arrive à faire un glisser déposer que quand la chaine entiere est automatiquement sélectionnée.
Quelqu'un peut m'aider ?

Merci

6 réponses

Réponse 1 / 6
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
27 nov. 2004 à 15:55
Bonjour, oluha.

Ouais, pas évident de sélectionner un texte à la souris et d'enchaîner sur le drag and drop.
J'y arrive en plaçant la procedure BeginDrag() dans l'évènement OnMouseUp de l'Edit où est situé le texte sélectionné à copier.
Ca peut paraître suprenant à l'utilisation, mais ça fonctionne.
En attendant une meilleure idée...

Bonne prog' :-p

N'oubliez pas de valider "Réponse acceptée" si ça vous convient, de toute manière vous ne pouvez pas valider autre chose ! :big)
3
Réponse 2 / 6
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
27 nov. 2004 à 16:18
Arf, je viens de m'apercevoir que tu recherchais le code pour des TEdit et non des TMemo. :blush)
Comme ils ont un ancêtre commun, cela ne pose aucun problème. Alors, pour me faire pardonner, voici le code pour les deux : TMemo et TEdit : 

unit Unit1;
{Source : http://community.borland.com/article/0%2C1410%2C19540%2C00.html}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyMemo = class(TMemo)
  private
    FLastSelStart: Integer;
    FLastSelLength: Integer;
    procedure WMLButtonDown(var Message: TWMLButtonDown);
      message WM_LBUTTONDOWN;
  published
    property LastSelStart: Integer read FLastSelStart
      write FLastSelStart;
    property LastSelLength: Integer read FLastSelLength
      write FLastSelLength;
  end;

  TMemo = Class(TMyMemo);

  TMyEdit = class(TEdit)
  private
    FLastSelStart: Integer;
    FLastSelLength: Integer;
    procedure WMLButtonDown(var Message: TWMLButtonDown);
      message WM_LBUTTONDOWN;
  published
    property LastSelStart: Integer read FLastSelStart
      write FLastSelStart;
    property LastSelLength: Integer read FLastSelLength
      write FLastSelLength;
  end;

  TEdit = class(TMyEdit);
  
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure MemosDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure MemosDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure EditsDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure EditsDragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyMemo }

procedure TMyMemo.WMLButtonDown(var Message: TWMLButtonDown);
var
  Ch: Integer;
begin
  if SelLength > 0 then begin
    Ch := LoWord(Perform(EM_CHARFROMPOS, 0,
      MakeLParam(Message.XPos, Message.YPos)));
    LastSelStart := SelStart;
    LastSelLength := SelLength;
    if (Ch >= SelStart) and (Ch <= SelStart + SelLength - 1) then
      BeginDrag(True)
    else
      inherited;
  end
  else
    inherited;
end;

procedure TForm1.MemosDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TMyMemo;
end;

procedure TForm1.MemosDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Dst, Src: TMyMemo;
  Ch: Integer;
  Temp: string;
begin
  Dst := Sender as TMyMemo;
  Src := Source as TMyMemo;
  Ch := LoWord(Dst.Perform(EM_CHARFROMPOS, 0, MakeLParam(X, Y)));

  if (Src = Dst) and (Ch >= Src.LastSelStart) and
    (Ch <= Src.LastSelStart + Src.LastSelLength - 1) then
    Exit;

  Dst.Text := Copy(Dst.Text, 1, Ch) + Src.SelText +
    Copy(Dst.Text, Ch + 1, Length(Dst.Text) - Ch);
  Temp := Src.Text;
  Delete(Temp, Src.LastSelStart + 1, Src.LastSelLength);
  Src.Text := Temp;
end;

{ TMyEdit }

procedure TMyEdit.WMLButtonDown(var Message: TWMLButtonDown);
var
  Ch: Integer;
begin
  if SelLength > 0 then begin
    Ch := LoWord(Perform(EM_CHARFROMPOS, 0,
      MakeLParam(Message.XPos, Message.YPos)));
    LastSelStart := SelStart;
    LastSelLength := SelLength;
    if (Ch >= SelStart) and (Ch <= SelStart + SelLength - 1) then
      BeginDrag(True)
    else
      inherited;
  end
  else
    inherited;

end;

procedure TForm1.EditsDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TEdit;
end;

procedure TForm1.EditsDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Dst, Src: TMyEdit;
  Ch: Integer;
  Temp: string;
begin
  Dst := Sender as TMyEdit;
  Src := Source as TMyEdit;
  Ch := LoWord(Dst.Perform(EM_CHARFROMPOS, 0, MakeLParam(X, Y)));

  if (Src = Dst) and (Ch >= Src.LastSelStart) and
    (Ch <= Src.LastSelStart + Src.LastSelLength - 1) then
    Exit;

  Dst.Text := Copy(Dst.Text, 1, Ch) + Src.SelText +
    Copy(Dst.Text, Ch + 1, Length(Dst.Text) - Ch);
  Temp := Src.Text;
  Delete(Temp, Src.LastSelStart + 1, Src.LastSelLength);
  Src.Text := Temp;

end;

end.


Vois-tu la différence entre les deux types de composants ?
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you
3
Réponse 3 / 6
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
27 nov. 2004 à 15:57
La réponse est sur le site de Borland : Drag and Drop Selected Text in between Memo Components.

Le code qui va bien n'était pas évident à trouver.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you
0
Réponse 4 / 6
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
27 nov. 2004 à 16:08
Allez, même que pour te simplifier le boulot et éviter l'installation d'un énième composant dans ta palette, voici le code qui va bien. 

unit Unit1;
{Source : http://community.borland.com/article/0%2C1410%2C19540%2C00.html}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyMemo = class(TMemo)
  private
    FLastSelStart: Integer;
    FLastSelLength: Integer;
    procedure WMLButtonDown(var Message: TWMLButtonDown);
      message WM_LBUTTONDOWN;
  published
    property LastSelStart: Integer read FLastSelStart
      write FLastSelStart;
    property LastSelLength: Integer read FLastSelLength
      write FLastSelLength;
  end;

  TMemo = Class(TMyMemo);
  
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure MemosDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure MemosDragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyMemo }

procedure TMyMemo.WMLButtonDown(var Message: TWMLButtonDown);
var
  Ch: Integer;
begin
  if SelLength > 0 then begin
    Ch := LoWord(Perform(EM_CHARFROMPOS, 0,
      MakeLParam(Message.XPos, Message.YPos)));
    LastSelStart := SelStart;
    LastSelLength := SelLength;
    if (Ch >= SelStart) and (Ch <= SelStart + SelLength - 1) then
      BeginDrag(True)
    else
      inherited;
  end
  else
    inherited;
end;

procedure TForm1.MemosDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TMyMemo;
end;

procedure TForm1.MemosDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Dst, Src: TMyMemo;
  Ch: Integer;
  Temp: string;
begin
  Dst := Sender as TMyMemo;
  Src := Source as TMyMemo;
  Ch := LoWord(Dst.Perform(EM_CHARFROMPOS, 0, MakeLParam(X, Y)));

  if (Src = Dst) and (Ch >= Src.LastSelStart) and
    (Ch <= Src.LastSelStart + Src.LastSelLength - 1) then
    Exit;

  Dst.Text := Copy(Dst.Text, 1, Ch) + Src.SelText +
    Copy(Dst.Text, Ch + 1, Length(Dst.Text) - Ch);
  Temp := Src.Text;
  Delete(Temp, Src.LastSelStart + 1, Src.LastSelLength);
  Src.Text := Temp;
end;

end.


Ben oui, ici on redéfinit un type TMemo comme descendant de la classe TMyMemo. C'est tout ! Et, du coup, pas de composant à installer. Cette technique porte un nom mais je l'ai oublié. Sorry !

NB : les deux composants TMemo ont leurs gestionnaires d'évènements OnDragOver et OnDragDrop connectés sur le même code. Ce qui fait qu'on peut réaliser un drag'n drop d'un TMemo à l'autre et réciproquement.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
cs_oluha Messages postés 71 Date d'inscription vendredi 19 mars 2004 Statut Membre Dernière intervention 5 février 2009
29 nov. 2004 à 09:16
Merci beaucoup, je teste ca tout de suite ! ^^
0
Réponse 6 / 6
cs_oluha Messages postés 71 Date d'inscription vendredi 19 mars 2004 Statut Membre Dernière intervention 5 février 2009
29 nov. 2004 à 09:33
Ca marche nickel, merci ! :D
0

Discussions similaires

Position 1 du TEdit
810mcu -
810mcu -

6 réponses
recuperer des valeurs dans un tedit
sfkuhvdlkufgs -
florenth -

11 réponses
Alignement controle TEdit
ricopetitdejeuner -
JulioDelphi -

4 réponses
Vérifier le premier caractère d'un TEdit
ArC3Nik -
ArC3Nik -

5 réponses
Effacer le contenu d'un TEdit
silversword666 -
f0xi -

2 réponses
Rejoignez-nous