|~Pc kopat 2oo8~|| HACKİNG ,SECURİTY,PROGRAMLAMA,PROGRAM,İNTERNET ERİŞiMİ ,PAYLAŞIM PORTALI

BİLGİSAYAR, WEB PROGRAMLAMA,İNTERNET ERİŞİMİ, PROGRAMLAMA VE PC BAKIM, DONANIM, PC GÜVENLİK SUNUCU YOLU
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Delphi'de Not Defteri

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
XabrkX
Admin
Admin
avatar

Erkek
Mesaj Sayısı : 573
Nerden : NOLDU BİZEMİ GELCEN ? :D :D
Lakap : ******kaRİZma*******
RUH HALİ :
SADECE BU KONUDA AŞAĞIDAKİ KADAR TEŞEKKÜR EDİLDİ : <div class="js-kit-rating" view="score"path="" title="" permalink=""></div><script src="http://js-kit.com/ratings.js"></script>
TAKIM :
Kayıt tarihi : 09/07/08

MesajKonu: Delphi'de Not Defteri   Ptsi Ağus. 04, 2008 4:07 pm

Delphi'de Not Defteri

text editörüne yazılan yazıyı .txt olarak kaydediyor.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
DOSYA1: TMenuItem;
A1: TMenuItem;
Yeni1: TMenuItem;
DZEN1: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
BM1: TMenuItem;
Yaztipi1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
procedure Yeni1Click(Sender: TObject);
procedure k1Click(Sender: TObject);
procedure Kes1Click(Sender: TObject);
procedure Kopyala1Click(Sender: TObject);
procedure Yaztipi1Click(Sender: TObject);
procedure Yaptr1Click(Sender: TObject);
procedure Sil1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure Katdet1Click(Sender: TObject);
procedure Kaydet1Click(Sender: TObject);
procedure emizle1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Yeni1Click(Sender: TObject);
begin
memo1.Text:='';
end;

procedure TForm1.k1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Kes1Click(Sender: TObject);
begin
memo1.CutToClipboard ;
end;

procedure TForm1.Kopyala1Click(Sender: TObject);
begin
Memo1.CopyToClipboard ;
end;

procedure TForm1.Yaztipi1Click(Sender: TObject);
begin
FontDialog1.Execute;
memo1.Font :=FontDialog1.Font ;
memo1.Font.Size :=FontDialog1 .font.Size ;
memo1.Font.Style:=FontDialog1 .Font.Style ;
end;

procedure TForm1.Yaptr1Click(Sender: TObject);
begin
memo1.PasteFromClipboard ;
end;

procedure TForm1.Sil1Click(Sender: TObject);
begin
memo1.Text:=''
end;

procedure TForm1.A1Click(Sender: TObject);
begin
OpenDialog1.Execute ;
end;

procedure TForm1.Katdet1Click(Sender: TObject);
begin
SaveDialog1.Execute ;
end;

procedure TForm1.Kaydet1Click(Sender: TObject);
begin
SaveDialog1.Execute;
memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt' );
end;

procedure TForm1.emizle1Click(Sender: TObject);
begin
memo1.text:=''
end;

end.

_________________




*****Gec€LerİN ADmiNİ*****
XabrkX
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.pckopat.forumn.biz
 
Delphi'de Not Defteri
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
|~Pc kopat 2oo8~|| HACKİNG ,SECURİTY,PROGRAMLAMA,PROGRAM,İNTERNET ERİŞiMİ ,PAYLAŞIM PORTALI :: PROGRAMLAR VE PROGRAMLAMA :: PROGRAMLAMA DİLLERİ VE PROGRAMLAMA İLE İLGİLİ HER ŞEY-
Buraya geçin: