1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| { =============================================================== }
procedure TF_Princ.Copier1Click(Sender: TObject);
Var
Grille : TStringGrid ;
ACol, ARow : Integer ;
Begin
If (ActiveControl is TStringGrid) Then
Begin
Grille := (ActiveControl as TStringGrid) ;
ACol := Grille.Col ;
ARow := Grille.Row ;
Clipboard.AsText := Grille.Cells[ACol, ARow] ;
End ;
If (ActiveControl is TEdit) Then
Begin
Clipboard.AsText := (ActiveControl as TEdit).SelText ;
End ;
End;
{ =============================================================== }
procedure TF_Princ.Coller1Click(Sender: TObject);
Var
Grille : TStringGrid ;
ACol, ARow : Integer ;
Begin
If Clipboard.HasFormat(CF_TEXT) then
Begin
If (ActiveControl is TStringGrid) Then
Begin
Grille := (ActiveControl as TStringGrid) ;
ACol := Grille.Col ;
ARow := Grille.Row ;
Grille.Cells[ACol, ARow] := Clipboard.AsText ;
End ;
If (ActiveControl is TEdit) Then
Begin
(ActiveControl as TEdit).SelText := Clipboard.AsText ;
End ;
End ;
End;
{ =============================================================== } |
Partager