جابجائی نوار Scroll

گاهی نیاز داریم که نوار اسکرول را در برنامه جابجا کنیم تا بتوانیم یک متن بزرگ را نمایش دهیم. اینکار با کمک موس بسادگی انجامپذیر است . داینجا می خواهم سورس کدی را ارائه دهم که اینکار را از داخل برنامه دلفی انجام می دهد.

procedure MemoScrollDown(Memo: TMemo) ;
var
  ScrollMessage:TWMVScroll;
  i:integer;
begin
  ScrollMessage.Msg:=WM_VScroll;
  for i := 0 to Memo.Lines.Count do
  begin
   ScrollMessage.ScrollCode:=sb_LineDown;
   ScrollMessage.Pos:=0;
   Memo.Dispatch(ScrollMessage) ;
  end;
end;

پنهان کردن آیکون از روی صفحه دسک تاپ ویندوز

با استفاده از سورس کد زیر می توانید یک آیکون را از روی صفحه دسکتاپ ویندوز پنهان کنید یا آنرا مجددا نمایش دهید.

procedure ShowDesktop(const YesNo : boolean) ;
var h : THandle;
begin
  h := FindWindow('ProgMan', nil) ;
  h := GetWindow(h, GW_CHILD) ;
  if YesNo = True then
    ShowWindow(h, SW_SHOW)
  else
    ShowWindow(h, SW_HIDE) ;
end;