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)

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
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

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