Hello Peter,
Thank you, this works perfect. This is some working demo code in case
someone needs it:
type
TMyGrid = class(TDBGrid);
procedure TMain.DBGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
Grid: TMyGrid;
begin
if DBGrid.SelectedField.FieldName = 'Omschrijving' then begin
Grid := TMyGrid(DBGrid);
WriteLn(Grid.InplaceEditor.Text);
WriteLn(Grid.Canvas.TextWidth(Grid.InplaceEditor.Text));
end;
end;
---
Rgds, Wilfried
http://www.mestdagh.biz
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://lists.elists.org/cgi-bin/mailman/listinfo/delphi-talk
