Выделение текста

[Rebel123]

Доброго времени суток. Интересует пару вопросов:
1) Как написать на клике кнопки чтоб он выделял весь текст в RichEdit?
2) тоже самое только, если текст выделился и при нажатии ctrl+с (копировать) работало?

[Stilet]

Как написать на клике кнопки чтоб он выделял весь текст в RichEdit?

RichEdit1.SelectAll

тоже самое только, если текст выделился и при нажатии ctrl+с (копировать) работало?

Не зависимо где фокус?

[Rebel123]

procedure TForm4.N27Click(Sender: TObject);
begin
RichEdit1.SelectAll;
end;

Кликаю, не работает(

Не зависимо где фокус?

Если хоть какой нибудь текст будет выделен, то если нажать ctrl+v тогда он его вырежит!

[Alex Cones]

Ctrl+C и Ctrl+V - системные сочетания, будут работать в любых приложениях, ЕСЛИ эти сочетания не переопределены автором программы. и ЕЩЕ: они будут работать только если форма в фокусе, если нет, надо ставить хук.

[Rebel123]

Ну я знаю что есть свойство shot cut! но не могу написать в коде если выделяеться, ну примерно так по моему опыту (логический поразмыслил)

if RichEdit1.Lines.Select
then
begin
if Ctrl+v clicked then вырезано!

[Alex Cones]

Код сочетаний Ctrl+... :
CTRL+A = 1
CTRL+B = 2
...
CTRL+V = 22
...

OnKeyDown:

If Key = #22 Then LetsDoIt!

[havok]

procedure TForm1.btn1Click(Sender: TObject);
begin
redt1.selectAll;
redt1.CopyToClipboard;//копировать  в буфер обмена
//redt1.CutToClipboard;//вырезать в буфер обмена
//redt1.PasteFromClipboard;//вставить из буфера обмена
end;

может так только Clipbrd в uses подключите!

[Rebel123]

а как сделать на клике кнопки чтоб весь текст который есть на RichEdit1 выделялся?

procedure TForm4.N27Click(Sender: TObject);
begin
RichEdit1.SelectAll;
end;

так не получилось!

[Stilet]

Кликаю, не работает(

Работает. просто ты этого не видишь, потому что РичЭдит не в фокусе:

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

[Rebel123]

Сообщение от havok

procedure TForm1.btn1Click(Sender: TObject);
begin
redt1.selectAll;
redt1.CopyToClipboard;//копировать  в буфер обмена
//redt1.CutToClipboard;//вырезать в буфер обмена
//redt1.PasteFromClipboard;//вставить из буфера обмена
end;

может так только Clipbrd в uses подключите!

+ ставлю вам! все работает!