Imagine que você colocou no formulário um botão Colar, que serve para transferir para um Edit ou Memo o texto que foi copiado para a Área de Transferência. O problema é que este botão permanece sempre habilitado, mesmo quando não há texto para colar. Como resolver este problema?
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Clipboard.AsText; end;
procedure ClipboardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;
procedure TForm1.ClipboardChanged(var Message: TMessage); begin Button1.Enabled := Clipboard.AsText <> ''; end;
SetClipboardViewer(Handle);
O conteúdo desta página pode ajudar alguém? Compartilhe!