Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

DBGridEh. Как программно скопировать в буфер обмена?   Найти похожие ветки 

 
noob_one   (2011-01-19 09:59) [0]

Клавишами это делается Ctrl+A, Ctrl+C.
Выделение всего нашел DBG.Selection.SelectAll;

Не могу найти как скопировать (


 
Slym ©   (2011-01-19 10:39) [1]

procedure TForm1.EditCopy1Execute(Sender: TObject);
var Safe,s:string;
i,j:integer;
begin
 with DBGrid1 do
 begin
   if SelectedRows.Count>0 then
   begin
     s:="";
     DataSource.DataSet.DisableControls;
     try
       Safe:=DataSource.DataSet.Bookmark;
       for i:=0 to SelectedRows.Count-1 do
       begin
         DataSource.DataSet.Bookmark:=SelectedRows.Items[i];
         for j:=0 to DataSource.DataSet.FieldCount-1 do
         begin
           s:=s+DataSource.DataSet.Fields[j].AsString;
           if j<DataSource.DataSet.FieldCount-1 then
             s:=s+#9;
         end;
         s:=s+#13#10;
       end;
       DataSource.DataSet.Bookmark:=Safe;
     finally
       DataSource.DataSet.EnableControls;
     end;
     if s<>"" then
     begin
       Clipboard.Open;
       try
         Clipboard.AsText:=s;
       finally
         Clipboard.Close;
       end;
     end;
   end;
 end;
end;


 
noob_one   (2011-01-19 11:10) [2]

Большое спасибо.
Дело в том что у DBGridEh копируются заголовки с форматированием, к тому же dataset у меня много полей которых нет в гриде.

Я нашел модуль DBGridEhImpExp а в нем процедуру DBGridEh_DoCopyAction. Работает медленно, но красиво.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
3-1276868847
worldmen
2010-06-18 17:47
2013.03.22
Поиск в BLOB (текст) поле не зависимо от регистра


15-1348084386
AV
2012-09-19 23:53
2013.03.22
Простой вопрос по TwebBrowser(я так думаю,что простой:)


15-1330891352
KilkennyCat
2012-03-05 00:02
2013.03.22
Спутниковое телевидение


15-1353572399
Иван Уткин
2012-11-22 12:19
2013.03.22
Вопрос по теории вероятностей?


15-1331205157
antonn
2012-03-08 15:12
2013.03.22
про архитектуру бд