Runtime tfield onchange event.

[havuc99]

Merhaba arkadaşlar

veri tabloma aşşağıdaki kod ile dinamik olarak alan ekliyorum.

virtual1.AddField('Firmaadi',Ftstring,60,FALSE );

ve bu alan değiştiğinde onchange olayının devreye girmesini istiyorum. dinamik olarak çalışma hakkında pek bilgim olmadığı için bir türlü becremedim malesef

[sabanakman]

Örnekteki yöntemi denemekte bir fayda var.

Kod: Tümünü seç

procedure TForm1.virtual1Change(Sender: TField);
begin
  //ShowMessage('Test');
end;
..
..
..
procedure TForm1.Button1Click(Sender: TObject);
var Alan:TField;
begin
  Alan:=virtual1.FieldByName('Firmaadi');
  Alan.OnChange:=virtual1Change;
end;

[havuc99]

Teşekkür ederim Şaban bey

Çalıştı.