Hat sich die Zwischenablage geändert?

[Pyr0cracker]

Ich hab mal ne frage, wie kann ich überprüfen ob sich die zwischenablage geändert hat?

[Luckie]

Kuck mal, ob du hier was findest: Clipboard - MSDN

[Pyr0cracker]

hmm, da habe ich nichts gefunden

[mirage228]

Delphi-Quellcode:

{
PROCEDURE: ClipboardChanged;
-----------------------------
PARAMETER: Keine
-----------------------------
Überprüft, ob Text im Zwischenspeicher liegt
}
procedure ClipboardChanged;
var
  I: Integer;
  Format: Word;
  E: Boolean;
begin
  E := False;
  for I := 0 to Clipboard.FormatCount - 1 do
  begin
    Format := Clipboard.Formats[I];
    if SendMessage(TextEnter.Handle, EM_CANPASTE, Format, 0) <> 0 then
    begin
      E := True;
      Break;
    end;
  end;

Wenn E=True ist, dann ist Text im Zwischenspeicher, sonst nicht ;-)

mirage228

P.S.:
TextEnter ist bei mir ein TRichEdit (also sollteste bei dir was anderes hinschreiben :D)
Du musst die Unit "Clipbrd" einbinden, sonst gehts net

[Luckie]

Und wenn sich der Text ändert bekommst du es trotzdem nicht mit.

Du mußt dich in die Clipboard Chain einklinken und beim Beenden deines Programmes wieder ausklinken das bitte sehr sauber, sonst bekommen die Programme die hinter dir in der Chain liege nichts mehr mit, was in der Zwischenablage passiert.

[toms]

Zitat:

hmm, da habe ich nichts gefunden

Ich aber:

Zitat:

The SetClipboardViewer function adds the specified window to the chain of clipboard viewers. Clipboard viewer windows receive a WM_DRAWCLIPBOARD message whenever the content of the clipboard changes.

[mirage228]

Delphi-Quellcode:

procedure TMain.WMDrawClipboard(var Msg: TWMDrawClipboard);
begin
  SendMessage(FClipboardOwner, WM_DRAWCLIPBOARD, 0, 0);
  Msg.Result := 0;
  ClipboardChanged;
end;

procedure TMain.WMChangeCBChain(var Msg: TWMChangeCBChain);
begin
  if Msg.Remove = FClipboardOwner then FClipboardOwner := Msg.Next
  else SendMessage(FClipboardOwner, WM_CHANGECBCHAIN, Msg.Remove, Msg.Next);
  Msg.Result := 0;
end;

Deklaration:

Delphi-Quellcode:

    procedure WMChangeCBChain(var Msg: TWMChangeCBChain); message WM_CHANGECBCHAIN;
    procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM_DRAWCLIPBOARD;

Wichtig: Bei Form.Destroy das einfügen:

Delphi-Quellcode:

  ChangeClipboardChain(Handle, FClipboardOwner);

ich hoffe ma, so gehts