procedure Tform1.DBGridEh2CellClick(Column: TColumnEh); var str : String; begin inherited; if DBGridEh2.SelectedField <> nil then begin str := DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString; DBGridEh2.Hint := str; end; end; procedure TfFYAO_Htpy.DBGridEh2ColEnter(Sender: TObject); begin inherited; if DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString <> '' then DBGridEh2CellClick(nil);end;
当鼠标点击时或用键盘移到光标到当前单元格时可以
<A href="http://www.anylib.com">http://www.anylib.com</A>
var
str : String;
begin
inherited;
if DBGridEh2.SelectedField <> nil then
begin
str := DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString;
DBGridEh2.Hint := str;
end;
end;
procedure TfFYAO_Htpy.DBGridEh2ColEnter(Sender: TObject);
begin
inherited;
if DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString <> '' then
DBGridEh2CellClick(nil);end;