Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.105 c
15-1343987497
AV
2012-08-03 13:51
2013.03.22
Quip 2012. Как раз и навсегда изменить порт с 433 на 5190?


15-1339763619
Kerk
2012-06-15 16:33
2013.03.22
WebDAV в Windows XP


15-1348811854
MonoLife
2012-09-28 09:57
2013.03.22
Подскажите по проектировке таблиц БД.


15-1351234770
AV
2012-10-26 10:59
2013.03.22
Легкая пятничная. Не гуглить! :)


2-1341408918
%s
2012-07-04 17:35
2013.03.22
вывод даты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский