tiktok takipçi satın al tiktok beğeni satın al tiktok izlenme satın al instagram takipçi satın al instagram beğeni satın al instagram izlenme satın al instagram hikaye izlenme satın al instagram canlı yayın izleyici satın al twitter takipçi satın al twitter retweet satın al youtube abone satın al youtube beğeni satın al youtube izlenme satın al

oyun haberleri forum dailymotion video indir akıllı tv video indir pinterest video indir soundcloud video indir twitter video indir facebook video indir tiktok video indir tumblr video indir linkedin video indir izlesene video indir instagram video indir haberler gündem instagram türk takipçi satın al instagram takipçi satın al beğeni satın al tiktok takipçi satın al tiktok beğeni satın al takipçi satın al youtube izlenme satın al canlı yayın izlenme satın al izlenme satın al smm panel server tanıtımı film izle taban puanları instagram takipçi satın al backlink paketleri youtube video indir video indir 192.168.1.1 kıl çadır kıl çadır farmasi üyelik girişi instagram follower kaufen social crm instagram beğeni satın al beğeni satın al instagram takipçi satın al rafting instagram takipçi satın al instagram türk takipçi satın al instagram beğeni satın al facebook beğeni satın al twitter takipçi satın al twitter fav satın al twitter retweet satın al tiktok takipçi satın al youtube abone satın al youtube izlenme satın al takipçi satın al canlı tv izle mobil uygulama geliştirme firmaları epin sosyal medya bayilik paneli instagram panel pubg mobile uc valorant vp satın al oyun haberleri youtube video silme google haber kaldırma internetten haber kaldırma instagram takipçi satın al youtube mp3 dönüştürücü juul iqos cialis cialis 5 mg cialis 600 mg cialis 20 mg cialis fiyat cialis satın al cialis sipariş viagra viagra satın al viagra sipariş novagra novagra sipariş lines pişirme takımları küçük ev aletleri mutfak gereçleri ev tekstili aksesuar çeyiz setleri esnaf haberleri youtube video download youtube video indir sosyal medya bayilik paneli esnaf forumu takipçi satın al instagram takipçi satın al instagram beğeni satın al tiktok takipçi satın al seo seo ajansı maç izle apk indir minecraft forum tiktok takipçi satın al tiktok beğeni satın al tiktok izlenme satın al instagram takipçi satın al instagram beğeni satın al instagram izlenme satın al instagram hikaye izlenme satın al instagram canlı yayın izleyici satın al twitter takipçi satın al twitter retweet satın al youtube abone satın al youtube beğeni satın al youtube izlenme satın al forum irc forum bilgisayar forumu irc forum forum sitesi forum webmaster forum forum oyun forumu türk filmi izle film izle hd film izle macera filmleri komedi filmleri takipçi satın al clubhouse forum tiktok takipçi sohbet youtube abone haber son dakika haberler video indir aktüel ürünler bim aktüel a101 aktüel bitcoin satın al baklava instagram follower hack follower hack takipçi satın al

Kullanıcı Tag Listesi

Sayfa 1/2 12 SonSon
7 sonuçtan 1 ile 5 arası

