Discussion :

[ghazaliove]

Salut tous!,
Je suis un débutant Delphi 6..
Je veut faire un example de 2 Edit Edit1, Edit2 comme:
Edit1: Text=3
Edit2: Text=4

Je veux glisser Edit1 vers Edit2 et la resultat sera 7 sur Edit2
et aussi à l'inverse, de Edit2 vers Edit1.
...
Merçi d'avance

[Cl@udius]

Salut,

Tu peux réaliser cela assez simplement.
J'ai mis deux TEdit sur ma form. Leurs propriétés DragMode sont à dmAutomatic.

Ensuite tu leurs assigne ces deux procédures sur le OnDragOver et sur le OnDragDrop.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.EditDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  dummy: Integer;
begin
  Accept := (Source is TEdit) and (Source <> Sender) and
                (TryStrToInt(TEdit(Source).Text, dummy)) and
                (TryStrToInt(TEdit(Sender).Text, dummy));
end;
 
procedure TForm1.EditDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TEdit(Sender).Text := IntToStr(StrToInt(TEdit(Source).Text) +
                                 StrToInt(TEdit(Sender).Text));
end;

Voilou !

@+ Claudius