Delphi Peak - Delphi Programming

Delphi’de en çok kullanılan bileşenlerden olan DBGrid’de genelde TEXT tipteki alanlar (MEMO) olarak gözükür. Bu sorunu çözmek için yapmanız gereken oldukça basit bir işlem var.

Öncelikle ne tür bir sorgu bileşeni kullanıyorsanız bileşene sağ tıklayıp “Fields Editor” deyin. Karşınıza gelecek olan panele sağ tıklayıp Add Fields deyin. Eklemek istediğiniz Field’ları ekleyin. Daha sonra (MEMO) olarak görünmek yerine belli bir karaktere kadar görünmesini istediğiniz Field’a tıkladıktan sonra Events kısmından OnGetText eventine aşağıdaki gibi bir komut yazın:

procedure TmyForm.MySQLQuery1KOLONADGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := Copy(mySQLQuery1KOLONAD.AsString, 1, 200);
end;

Bu çözüm DBGrid’de (MEMO) yerine MEMO alanın ilk 200 karekterinin görünmesini sağlayacaktır.