MdI Not Defteri

sWaGg€r

06.07.2008 17:58:33

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
D1: TMenuItem;
Yeni1: TMenuItem;
A1: TMenuItem;
Kaydet1: TMenuItem;
N1: TMenuItem;
k1: TMenuItem;
Dzen1: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
emizle1: TMenuItem;
arihEkle1: TMenuItem;
Zamanekle1: TMenuItem;
AktifPencereyeEkle1: TMenuItem;
HepsineEkle1: TMenuItem;
AktifPencereyeEkle2: TMenuItem;
HepsineEkle2: TMenuItem;
Grnm1: TMenuItem;
YazTipi1: TMenuItem;
YazRengi1: TMenuItem;
ArkaPlanRengi1: TMenuItem;
Pencere1: TMenuItem;
Basamakla1: TMenuItem;
De1: TMenuItem;
Yatay1: TMenuItem;
Dikey1: TMenuItem;
Kapat1: TMenuItem;
HepsiniKapat1: TMenuItem;
SatrNoEkle1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
procedure Yeni1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Basamakla1Click(Sender: TObject);
procedure Yatay1Click(Sender: TObject);
procedure Dikey1Click(Sender: TObject);
procedure Kapat1Click(Sender: TObject);
procedure HepsiniKapat1Click(Sender: TObject);
procedure Kes1Click(Sender: TObject);
procedure Kopyala1Click(Sender: TObject);
procedure Yaptr1Click(Sender: TObject);
procedure emizle1Click(Sender: TObject);
procedure AktifPencereyeEkle1Click(Sender: TObject);
procedure AktifPencereyeEkle2Click(Sender: TObject);
procedure HepsineEkle1Click(Sender: TObject);
procedure HepsineEkle2Click(Sender: TObject);
procedure YazTipi1Click(Sender: TObject);
procedure YazRengi1Click(Sender: TObject);
procedure ArkaPlanRengi1Click(Sender: TObject);
procedure SatrNoEkle1Click(Sender: TObject);
private
n:integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Yeni1Click(Sender: TObject);
var
f:TForm2;
begin
f:=TForm2.Create(Self);
f.Caption:='Yeni ' + inttostr(n);
n:=n+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=1;
end;

procedure TForm1.Basamakla1Click(Sender: TObject);
begin
Cascade;
end;

procedure TForm1.Yatay1Click(Sender: TObject);
begin
TileMode:=tbHorizontal;
Tile;
end;

procedure TForm1.Dikey1Click(Sender: TObject);
begin
TileMode:=tbVertical;
Tile;
end;

procedure TForm1.Kapat1Click(Sender: TObject);
begin
if ActiveMDIChild <> nil then
ActiveMDIChild.close;

end;

procedure TForm1.HepsiniKapat1Click(Sender: TObject);
var
i:integer;
begin
for i:=MDIChildCount -1 downto 0 do
MDIChildren.Close;
end;

procedure TForm1.Kes1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.CutToClipboard;
end;

procedure TForm1.Kopyala1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.CopyToClipboard;
end;

procedure TForm1.Yaptr1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.PasteFromClipboard;
end;

procedure TForm1.emizle1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.Clear;
end;

procedure TForm1.AktifPencereyeEkle1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.Lines.Add(DatetoStr(Now));
end;

procedure TForm1.AktifPencereyeEkle2Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
TForm2(ActiveMDIChild).Memo1.Lines.Add(TimetoStr(Now));
end;

procedure TForm1.HepsineEkle1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to MDIChildCount -1 do
Tform2(MDIChildren).Memo1.Lines.Add(DatetoStr(Now));
end;

procedure TForm1.HepsineEkle2Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to MDIChildCount -1 do
TForm2(MDIChildren).Memo1.Lines.Add(Timetostr(Now));
end;

procedure TForm1.YazTipi1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
if fontdialog1.execute then
TForm2(ActiveMDIChild).Memo1.Font := FontDialog1.Font;

end;

procedure TForm1.YazRengi1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
if colordialog1.execute then
TForm2(ActiveMDIChild).Memo1.Font.Color := ColorDialog1.Color;
end;

procedure TForm1.ArkaPlanRengi1Click(Sender: TObject);
begin
if ActiveMDIChild = nil then
exit;
if colordialog1.execute then
TForm2(ActiveMDIChild).Memo1.Color := ColorDialog1.Color;
end;

procedure TForm1.SatrNoEkle1Click(Sender: TObject);
var
i:integer;
begin
if ActiveMDIChild = nil then
exit;
for i:=0 to TForm2(ActiveMDIChild).Memo1.Lines.Count-1 do
Tform2(ActiveMDIChild).Memo1.Lines:=inttostr(i+1)+'.'+Tform2(ActiveMDIChild).Memo1.Lines;

end;

end.

----------*************************------------------------
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Memo1: TMemo;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;