- Delphi ile ScreenShot Buttonumuzun onClick olayına yazıyoruz. Kod: procedure TForm1. Button1Click ; var DCDesk: HDC; begin DCDesk:=GetWindowDC ; BitBlt(Form1. Canvas. Handle, 0, 0, Screen. Width, Screen. Height, DCDesk, 0, 0, SRCCOPY); ReleaseDC ; end; form1. canvas. handle ile görüntüyü form üstüne alıyoruz. İmage, panel hatta button üzerine almak için görüntüyü o bileşenin canvas handle'ını yazmak gerekir. - Delphi ile Sayıyı Metine Çevirme Kod: function Cevir : String; const hanex : array of String = ( , , ; katx : array of String = ; var Kat : Integer; function _Cevir : String; var lsy, hn : Integer; begin Result := ''; if sy = '' then Exit; if (sy = '1') and (kat = 1) then begin Result := 'Bin'; Exit; end; hn := 0; lsy := length ; while (hn < 3) and do begin Result := hanex[hn, sy ] + Result; Inc ; end; Result := Result + katx ; Inc ; if lsy > 3 then Result := _Cevir(copy(sy, 1, lsy - 3)) + Result; end; begin Result := ''; kat := 0; Result := _Cevir(formatFloat('#