Réponse acceptée !
Détail un peu ton pb stp, je ne comprends pas le rapport avec le presse papier ... ce ne sont que des constantes donc que tu les appelles par leur nom de constante ou par la valeur à laquelle elles sont affectées ne change rien.
Explique ton problème, ce que tu veux faire(il y a plus de chances qu'on puisse te répondre).
Bon voila en tout les cas un exemple qui fonctionne
Tu crées un timer, un tmemo
et tu lies les évenements qui vont bien
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
memo1.Clear;
timer1.Interval:=500;
timer1.Enabled:=true;
for i:=0 to 50 do memo1.Lines.Add('test ligne '+inttostr(i));
end;
procedure TForm1.FormShow(Sender: TObject);
begin
memo1.setFocus();
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(self.Memo1.Handle, WM_KEYDOWN,VK_UP, 0);
sleep(100);
PostMessage(self.Memo1.Handle, WM_KEYUP,VK_UP, 0);
end;
end.
Le code qui gère l'appuie sur la flèche du clavier (ici vk_up) est dans
TForm1.Timer1Timer(Sender: TObject);
Si ca ne te convient pas détail ta demande stp
a+