dragdroptimeofday.pas

来自「Drag files and Drop to delphi forms 0402」· PAS 代码 · 共 26 行

unit DragDropTimeOfDay;

interface

uses
  Graphics;

type
  // TTimeOfDay is the structure which is transferred from the drop source to
  // the drop target.
  TTimeOfDay = record
    hours,
    minutes,
    seconds,
    milliseconds: word;
    color: TColor;
  end;

const
  // Name of our custom clipboard format.
  sTimeOfDayName = 'TimeOfDay';

implementation

end.