Olá pessoal, hoje venho mostrar uma rotina interessante para aqueles que querem trabalhar com mensagens do sistema operacional. Como sabemos o sistema operacional conversa através de mensagens, e o Delphi consegue interpretar, capturar, entender estas mensagens. Vou fazer uma simulação bem simples desta vez.
Vamos precisar de um Formulário e nele um TRichEdit
Esta bem simples pois o objetivo não é o layout mas sim a funcionalidade.
Neste momento vamos dar uses na unit Clipbrd
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Clipbrd;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.Listagem 1. Nossa unit deverá esta neste estilo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Clipbrd;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
private
{ Private declarations }
procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.Listagem 2. Com a uses declarada agora vamos implementar um método para poder "escutar" quando alguma coisa for adicionada no Clipboard (nosso famoso CTRL + c )
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Clipbrd;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
private
{ Private declarations }
procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ClipBoardChanged(var Message: TMessage);
begin
end;
end.Listagem 3. Depois de declarar, vamos agora implementar a mesma, com o mouse dentro da Classe TForm1 ou então em cima do método ClipBoardChanged, vamos pressionar CTRL+SHIFT+C e teremos esse resultado
procedure TForm1.ClipBoardChanged(var Message: TMessage);
begin
ShowMessage('Houve mudança no CTRL + C');
RichEdit1.Text := Clipboard.AsText;
end;Listagem 4. Dentro da procedure ClibBoard, vamos implementar
Este código irá apresentar um ShowMessage com uma mensagem e o texto que foi copiado irá ser exibido dentro do RichEdit.
Nota: Fiz o exemplo apenas para texto, se você copiar uma imagem ou arquivo, ele irá exibir o ShowMessage, porém nada irá acontecer com o RichEdit. Tem como tratar o tipo de conteúdo do Clipboard, mas isso fica para um outro artigo.
procedure TForm1.FormCreate(Sender: TObject);
begin
SetClipboardViewer(Handle);
end;Listagem 5. Vamos então concluir nosso exemplo, localize o evento onCreate do Formulário e implemente o mesmo, logo em seguida fazer a chamada da mensagem da seguinte forma
Concluindo assim nosso artigo, sempre que seu formulário estiver aberto e você copiar um determinado texto o mesmo será adicionado dentro do TRichEdit.
