KOOLPA

pReNsEs · 26-07-2007, 02:38

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;

26-07-2007, 02:38	#1 (permalink)
pReNsEs KooooLpa Üyelik tarihi: Dec 2006 Mesajlar: 2,639 Tecrübe Puanı: 8	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; __________________

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Nesne Siralama	morejderha	Java	0	21-02-2008 13:45
Nesne Tipleri	morejderha	Java	0	21-02-2008 12:42
Cöp Nesne	morejderha	Java	0	21-02-2008 12:37
Till the End of Time	denemes	Sinema	0	25-01-2008 23:06
Melanie C - This Time	KöTü KeDi ŞeRaFeTTiN	Youtube Klipleri	0	22-09-2007 08:42

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Sponsor Linkler

KOOLPA

Design Time Çalışan Nesne

Design Time Çalışan Nesne

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Benzer Konular