| Kaf_Dağı | 18 Mart 2015 14:15 |
Form da bazı değişiklikleri yapabilecek bir komponent
Kod:
// ö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.
| 