Timer でクリップボードを監視し

変更があったら　Textの半角255文字を

ラベルのHINTや　Edit(HINT)に表示

MEMOに追加書き込みします

Text以外は無視します





uses

      Clipbrd;



procedure TForm1.Timer1Timer(Sender: TObject);

var

   MyClip :ShortString ;

begin

   if Clipboard.HasFormat(CF_TEXT) then

   begin

    MyClip := Clipboard.AsText;

     if MyClip <> Label1.Hint then

       begin

        Label1.Hint := MyClip;

        Edit1.Text := MyClip ;

        Edit1.Hint := MyClip;

        Memo1.Lines.Add(MyClip);

       end;

  end;

  

end;