Discussion :

[segnac]

Bonsoir

Voici mon propos:
j'ai un TButton qui crée deux TEdit dynamique, jusque là OK.
je configure pour effectuer un déplacement du contenu du TEdit vers l'autre OK.
Mais je n'arrive pas à affecter l'événement
OnDragDrop(Sender, Source: TObject; X, Y: Integer);

Voici l'évenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  Accept:=Source is TEdit.Text;
end;

J'ai regardé dans la FAQ, mais l'exemple ne m'aide pas.
Merci pour les réponses
Bonne Année 2010.
end

[BuzzLeclaire]

Salut,

Ton Accept devrait ce situer dans la procédure DragOver non ?

Et dans ta procédure DragDrop ce serait plutot ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Sender as TEdit).Text := (Source As TEdit).text

A plus

[BuzzLeclaire]

Re...

pour être plus concret tu devrais faire cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TEdit;
end;
 
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  (Sender as TEdit).Text := (Source as TEdit).Text;
end;

Attention te trompe pas dans l'affectation des procédures aux Edits dynamiques, qu'il n'y ai pas de mélange entre les deux.

[BuzzLeclaire]

Salut,

Tu m'a répondu en MP. Il est préférable de mettre ici ta réponse.

Content d'avoir pu t'aider.