Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Delphi 7 a příklad se schránkou

Nemůžu nějak rozjet příklad z Tipy a triky v delphi, píše mi to nějaký sprosťárny
u té procedury procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;

Zachycení změny obsahu schránky

I druhý dnešní tip bude založen na odchycení zprávy systému. Tentokrát to bude detekce změny obsahu schránky, což je možná ještě o něco užitečnější tip, než náš dnešní úvodní příklad. Jistě sami přijdete na řadu využití, takže bez dalších řečí si rovnou ukažme zdrojový kód:

...
public
  { Public declarations }
  procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;
...

procedure TForm1.ClipBoardChanged(var Message: TMessage);
begin
  ShowMessage('Došlo ke změně obsahu schránky');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetClipboardViewer(Handle);
end;

nemohl by to někdo zkusit a vlepit sem opravený ? Asi mi chybí nějaká deklarace units ale už mě z toho message mišuge v hlavě. Dík
pre výpisy zdrojových kódov používajte prosím tag code (los) (aa)

Předmět Autor Datum
Tak teď jsem to zkoušel, mě to funguje bez problémů.:-/ Jedinou výhradu bych měl, že proceduru na zp…
Rce 03.05.2006 00:48
Rce
Tak píšeš že ti možná chybí unita, tak na cliboard se unita v uses jmenuje tušim : Clipbrd , ale nev… poslední
AZOR 03.05.2006 01:11
AZOR

Tak teď jsem to zkoušel, mě to funguje bez problémů.:-/ Jedinou výhradu bych měl, že proceduru na zpracování zprávy je lepší prdnout do Private než do Public (nicméně mi to zbaští kompiler i takto). Zkus sem pástnout ty sprosťárny, co ti to píše.

Zpět do poradny Odpovědět na původní otázku Nahoru