Gönderen Konu: Design Time Çalışan Nesne (Okunma sayısı 2247 defa)

hayati · « : 30 Ağustos 2007 07:53:40 »

Boş bir unit açın ve aşağıdaki kodu oraya yapıştırın ve kaydedin. sonra Component > Install Component diyerek bu nesneyi kurun, nesne Standard sekmesine yerleşecek. daha sonra bu nesneden formunuza bir tane koyun. ve formunuzu izleyin, ilginç birşey. bu! bileşenin gerekliliğini tartışılabiliriz ama tasarım anında çalışan bileşen fikri gerçekten ilginç ve programlama yaparken programcıya/kullanıcıya nasıl ve nezaman avantaj sağlar bunu tartışsak daha iyi olur kanımca, tartışmaya değer bulursanız

Kod: Delphi

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
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;
 
end.

x2ck11 · « **Yanıtla #1 :** 03 Mart 2009 02:56:48 »

abi bunu yaptım acayip oldu form yerinde durmuyor.nasıl bu şekilde çalışılır benim kafam döndü

bu şekilde çalışmak isteyen varsa da helal olsun ne deyim

barutali · « **Yanıtla #2 :** 10 Temmuz 2009 12:52:37 »

ben alamayım hocam çok tehlikeli bir bileşen bu yerinde durmuyor form

bi label koyayım dedim forma ter bastı

Kodbank İndir

Gönderen Konu: Design Time Çalışan Nesne (Okunma sayısı 2247 defa)

hayati

Design Time Çalışan Nesne

x2ck11

Ynt: Design Time Çalışan Nesne

barutali

Ynt: Design Time Çalışan Nesne