CxButtonEdit kullanarak yeni bir component yapabilirmiyim

[Burhan_ast]

Arkadaslar merhaba,

Programda Cxbuttonedit kullanarak bilgilere ulasmasi icin kullaniyorum ornegin stok karti eklerken, renk secimini bu sekilde editin butonuna basilinca bir forma aciliyor orda seciliyor ve yeniden forma donuyor islemi yapiyorum, yalniz programda o kadar bu sekilde secmeli islemlerim varki tum islemlerin propertylerine islemleri yazmaktansa, cxbuttoneditten faydalanarak bir component yapmak mumkunmu yeni componentte SecForm seklinde bir alan olacak buraya formu baglayacagim v.s. gibi yeni ozellikler ile bu islemi yapabilirmiyim, Secimlerde ve editten cikista su kodlari kullaniyorum.

Kod: Tümünü seç

procedure TFrm_Ser_Rapor_ekle.Edi_rapor_tipiPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
//ok
      if Edi_rapor_tipi.Properties.readOnly=True then exit;
      Try
        Screen.Cursor                         := Frm_ana_form.Wait_cursor;
        Frm_Ser_bul.Tablolari_ac('Rapor_tipi', 'Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki, ' asc', 'Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki, Edi_rapor_tipi.text,True);
        Screen.Cursor := Frm_ana_form.Default_cursor;
        Frm_Ser_bul.Showmodal;
      Finally
         If Frm_Ser_bul.ModalResult=MrOk then
         begin
           Tbl_Rapor.Fieldbyname('Rapor_tipi_kayit_no').text:=Frm_Ser_bul.Tbl_Ara.Fieldbyname('Kayit_no').text;
           Edi_rapor_tipi.Text :=Frm_Ser_bul.Tbl_Ara.Fieldbyname('Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki).text;
         End;
      end;
end;

Kod: Tümünü seç

//ok
  Frm_Ser_bul.Tablolari_ac('Rapor_tipi', 'Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki, ' asc', 'Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki, Edi_Rapor_tipi.text,False);
  If Edi_Rapor_tipi.Text=Frm_Ser_bul.Tbl_Ara.Fieldbyname('Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki).text then
  begin
     Tbl_Rapor.Fieldbyname('Rapor_tipi_kayit_no').text:=Frm_Ser_bul.Tbl_Ara.Fieldbyname('Kayit_no').text;
     Edi_Rapor_tipi.Text :=Frm_Ser_bul.Tbl_Ara.Fieldbyname('Rapor_tipi_'+Frm_ana_form.Kullanici_dil_alan_eki).text;
  End else
  Begin
     Tbl_Rapor.Fieldbyname('Rapor_tipi_kayit_no').text:='';
     Edi_Rapor_tipi.Text :='';
  End;

Seklinde,

Yardimlarinizdan dolayi tesekkur ederim

Burhan Cakmak

[freeman35]

Kod: Tümünü seç

.....
TMycxButtonEdit = class(TcxButtonEdit)
  published
    property Anchors;
    property AutoSize;
...
end;

Buna kendi Property lerinide ekliyebilirsin, Contractor ını yazıp türettiğin class daki bir event e atama yaptırtabilirsin Onbuttonclick gibi. Kendi eklediğin propertyler ilede bu event te kullanacağın string gibi vs değişkenleri gönderebilirsin. Hatta bunu TDtaLink Bağlayıp BD içinede gömebilirsin. Bunun ucu bucağı yok tabi giderde gider böyle

Kolay gele

[uparlayan]

Peki, bu yazdığımız yeni bileşeni cxVerticalGrid'de kullanmak için ne yapmak lazım ?

[lazymule]

bkn.
http://www.dragonsoft.us/delphi_vcldx.php