Ver Mensaje Individual
  #5  
Antiguo 11-08-2005
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
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
Responder Con Cita