-
programowo na stale?
daj dodawanie itemow w OnCreate Formy :)
-
mozesz przechwytywac message'e gdy zmienia sie zawartosc schowka
private
hNast : HWND;
procedure KolejkaObserwator_Zmiana(var Msg : TWMChangeCBChain); message WM_CHANGECBCHAIN;
procedure Schowek_Zmiana(var Msg : TWMDrawClipboard); message WM_DRAWCLIPBOARD;
procedure TForm1.KolejkaObserwator_Zmiana(var Msg: TWMChangeCBChain);
begin
if Msg.Remove = hNast then
hNast := Msg.Next
else
SendMessage(hNast, WM_CHANGECBCHAIN, Msg.Remove, Msg.Next);
Msg.Result := 0;
end;
procedure TForm1.Schowek_Zmiana(var Msg: TWMDrawClipboard);
begin
if (Clipboard.HasFormat(CF_TEXT)) then
begin
// tutaj cos robisz
end;
if hNast <> 0 then
SendMessage(hNast,WM_DRAWCLIPBOARD,0,0);
Msg.Result := 0;
end;