[Kaf_Dağı]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

// örneğin 
// form create yordamında formu kapatmak isteyebilirsiniz.
// formun caption yazısını kaydırabilirsiniz.
//ana form ise yavru formalı hepsini kapatabilirsiniz.
//
//
unit formozel;
 
interface
 
uses
 ExtCtrls,Windows, Messages, Graphics, Controls, Forms, Dialogs, ShellAPI, Menus,
 SysUtils, Classes;
 
type
 Tformozel = class(TComponent)
 private
 ftimer : TTimer;
 ftimer1 : TTimer;
 fyazikaydir:boolean;
 protected
 
 procedure updateclock(Sender:tobject);
 procedure updateclock1(Sender:tobject);
 
 public
 procedure kapali;
 procedure YavruFormKapat;
 constructor Create (AOwner : TComponent); override;
  published
 
 property timer:Ttimer read Ftimer;
 property Kapat:Ttimer read ftimer1;
 property yazikaydir:Boolean read fyazikaydir write fyazikaydir;
 
 
 end;
 
procedure Register;
var wer:integer;
implementation
 
procedure Register;
begin
 RegisterComponents('Ramazan', [Tformozel]);
end;
 
{ Tformozel }
 
constructor Tformozel.Create(AOwner: TComponent);
begin
inherited Create (AOwner);
ftimer:=Ttimer.create(self);
ftimer.name:='Zaman';
ftimer.ontimer:=Updateclock;
ftimer.enabled:=true;
ftimer1:=Ttimer.create(self);
ftimer1.name:='kapatform';
ftimer1.ontimer:=Updateclock1;
ftimer1.enabled:=false;
fyazikaydir:=False;
ftimer.Interval:=100;
ftimer1.Interval:=100;
ftimer.SetSubComponent(true);
ftimer1.SetSubComponent(true);
end;
 
 
 
 
procedure Tformozel.kapali;
begin
Kapat.Enabled:=true;
end;
 
procedure Tformozel.updateclock(Sender: tobject);
begin
if fyazikaydir=true then
begin
if (Owner as TForm).Caption='' then
begin
fyazikaydir:=False;
ShowMessage('Form Adı Yazılı Değil');
end
else
(Owner as TForm).Caption:=(COPY((Owner as TForm).Caption,2,LENGTH((Owner as TForm).Caption)-1)+(Owner as TForm).Caption[1]);
end;
end;
 
procedure Tformozel.updateclock1(Sender: tobject);
begin
for wer:=0 to 1 do
begin
if wer=1 then
(Owner as TForm).Close;
end;
end;
 
procedure Tformozel.YavruFormKapat;
var x:integer;
begin
for x:=1 to (Owner as TForm).MDIChildCount do
(Owner as TForm).MDIChildren[0].Release;
end;
 
end.