Not Defteri

Hazırlayan: esentepelibatu
İLK DERSİ
Açıklama: Delphi Not Defteri


<!---delphidersleri.tr.gg kod başlangıc--->
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. <SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.delphidersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>

<!---delphidersleri.tr.gg kod bitişi--->