~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.DBGrid1KeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState) ;
var
ctrl : word;
begin
for B := 0 to -1 + DBGrid1.ControlCount do
if DBGrid1.Controls[ctrl] is TInPlaceEdit then
with DBGrid1.Controls[ctrl] as TInPlaceEdit do
Caption := 'Typing in Grid: ' + Text;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to find what control was previously selected
« How to search and replace in RichEdit