Konu: Delphi Örnek Uygulama Kodları

  1. #1
    Üye ..:Komando:.. - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    02.02.2014
    Yer
    Fenerbahçe ♥
    Yaş
    22
    Mesajlar
    7.617
    Bahsedildi
    0 Mesaj
    Etiketlenmiş
    0 Konu
    Rep Puanı
    10

    Standart Delphi Örnek Uygulama Kodları

    Kod:
    3 Boyutlu Küp Örneği

    Kod:
     Kod:
    
        
    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Gauges, ExtCtrls;
    type
      TForm1 = class(TForm)
        Timer1: TTimer;
        procedure Timer1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form1: TForm1;
      x,y,x1,y1:integer;
      aci:real;
      p1,p2,p3,p4,p5,p6,p7,p8:tpoint;
    implementation
    {$R *.dfm}
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    aci:=aci+2*pi/360;
      p1.X:=200;
      p1.Y :=200;
      p2.X :=p1.X +100;
      p2.Y :=p1.Y ;
      p3.X :=p1.X +100;
      p3.Y :=p1.Y +100;
      p4.X :=p1.X ;
      p4.Y :=p1.Y +100;
      p5.X :=p1.X +round(sin(aci)*50);
      p5.Y :=p1.X +round(cos(aci)*50);
      p6.X :=p5.X +100;
      p6.Y :=p5.Y ;
      p7.X :=p5.X +100;
      p7.Y :=p5.Y +100;
      p8.X :=p5.X ;
      p8.Y :=p5.Y+100 ;
      canvas.Pen.Color :=clblack;
      canvas.Pen.Style:=psdot;
      canvas.Pen.Width :=1;
      canvas.MoveTo(p1.X ,p1.y);
      canvas.LineTo(p2.X ,p2.Y);
      canvas.LineTo(p3.X ,p3.Y);
      canvas.LineTo(p4.X ,p4.Y);
      canvas.LineTo(p1.X ,p1.Y);
      canvas.Pen.Style :=pssolid;
      canvas.Pen.Width:=3;
      canvas.LineTo(p5.X ,p5.Y);
      canvas.LineTo(p6.X ,p6.Y);
      canvas.LineTo(p7.X ,p7.Y);
      canvas.LineTo(p8.X ,p8.Y);
      canvas.LineTo(p5.X,p5.Y);
      canvas.MoveTo(p2.X,p2.Y);
      canvas.LineTo(p6.X ,p6.y);
      canvas.MoveTo(p3.X,p3.Y);
      canvas.LineTo(p7.X ,p7.y);
      canvas.MoveTo(p4.X,p4.Y);
      canvas.LineTo(p8.X ,p8.y);
      sleep(1);
      canvas.Pen.Color :=form1.Color;
       canvas.MoveTo(p1.X ,p1.y);
      canvas.LineTo(p2.X ,p2.Y);
      canvas.LineTo(p3.X ,p3.Y);
      canvas.LineTo(p4.X ,p4.Y);
      canvas.LineTo(p1.X ,p1.Y);
      canvas.LineTo(p5.X ,p5.Y);
      canvas.LineTo(p6.X ,p6.Y);
      canvas.LineTo(p7.X ,p7.Y);
      canvas.LineTo(p8.X ,p8.Y);
      canvas.LineTo(p5.X,p5.Y);
      canvas.MoveTo(p2.X,p2.Y);
      canvas.LineTo(p6.X ,p6.y);
      canvas.MoveTo(p3.X,p3.Y);
      canvas.LineTo(p7.X ,p7.y);
      canvas.MoveTo(p4.X,p4.Y);
      canvas.LineTo(p8.X ,p8.y);
    end;
    end.


    Kod:
    Alt + Tab İptal Etmek

    Kod:
    Kod:
    
        
    procedure DisableAltTab;
    var
    iTemp: Integer;
    begin
    iTemp := 0;
    SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @
    [Linkleri Görebilmek İçin Üye Olmanız Gerekmektedir. Üye Olmak İçin Tıklayın...]
    p, 0); end; FormCreate ye Kod: DisableAltTab;


    Kod:
    Bilgisayar Ne Zamandır Açık?

    Kod:
    Kod:
    
        
    function Uptime: string;
      var
        count,
        days,
        min,
        hours,
        seconds  : longint;
      begin
       Count := GetTickCount();
       Count := Count div 1000;
       Days := Count div (24 * 3600);
       if Days > 0 then
        Count := Count - (24 * 3600 * Days);
        Hours := Count div 3600;
       if Hours > 0 then
        Count := Count - (3600 * Hours);
       Min := Count div 60;
       Seconds := Count mod 60;
       Result := IntToStr(Days)+' Gün '+IntToStr(Hours)+
                 ' Saat '+IntToStr(Min)+' Dakika '+
                 IntToStr(seconds) +' Saniye ';
      end;
    Kullanımı    Kod:
        Edit1.Text:=Uptime;


    Kod:
    Butona Çok Satırlı Yazı

    Kod:
     Kod:
    
        
    var
    i : integer;
    begin
    i:=GetWindowLong(Button1.Handle,GWL_STYLE );
    SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE);
    Button1.Caption := 'satır1'#13#10'satır2';


    Kod:
    Exe Şifreleme
    1 OpenDialog
    2 Radio Button
    1 Button

    Kod:
     Kod:
    
        
    procedure TForm1.Button1Click(Sender: TObject);
    var
    header : array [0..4] of char;
    thefile : tfilestream;
    Checkheader : string;
    begin
    OpenDialog1.Filter :='Exe Dosyası (*.exe)|*.exe';
    if OpenDialog1.Execute then
      begin
         thefile :=tfilestream.Create(OpenDialog1.FileName , fmopenreadwrite);
          if radiobutton1.Checked = true then
          begin
                thefile.Seek(0,sofrombeginning);
                    thefile.Read(header,sizeof(header));
                   if header[0]=chr(05) then
              begin
                messagebox(form1.Handle , 'Seçdiğiniz Dosya Daha Önceden Zaten Şifrelenmiş','Uyarı',mb_iconexclamation + mb_ok);
                thefile.Free;            
                exit;
              end;
                    thefile.Seek(0,sofrombeginning);
                   thefile.Write(chr(05) + chr(05) + chr(05) + chr(05),4);
                    thefile.Seek(-5,sofromend);
                   thefile.Write(header,sizeof(header));
                   thefile.Free;
                   Showmessage('Dosya Kilitlendi');
                 end else if radiobutton2.Checked = true then
            begin
                       thefile.Seek(-5,sofromend);
                      thefile.Read(header,sizeof(header));
                       thefile.Seek(0,sofrombeginning);
                        thefile.Write(header,sizeof(header));
                       thefile.Free;
                       showmessage('Dosya Çözüldü');
                       end;
    end;
    end;


    Kod:
    Forma İstediğin Şekli Ver

    Kod:


    Kod:
    procedure TForm1.FormCreate(Sender: TObject);
    var
      Bmp: TBitmap;
    begin
      Bmp := TBitmap.Create;
      try
        Bmp.LoadFromFile('1000.bmp');
        FRegion := CreateRegion(Bmp);
        SetWindowRGN(Handle, FRegion, True);
      finally
        Bmp.Free;
      end;
    end;
    Not : 1000.bmp Adındaki Dosyayı Paint ile yapabilirsiniz. Ama Formda Transparan (Saydam) Olmasını İstediğiniz Yerler paintteki Arka fon rengi ile Aynı olması lazım. (Arka taraftaki Koyu Gri Olan Renk)


    Kod:
    Harddiskte Nekadar Boş Yer Var?

    Kod:


    Kod:
    var
    bos_alan:Integer;
    begin
    bos_alan:=DiskFree(3);
    showmessage(IntToStr(bos_alan));
    Harddiskin Toplam Kapasitesi?    Kod:
        var
    alan:Integer;
    begin
    alan:=DiskSize(3);
    showmessage(IntToStr(alan));
     Not : DiskFree(3) ve DiskSize(3) komutundaki 3 yazan yeri 4 yaparsanız D diskine bakar yani alfabetik sıraya göre.A = 1B = 2C = 3D = 4.....
    Kod:
     
    Kod:
    Rastgele Harf Üretme

    Kod:


    Kod:
    var
      harf : char;
    begin
        for harf := 'Z' DownTo 'A' do
        ShowMessage('Harfiniz = '+harf);
    Not : for harf := 'Z' DownTo 'A' do G ile A arasında bir Harf Üretir! Bunu değiştirebilirsiniz.


    Kod:
    İşlemcinin Hızını Öğrenme!

    Bunlar Ekleyeceğiniz Fonksiyonlar

    Kod:


    Kod:
    function RDTSC : Int64; assembler;
    asm
        db $0F, $31  
    end;
    function RDQPC : Int64;
    begin
      QueryPerformanceCounter(result);
    end;
    function CPUSpeed : Integer;
    var
      f,tsc,pc : Int64;
    begin
      if QueryPerformanceFrequency(f) then
      begin
        Sleep(0);
        pc := RDQPC;
        tsc := RDTSC;
        Sleep(100);
        pc := RDQPC-pc;
        tsc := RDTSC-tsc;
        result := round(tsc*f/(pc*1000000));
      end
      else
        result := -1;
    end;
    Kullanımı Kod:
    Kod:
    showmessage(Format('%d Mhz', [CPUSpeed]));


    Kod:
    İşlemcinin Markasını Öğrenmek

    Kod:


    Kod:
    function GetVendorString: string;
        var
          aVendor: array[0..2] of DWord;
          iI, iJ : Integer;
        begin
          asm
            push  ebx
            xor   eax, eax
            dw    $A20F // CPUID instruction
            mov   DWord ptr aVendor, ebx
            mov   DWord ptr aVendor[+4], edx
            mov   DWord ptr aVendor[+8], ecx
            pop   ebx
          end;
          for iI := 0 to 2 do
            for iJ := 0 to 3 do
              Result := Result + Chr((aVendor[iI] and ($000000FF shl (iJ * 8))) shr (iJ * 8));
        end;
    Kullanımı Kod:
    Kod:
      showmessage(GetVendorString);


    Kod:
    Kes, Kopyala, Yapıştır, Sil, Geri Al

    K
    Kod:
    es
    
        Kod:
    
        
    edit1.perform(wm_cut,0,0);
    Kopyala    Kod:
        edit1.perform(wm_copy,0,0);
    Yapıştır    Kod:
        edit1.perform(wm_paste,0,0);
    Sil    Kod:
        edit1.perform(wm_clear,0,0);
    Geri Al    Kod:
        Edit1.perform(em_undo,0,0);


    Kod:
    Seçilen Klasördeki İstediğin Uzantıdaki Dosyaları Listeler
    1 buton
    1 listbox

    Kod:
     Kod:
    
        
    procedure TForm1.Button1Click(Sender: TObject);
    var
    dosya:TSearchRec;
    begin
    if FindFirst('c:\Hamal\*.txt', faAnyFile, dosya) = 0 then
    begin
    repeat
    ListBox1.Items.Add(dosya.Name);
    until FindNext(dosya) <> 0;
    FindClose(dosya);
    end;
    end;


    Kod:
    Kullanıcı Ve PC adı alma
    1 buton
    2 label

    Kod:
    Kod:
    
        
    procedure TForm1.Button1Click(Sender: TObject);
    var
      u: array[0..127] of Char;
      c: array[0..127] of Char;
      KullaniciAdi: string;
      BilgisayarAdi: string;
      s: dword;
    begin
      s := SizeOf(u);
      GetUserName(u, s);
      s := SizeOf(c);
      GetComputerName(c, s);
      KullaniciAdi := u;
      BilgisayarAdi := c;
      Label1.Caption := u;
      Label2.Caption := c;
    end;


    Kod:
    Masaüstüne Yazı Yazdırma!
    Eklenicek Procedürler

    Kod:
    Kod:
    
        
    procedure TForm1.YaziYaz(Yazin: string; x,y: Integer; yazitipi: TFont);
    var
      Masaustu: HWND;
      Bdc: HDC;
      Cizim: TCanvas;
    begin
      Masaustu   := GetDesktopWindow;
      Bdc     := GetWindowDC(Masaustu);
      Cizim := TCanvas.Create;
      Cizim.Handle := Bdc;
      BeginPath(Cizim.Handle);
      Cizim.Font:=yazitipi;
      SetBkMode(Cizim.Handle, TRANSPARENT);
      EndPath(Cizim.Handle);
      Cizim.TextOut(x, y, Yazin);
    end;
    Kullanımı1 tane Font Dialog Ekleyip Yazı tipi ayarlarını yapin    Kod:
        YaziYaz('Kod Kendi Yapımımdır Cryz4dvl4',100,150,FontDialog1.Font);


    Kod:
    Programın Çalışma Klasörü Ve Bulunduğu Yol
    Bulunduğu Klasör

    Kod:
     Kod:
    
        
    showmessage(GetCurrentDir);
    Bulunduğu Yol    Kod:
        showmessage(GetCommandLine);


    Kod:
    Aynı Tür Nesnelerin Hepsine Tek Bir Komut Gönderme!

    Kod:
    Kod:
    
        
    var
    nesne: Integer;
    begin
    for nesne:=1 to 20 do
    TEdit(FindComponent('Edit'+inttostr( nesne ))).Text:='Coded ßy Cryz4dvl4';
    end;
    Not : for nesne:=1 to 20 do // 20 tane nesneye etki eder.



    Kod:
    Mouse'a Yapışmış Form
    FormCreate Olayına

    Kod:
    Kod:
    
        
    SetWindowLong( Handle,GWL_STYLE,GetWindowLong( Handle, GWL_STYLE )and not WS_CAPTION );
    SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    1 Timer Ekleyin Ve Intervalini 1 yapın.OnTimer Olayına    Kod:
        Left:=Mouse.CursorPos.X+10;
    Top:=Mouse.CursorPos.Y+10;
    Dosya Kopyalama (1)

    Kod:
    Procedure FileCopy( Const sourcefilename, targetfilename: String );
    Var
    S, T: TFileStream;
    Begin
    S := TFileStream.Create( sourcefilename, fmOpenRead );
    try
    T := TFileStream.Create( targetfilename,
    fmOpenWrite or fmCreate );
    try
    T.CopyFrom(S, S.Size ) ;
    finally
    T.Free;
    end;
    finally
    S.Free;
    end;
    End;
    Dosya Kopyalama (2)

    Kod:
    procedure FileCopy(const FromFile, ToFile: string);
    var
    FromF, ToF: file;
    NumRead, NumWritten: Word;
    Buf: array[1..2048] of Char;
    begin
    AssignFile(FromF, FromFile);
    Reset(FromF, 1); { Record size = 1 }
    AssignFile(ToF, ToFile); { Open output file }
    Rewrite(ToF, 1); { Record size = 1 }
    repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);
    CloseFile(ToF);
    end;
    Dosya Kopyalama (3)

    Kod:
    procedure CopyFile(FromFileName, ToFileName: string);
    var
    FromFile, ToFile: File;
    begin
    AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }
    AssignFile(ToFile, ToFileName); { Assign ToFile to ToFileName }
    Reset(FromFile); { Open file for input }
    try
    Rewrite(ToFile); { Create file for output }
    try
    if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0
    then
    raise EInOutError.Create('Error using LZCopy')
    finally
    CloseFile(ToFile); { Close ToFile }
    end;
    finally
    CloseFile(FromFile); { Close FromFile }
    end;
    end;
    Directory Adi degistirme

    SysUtils unitesinin içindeki RenameFile function bu isi görmektedir.

    Treeview componentinin durumunu kaydetme ve gösterme

    Kaydetmek için

    Kod:
    TreeView.SaveToFile('Dosya.adi');
    Dosyayi açmak için

    Kod:
    TreeView.LoadFromFile('Dosya.adi');
    Dosyayi yanlizca okumak (read only) seklinde açma

    Kod:
    AssignFile(F, Dosya);
    FileMode := 0; (read only modunda açmak}
    Reset(F);
    .
    .
    .
    CloseFile(F);
    Açilan dosyanin tarih ve zamanini ayarlamak


    Kod:
    var
    f: file;
    begin
    Assign(f, DirInfo.Name);
    Reset(f);
    SetFTime(f, Time);
    Close(f);
    end;
    
    Deltree
    
    {$I-} {$I+}
    
    procedure delTree (DirName: string);
    var
    FileSearch: SearchRec;
    begin
    
    chDir (DirName);
    FindFirst ('*.*', Directory, FileSearch);
    while (DosError = 0) do begin
    if (FileSearch.name <> '.') AND (FileSearch.name <> '..') AND
    ( (FileSearch.attr AND Directory) <> 0)
    then begin
    if DirName[length(DirName)] = '\' then
    delTree (DirName+FileSearch.Name)
    else
    delTree (DirName+'\'+FileSearch.Name);
    ChDir (DirName);
    end;
    FindNext (FileSearch)
    end;
    
    
    FindFirst ('*.*', AnyFile, FileSearch);
    while (DosError = 0) do begin
    if (FileSearch.name <> '.') AND (FileSearch.name <> '..') then
    Remove (workdir);
    end;
    FindNext (FileSearch)
    end;
    rmDir (DirName)
    end;
    Dbgrid'de (Ctrl-Del diyince) dosya silmesini engelleme

    Kod:
    if (ssctrl in shift) and (key=vk_delete) then
    begin
    key:=0;
    end;
    String'i renk'e renk'i stringe çevirme

    Kod:
    Uses graphics;
    form1.Color:=stringtocolor('121');
    label1.caption:= ColorToString(form1.color);
    Mouse'un yerini degistirmek

    randomize;
    SetCursorPos(random(100),random(100));

    ComboBox'in asagiya listelemesinin farkli bir yolu (DropComboBox)

    SendMessage(ComboBox1.handle , 1039, 1, 0);

    Basligi Gizlemek ve Göstermek

    Kod:
    Procedure HideTitlebar;
    Var
    Save : LongInt;
    Begin
    If form1.BorderStyle=bsNone then Exit;
    Save:=GetWindowLong(form1.Handle,gwl_Style);
    If (Save and ws_Caption)=ws_Caption then Begin
    Case form1.BorderStyle of
    bsSingle,
    bsSizeable : SetWindowLong(form1.Handle,gwl_Style,Save and
    (Not(ws_Caption)) or ws_border);
    bsDialog : SetWindowLong(form1.Handle,gwl_Style,Save and
    (Not(ws_Caption)) or ds_modalframe or ws_dlgframe);
    End;
    form1.Height:=form1.Height-getSystemMetrics(sm_cyCaption);
    form1.Refresh;
    End;
    end;
    
    Procedure ShowTitlebar;
    Var
    Save : LongInt;
    begin
    If form1.BorderStyle=bsNone then Exit;
    Save:=GetWindowLong(form1.Handle,gwl_Style);
    If (Save and ws_Caption)<>ws_Caption then Begin
    Case form1.BorderStyle of
    bsSingle,
    bsSizeable : SetWindowLong(form1.Handle,gwl_Style,Save or ws_Caption or
    ws_border);
    bsDialog : SetWindowLong(form1.Handle,gwl_Style,Save or ws_Caption or
    ds_modalframe or ws_dlgframe);
    End;
    form1.Height:=form1.Height+getSystemMetrics(sm_cyC aption);
    form1.Refresh;
    End;
    end;
    GradientFill (eyimli renk) kullanimi

    Önce uses bölümüne chart ekleyin.
    Formun üstüne bir tane image componenti yerlestirin ve formun create olayina asagidaki kodu yazin.

    Kod:
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    GradientFill(Image1.Canvas,Image1.ClientRect,clred ,clblue,false);
    end;
    Küçük bir kolaylik ctrl-space

    Delphide esitlik kurucaginiz zaman ctrl-space'e bastiginizda verebileceginiz degerleri göstermektedir.
    Label1.caption:= (burada ctrl-space bastiginizda verebileceginiz degerleri görürsünüz)


    Dbf dosyasini pack etmek (silinen dosyalari diskten silmek)

    Kod:
    Table1.Exclusive := True;
    Table1.Active := True;
    Error := DbiPackTable(Table1.DBHandle, Table1.Handle, nil, szdBASE, True);
    Table1.Active := False;
    Table1.Exclusive := False;
    BDE' nin yüklü olup olmadigini anlamak
    HKEY_LOCAL_MACHINE\Software\Borland\Database Engine bölümü bde'ye ayrilmistir ve yüklü olup olmadigini asagidaki degerleri kontrol ederek bulabilirsiniz.

    Kod:
    DLLPATH
    CONFIGFILE01
    
    Clipboard'a kopyalama ve yapistirma (copy,past)
    procedure CopyButtonClick(Sender: TObject);
    begin
    If ActiveControl is TMemo then TMemo(ActiveControl).CopyToClipboard;
    If ActiveControl is TDBMemo then TDBMemo(ActiveControl).CopyToClipboard;
    If ActiveControl is TEdit then TEdit(ActiveControl).CopyToClipboard;
    If ActiveControl is TDBedit then TDBedit(ActiveControl).CopyToClipboard;
    end;
    
    procedure PasteButtonClick(Sender: TObject);
    begin
    If ActiveControl is TMemo then TMemo(ActiveControl).PasteFromClipboard;
    If ActiveControl is TDBMemo then TDBMemo(ActiveControl).PasteFromClipboard;
    If ActiveControl is TEdit then TEdit(ActiveControl).PasteFromClipboard;
    If ActiveControl is TDBedit then TDBedit(ActiveControl).PasteFromClipboard;
    end;
    TStringgrid'i kaydetme ve açma

    Kod:
    Procedure SaveGrid;
    var 
    f:textfile;
    x,y:integer;
    begin
    assignfile (f,'Filename');
    rewrite (f);
    writeln (f,stringgrid.colcount);
    writeln (f,stringgrid.rowcount);
    For X:=0 to stringgrid.colcount-1 do
    For y:=0 to stringgrid.rowcount-1 do
    writeln (F, stringgrid.cells[x,y]);
    closefile (f);
    end;
    
    Procedure LoadGrid;
    var 
    f:textfile;
    temp,x,y:integer;
    tempstr:string;
    begin
    assignfile (f,'Filename');
    reset (f);
    readln (f,temp);
    stringgrid.colcount:=temp;
    readln (f,temp);
    stringgrid.rowcount:=temp;
    For X:=0 to stringgrid.colcount-1 do
    For y:=0 to stringgrid.rowcount-1 do begin
    readln (F, tempstr);
    stringgrid.cells[x,y]:=tempstr;
    end;
    closefile (f);
    Avi dosyasinin görünüm alanini seçilen panele esitleme

    Kod:
    begin
    with MediaPlayer1 do begin
    DeviceType := dtAutoSelect;
    visible := false;
    FileName := InputBox('AVI', 'Enter AVI file name', 'c:\windows\borland.avi');
    display := panel1;
    open;
    DisplayRect := rect(0, 0, panel1.width, panel1.height); {This is it!}
    rewind;
    play;
    end;
    end;
    Windows'a çizgi çizmenin farkli bir yolu

    Kod:
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    var dc:hdc;
    begin
    dc:=getdc(0);
    Windows.LineTo(dc,x,y);
    end;
    
    end.
    Kodları nasıl kullancaksınız VİDEO (alıntıdır)
    İnternetteki sorunum gidince kendim video çekeceğim.

    - - - Updated - - -

    Video eklenmiştir++
    Konu ..:Komando:.. tarafından (21-03-14 Saat 21:28 ) değiştirilmiştir.
    Ben ezelden beridir hür yaşadım, hür yaşarım.
    Hangi çılgın bana zincir vuracakmış? Şaşarım!
    Kükremiş sel gibiyim: Bendimi çiğner, aşarım;
    Yırtarım dağları, enginlere sığmam taşarım.

    Garb'ın afakını sarmışsa çelik zırhlı duvar;
    Benim iman dolu göğsüm gibi serhaddim var.
    Ulusun, korkma! Nasıl böyle bir imanı boğar,
    ''Medeniyet!'' dediğin tek dişi kalmış canavar?

  2. #2
    Cevizin kabuğunu kırıp özüne inmeyen cevizin hepsini kabuk zanneder.
    #Stoяm™ - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    30.12.2012
    Yer
    İstanbul
    Mesajlar
    13.815
    Bahsedildi
    1 Mesaj
    Etiketlenmiş
    0 Konu
    Rep Puanı
    10

    Standart Cevap: Delphi Örnek Uygulama Kodları

    Sabitlendi.
    Look Behind

  3. #3
    Üye ..:Komando:.. - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    02.02.2014
    Yer
    Fenerbahçe ♥
    Yaş
    22
    Mesajlar
    7.617
    Bahsedildi
    0 Mesaj
    Etiketlenmiş
    0 Konu
    Rep Puanı
    10

    Standart Cevap: Delphi Örnek Uygulama Kodları

    Eyvallah
    Ben ezelden beridir hür yaşadım, hür yaşarım.
    Hangi çılgın bana zincir vuracakmış? Şaşarım!
    Kükremiş sel gibiyim: Bendimi çiğner, aşarım;
    Yırtarım dağları, enginlere sığmam taşarım.

    Garb'ın afakını sarmışsa çelik zırhlı duvar;
    Benim iman dolu göğsüm gibi serhaddim var.
    Ulusun, korkma! Nasıl böyle bir imanı boğar,
    ''Medeniyet!'' dediğin tek dişi kalmış canavar?

  4. #4
    Üye ..:Komando:.. - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    02.02.2014
    Yer
    Fenerbahçe ♥
    Yaş
    22
    Mesajlar
    7.617
    Bahsedildi
    0 Mesaj
    Etiketlenmiş
    0 Konu
    Rep Puanı
    10

    Standart Cevap: Delphi Örnek Uygulama Kodları

    Yeni kodlar eklenmiştir..
    Ben ezelden beridir hür yaşadım, hür yaşarım.
    Hangi çılgın bana zincir vuracakmış? Şaşarım!
    Kükremiş sel gibiyim: Bendimi çiğner, aşarım;
    Yırtarım dağları, enginlere sığmam taşarım.

    Garb'ın afakını sarmışsa çelik zırhlı duvar;
    Benim iman dolu göğsüm gibi serhaddim var.
    Ulusun, korkma! Nasıl böyle bir imanı boğar,
    ''Medeniyet!'' dediğin tek dişi kalmış canavar?

  5. #5
    Üye Zero Tolerance - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    16.04.2013
    Yer
    Ankara
    Mesajlar
    25.140
    Bahsedildi
    16 Mesaj
    Etiketlenmiş
    0 Konu
    Rep Puanı
    10

    Standart Cevap: Delphi Örnek Uygulama Kodları

    Teşekkürler.
    03.07.2015

Sayfa 1/2 12 SonSon

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •