Clipboard.AsText:='hello'; is not working
Original Reporter info from Mantis: equinox
-
Reporter name:
Original Reporter info from Mantis: equinox
- Reporter name:
Description:
Well, it does not work.
Clipboard.SetTextBuf('hello'); is not working either.
Additional information:
{mode objfpc}{
H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,Clipbrd,
Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
T :TPersistent;
begin
Clipboard.AsText:='hello';
//Clipboard.SetTextBuf('hello');
//Clipboard.SetAsHandle(CF_TEXT, 'hello');
end;
initialization
{$I clip.lrs}
end.
Mantis conversion info:
- Mantis ID: 1066
- OS: XP
- OS Build: 0.9.7 beta
- Build: 20050716
- Platform: Windows
- Version: 0.9.7 (CVS)
- Monitored by: » luizamerico (Luiz Americo)
- Target version: 0.9.10