Anasayfa > Kodlar > Delphi ile Design time çalışan nesne

Delphi ile Design time çalışan nesne

Tasarım Zamanında Çalışan Bir nesne. Boş bir unit açın. type dan sonrasına aşağıdaki kodu copy paste yapın ve componenti kurun. Daha sonra komponenti forma yerleştirin ve sonucu gözlemleyin. Normalde sabit olan tasarım formunuzu hareketli göreceksiniz.

Hiç böyle bir nesne gördünüz mü bilmiyorum. Enterasan ama bu nesne Design Time sırasında çalışıyor. Aşağıdaki kodları boş bir unit açarak kopyala yapıştır yapın ve kaydedin. Daha sonra Component > Install Component diyerek bu nesneyi kurun. Standard sekmesine bu nesne gelecektir. Daha sonra bir forma bu nesneyi atın. Sonucu izleyin.

Kişisel websitem: www.programlar.gezegeni.com

type
TMyThread = class(TThread)
private
FOwner: TForm;

procedure Process;
public
constructor Create(AOwner: TForm);
destructor Destroy; override;
procedure Execute; override;
end;

TMyObj = class(TGraphicControl)
private
FThreadObj: TMyThread;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Paint; override;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Standard', [TMyObj]);
end;

{ TMyThread }

constructor TMyThread.Create(AOwner: TForm);
begin
FOwner := AOwner;
inherited Create(False);
end;

destructor TMyThread.Destroy;
begin

inherited;
end;

procedure TMyThread.Execute;
begin
while not Self.Terminated do
begin
Synchronize(Self.Process);
Sleep(100);
end;
end;

procedure TMyThread.Process;
begin
FOwner.Left := Random(200);
FOwner.Top := Random(200);
end;

{ TMyObj }

constructor TMyObj.Create(AOwner: TComponent);
begin
inherited;
FThreadObj := TMyThread.Create(TForm(AOwner));

end;

destructor TMyObj.Destroy;
begin

inherited;
end;

procedure TMyObj.Paint;
begin
inherited;

end;


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: