1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
//OnDragOver du StringGrid
procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
//On autorise le déposé de Labels et de rien d'autre
if (source is TLabel) then Accept:=true;
end;
//OnDragDrop du StringGrid (Le déposé à été autorisé dans l'évènement
// OnDragOver)
procedure TForm1.StringGrid1DragDrop(Sender, Source: TObject; X,
Y: Integer);
var CellX,CellY:integer;
begin
//taransforme les coordonnées de la souris en coordonnées "Grille"
StringGrid1.MouseToCell(x,y,CellX,CellY);
//Mise à jour de la cellule visée
if (source is TLabel) then
StringGrid1.Cells[CellX,CellY]:=(source as TLabel).Caption;
end; |
Partager