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

Вниз

как поймать момент когда DBGrid переходит в режим редактирования   Найти похожие ветки 

 
Fast   (2004-07-07 16:24) [0]

Дело в том, что надо сделать тривиальную вешь - повешать попап с функциями копирования в вставления из буфера.
постаил попап написал функцию

var text:string;
begin
text:=(Form1.ActiveControl as TCustomDBGrid).SelectedField.Value;
Clipboard.SetTextBuf(pchar(text));
end;

Работает на ура только если не находимся в режиме редактирования записи.
И самое главное в режиме редактирования есть свой стандартный попар который я не хочу перекрывать.
Т.е. я вижу выход в том, что отменять мое меню для грида если она  в режиме редактирования.


 
Reindeer Moss Eater ©   (2004-07-07 16:26) [1]

OnStateChange event (TDataSource)


 
Sandman25 ©   (2004-07-07 16:26) [2]

DBGrid.DataSource.DataSet.State in dsEditModes


 
Соловьев ©   (2004-07-07 16:27) [3]

var text:string;
begin
if (Form1.ActiveControl is TCustomDBGrid) and
((Form1.ActiveControl as TCustomDBGrid).DataSource.DataSet.State = dsBrowse)
then
text:=(Form1.ActiveControl as TCustomDBGrid).SelectedField.Value;
Clipboard.SetTextBuf(pchar(text));
end;


 
Fast   (2004-07-07 16:32) [4]

не выйдет во время редактирования гида ActiveControl - не сам грид


 
Соловьев ©   (2004-07-07 16:37) [5]


> не выйдет во время редактирования гида ActiveControl - не
> сам грид

но зато когда вызываешь попап должен он.
ну или тогда обрашайся по имени.


 
Fast   (2004-07-07 16:38) [6]

я имею в виду что при редактировании ActiveControl  - возвращает не grid, а видимо саму ячейку таблицы.


 
Соловьев ©   (2004-07-07 16:39) [7]


> а видимо саму ячейку таблицы

та нет.


 
Fast   (2004-07-07 16:41) [8]

но зато когда вызываешь попап должен он.
ну или тогда обрашайся по имени.

по имени совсем не хочется потому как таблиц на форме тьма и хотелось один попар на все


 
Sandman25 ©   (2004-07-07 16:47) [9]

type TFakeInplaceEdit = class(TInplaceEdit);

TFakeInplaceEdit(Form1.ActiveControl).Grid


 
Fast   (2004-07-07 17:04) [10]

Решил :)
Гдяшишь кому пригодиться


procedure TForm1.Copy1Click(Sender: TObject);
var text:string;
begin
if not (Form1.ActiveControl is TCustomDBGrid) then
  begin
  SendMessage(Form1.ActiveControl.Handle,WM_COPY,0,0);
  exit;
  end;
text:=(Form1.ActiveControl as TCustomDBGrid).SelectedField.Value;
Clipboard.SetTextBuf(pchar(text));
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
if not (Form1.ActiveControl is TCustomDBGrid) then
  begin
  SendMessage(Form1.ActiveControl.Handle,WM_PASTE,0,0);
  exit;
  end;
(Form1.ActiveControl as TCustomDBGrid).DataSource.Edit;
(Form1.ActiveControl as CustomDBGrid).SelectedField.Value:=Clipboard.AsText;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.038 c
1-1089804769
CTAPbIi
2004-07-14 15:32
2004.08.01
Закрытие модальной формы.


14-1089722530
mOOx_
2004-07-13 16:42
2004.08.01
Сбор статистики по более чем 300 логам


11-1077966272
ALeX.B.
2004-02-28 14:04
2004.08.01
Ещё вопрос по Memo /RichEdit...


8-1084811635
killer
2004-05-17 20:33
2004.08.01
Подскажите как в Jpg-фотографию вставить exe-файл?


6-1085955124
VID
2004-05-31 02:12
2004.08.01
Точное определение момента, когда можно отправлять текст в сокет





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский