Let us consider the age-old Delphi problem of providing an editor for the contents of a Delphi DbGrid (Memo Field) We all know that normally, the Delphi DbGrid will simply display (MEMO) That’s really not good enough for any viable application.
So we will think to make some changes for the better. Perhaps your DbGrid also serves as the grid for multiple table? No problem. The first bit of code involves the “Get Text” event of any Field object. To add field objects to tables, double click the ttable object and then right click inside the editor that pops up and choose adds fields.
This text is just a placeholder as it cannot be directly added, and is there just to replace the quite ugly… (MEMO) Not you can make it any length you desire but since the contents of most memo fields can be quite long, it’s best to keep it short.
procedure TFrmMain.TbSitesdescGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := Copy(TbSitesDesc.AsString, 1, 50) + '...(Double Click to Edit)';
end;
Now on to the meat of the process. I’ve got a new form with a Tmemo, the form is called “FrmEditDbMemo” The rest of the process is straightforward. It’s totally dynamic so no static names are used, but based simply on the current contents of the DbGrid and the double-clicked field value in the DbGrid.
procedure TFrmSites.DBGrid1DblClick(Sender: TObject);
begin
Application.CreateForm(TfrmEditDbMemo, FrmEditDbMemo);
FrmEditDbMemo.Memo1.Text := Trim(DbGrid1.SelectedField.AsString);
FrmEditDbMemo.Caption := 'Edit ' + DbGrid1.SelectedField.FieldName;
FrmEditDbMemo.ShowModal;
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldByName(DbGrid1.SelectedField.FieldName).AsString := FrmEditDbMemo.Memo1.Text;
end;
You will obviously have to commit these changes after the edit is finished with “Post” Cheers!
