Если текст выделен

[Shouldercannon]

Помогите с RichEdit. Если текст выделен то кнопка Copy должна быть доступна.
Так попробовалЖ

procedure TForm1.Copy1Click(Sender: TObject); 
begin 
if RichEdit1.SelLength>0 then 
Copy1.Enabled:=True; 
RichEdit1.CopyToClipboard; 
end;

не прокатывает

И если в буфере обмена есть текст то Paste1.Enabled:=True;
Если же нет ничего то False.

[alexBlack]

Попробуйте так:

// copy
procedure TForm1.Button1Click(Sender: TObject);
begin
   RichEdit1.CopyToClipboard;
end;

// paste
procedure TForm1.Button2Click(Sender: TObject);
begin
   RichEdit1.SelText := Clipboard.asText;
end;

// Лучше на OnIdle повесить 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Button1.Enabled := RichEdit1.SelLength > 0;
   Button2.Enabled := length(Clipboard.AsText) > 0;
end;

[NikLik]

Попробуй так.

[Shouldercannon]

Вроде бы всё утряслось, но снова ошибка. После того как запустил свою программу делаю PrintScreen, после чего запускаю PhotoShop и на тебе моя программа говорит Cannon open clipboard аж сразу два раза вылетает.

[alexBlack]

Лучше воспользуйтесь советом от NikLik.
------------------------------------------------
Ну или таймер выключайте, когда приложение теряет автивность -
обрабатывайте события Application.OnActivate / Application.OnDeactivate

[Shouldercannon]

Снова проблема. У меня ещё есть процедупы в private и они конфликтуют с новыми.

private
    SessionEnding: Boolean;
  procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;
  function AppHook(var msg: TMessage): boolean;
  procedure wmActivate (var Msg:TWMACTIVATE);
  message wm_Activate;

  FNextClipboardViewer: HWND;
  procedure WMChangeCBChain(var Msg: TWMChangeCBChain); message WM_CHANGECBCHAIN;
  procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;
    { Private declarations }
  public
    { Public declarations }
  end;

[Error] Unit1.pas(232): Field definition not allowed after methods or properties

и так

private
    SessionEnding: Boolean;
    FNextClipboardViewer: HWND;
  procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;
  function AppHook(var msg: TMessage): boolean;
  procedure wmActivate (var Msg:TWMACTIVATE);
  message wm_Activate;
  procedure WMChangeCBChain(var Msg: TWMChangeCBChain); message WM_CHANGECBCHAIN;
  procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;
    { Private declarations }
  public
    { Public declarations }
  end;

[Error] Unit1.pas(232): Unsatisfied forward or external declaration: 'TForm1.WMChangeCBChain'

Как я их местами не менял не пускает и всё.

[NikLik]

каким образом конфликтует?
У меня всё отлично скомпилировалось:

type
  TForm1 = class(TForm)
  private
    SessionEnding: Boolean;
    FNextClipboardViewer: HWND;
    procedure WMChangeCBChain(var Msg: TWMChangeCBChain); message
      WM_CHANGECBCHAIN;
    procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message
      WM_DRAWCLIPBOARD;
    procedure WMQueryEndSession(var Message: TMessage); message
      WM_QUERYENDSESSION;
    function AppHook(var msg: TMessage): boolean;
    procedure wmActivate(var Msg: TWMACTIVATE); message wm_Activate;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.WMChangeCBChain(var Msg: TWMChangeCBChain);
begin
end;

procedure tform1.WMDrawClipboard(var Msg: TWMDrawClipboard);
begin
end;

procedure tform1.WMQueryEndSession(var Message: TMessage);
begin
end;

procedure tform1.wmActivate(var Msg: TWMACTIVATE);
begin
end;

function tform1.AppHook(var msg: TMessage): boolean;
begin
end;

end.

Сначала должны объявляться переменные, затем--процедуры и функции

[Shouldercannon]

Прошу прощения я забыл написать две процедуры. Простите за невнимательность.

Теперь программа ругается если вместе с текстом в буфере идёт картинка Cannot open clipboard.

[NikLik]

Хм...
Небольшой пример, думаю ты разберёшься:

if clipboard.HasFormat(CF_TEXT) then form1.Caption:=clipboard.AsText;

[Shouldercannon]

Не совсем понимаю зачем текст сидящий в буфере выводить в заголовок формы? Если так дальше будет, то придётся перейти на

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit2.PasteFromClipboard;
end;

так не хочется этого.