componet create

[abdulkadir]

S.A
Arkadaslar delphiye component palete eklenebilen bazı componentleri ben component palete eklemeden kodla calıstırmak istiyorum eksik birseyler var ama ne .


kullandıgım bir componentten su satırları sildim

Kod: Tümünü seç

//procedure Register;
{
procedure Register;
begin
  RegisterComponents('AKL', [TAKL_SHELL]);
end;

}

ve kullandıgım formda unitin uuses kısmına AKL_SHELL pas dosyasını ekledim

Kod: Tümünü seç

procedure TForm1.Button4Click(Sender: TObject);
var
  sd: TAKL_SHELL;
begin

// erişmek istedigim 2 property
//Property FileName 
//Property Active

  if OpenDialog1.Execute then
    try
      sd.Create(self);
      sd.FileName := OpenDialog1.FileName;
      sd.Active := true;
    except
      ShowMessage('Ah Ulan Naciye Yaktın Beni....');
    end;
end;

hatalı.
bunu nasıl yapmam lazım
ögrenemedim gitti su sınıf ve componentleri
cok calısmam lazım cok.
sevgiler.

[MuratYILMAZ]

zannedersem 'uses' kısmına 'TAKL_SHELL' olayını kendin yazman lazım.yani component platte den nesneyi forma eklediğinde bu otomatik yazılıyo ama sen bunu iptal ettiğin için elinle yazman lazım diye düşünüyorum ama yanılmışda olabilirim.
Kolay gelsin.

[gkimirti]

Kod: Tümünü seç

procedure TForm1.Button4Click(Sender: TObject);
var
  sd: TAKL_SHELL;
begin

// erişmek istedigim 2 property
//Property FileName
//Property Active

  if OpenDialog1.Execute then
    try
      sd:=TAKL_SHELL.Create(self);//bu sekilde olmalı
      sd.FileName := OpenDialog1.FileName;
      sd.Active := true;
    except
      ShowMessage('Ah Ulan Naciye Yaktın Beni....');
    end;
end; 

[oguzozturk74]

S.A. Abdülkadir kardeş,
Neden böyle bir şeye ihtiyaç duydun merak ettim doğrusu .
Açıklarsan memnun olurum.

[abdulkadir]

Bazı componentleri yüklemek istemiyorum çünkü sık sık pc ye format atıyorum temizlik imandandır delphiye yükleme derdinden kurtulmak için.

ayrıca ihtiyac halinde ufak kodlu komponentleri tek sayfada toplamak daha basit gibi geliyor delphiye 5 komponent yüklemektense hepsinin kaynak kodun tek sayfada toplamak daha az karısık bence.

Ayrıca ve en önemlisi ÖGRENMEK İÇİN.

sevgiler.

[oguzozturk74]

Açıklaman için sağolasın hocam .