popup en DBGrid, copiar,pegar y mas

[User_baja1]

Hola a todos,

Quiero añadir que aparezcan mas opciones al hacer clic con el boton derecho sobre un DBGrid. Ahora salen por defecto copiar,pegar,cortar,eliminar y seleccionar todo.

Me gustaria conservar estos y añadir unos propios, el problema es que no se como conservar los standard. No puedo hacer "DBGrid1.copyToClipboard" y nada parececido.

¿Sabeis como?

Gracias,
david.

[[Lepe]]

Échale una visual a la unidad Clipbrd (Clipboard), verás que realizar las operaciones estandar es una tarea bastante llana.

Sabiendo esto, puedes crearte tu propio menú desde cero.

Un saludo

[*Caro*]

Hola amigo Lepe.

Disculpa por la pregunta pero busco esa unidad que indicas
pero no la encuentro podrias decirme donde se encuentra dicha unidad por favor.

Que tengan un buen dia

[dec]

Hola,

No dices en qué versión de Delphi estás trabajando, pero, al menos en la versión 7 puedes añadir en alguna de las claúsulas "Uses" de la unidad donde vayas a usarla, la unidad que te dice Lepe, o sea, "ClipBrd", tal como si añadieras otra cualquiera, como "Dialogs", "SysUtils", etc.

Una vez añadida dicha unidad podrás trabajar con una clase de nombre "ClipBoard" (creo que es una clase) la cual te permite operar con el portapapeles de Windows. ¿Más información? En la propia ayuda de Delphi, o en estos mismos Foros: utiliza el buscador y busca por "ClipBoard" o similares palabras "clave".

[*Caro*]

Gracias por la respuesta,
Lo que yo hago para ver el codigo de alguna unidad que me intereza es presionar la tecla control + click sobre el identificador (TLabel, Clipbrd) con eso me muestra su definiciòn en el codigo fuente. lo que yo estaba haciendo es colocar Clipbrd, Clipboard donde se me ocurria solo para ver su codigo al hacer lo anteriormente dicho no me mostraba nada (control+click).
Ahora entendi que si quieres ver dichas definiciones deben de estar en el lugar al que corresponden osea el Clipbrd en el uses

Revise el codigo y no encontre dichas funciones(copiar,pegar,cortar,eliminar ) o talvez no entendi bien.

Aqui va la definiciòn de las funciones de dicha unidad

Código Delphi [-]
unit Clipbrd;
.....
type
  TClipboard = class(TPersistent)
  private
    FOpenRefCount: Integer;
    FClipboardWindow: HWND;
    FAllocated: Boolean;
    FEmptied: Boolean;
    procedure Adding;
    procedure AssignGraphic(Source: TGraphic);
    procedure AssignPicture(Source: TPicture);
    procedure AssignToBitmap(Dest: TBitmap);
    procedure AssignToMetafile(Dest: TMetafile);
    procedure AssignToPicture(Dest: TPicture);
    function GetAsText: string;
    function GetClipboardWindow: HWND;
    function GetFormatCount: Integer;
    function GetFormats(Index: Integer): Word;
    procedure SetAsText(const Value: string);
  protected
    procedure AssignTo(Dest: TPersistent); override;
    procedure SetBuffer(Format: Word; var Buffer; Size: Integer);
    procedure WndProc(var Message: TMessage); virtual;
    procedure MainWndProc(var Message: TMessage);
    property Handle: HWND read GetClipboardWindow;
    property OpenRefCount: Integer read FOpenRefCount;
  public
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
    procedure Clear; virtual;
    procedure Close; virtual;
    function GetComponent(Owner, Parent: TComponent): TComponent;
    function GetAsHandle(Format: Word): THandle;
    function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
    function HasFormat(Format: Word): Boolean;
    procedure Open; virtual;
    procedure SetComponent(Component: TComponent);
    procedure SetAsHandle(Format: Word; Value: THandle);
    procedure SetTextBuf(Buffer: PChar);
    property AsText: string read GetAsText write SetAsText;
    property FormatCount: Integer read GetFormatCount;
    property Formats[Index: Integer]: Word read GetFormats;
  end;
function Clipboard: TClipboard;
function SetClipboard(NewClipboard: TClipboard): TClipboard;

Si me estoy equivocando lo siento, pero casi nose sobre el manejo del Clipboard

[*Caro*]

Algo que se me fue, estoy trabajando con delphi 7