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

Вниз

Что не так в DBGrid1KeyDown(DBGrid1,VK_RETURN,[]);?   Найти похожие ветки 

 
Denmin ©   (2005-02-11 08:36) [0]

Здравствуйте. Хочу сделать вот что. из процедуры, что ниже, хочу запустить то, что в процедуре DBGrid1KeyDown, но не получается. Ругается Types of actual and formal var parameters must be identical. А что такое не пойму. Может подскажете что не так?
procedure TForm18.DBGrid1DblClick(Sender: TObject);
begin
DBGrid1KeyDown(DBGrid1,VK_RETURN,[]);
end;
Заранее благодарен.


 
REP ©   (2005-02-11 08:41) [1]

DBGrid1KeyDown(Sender: TObject; var Key: Word;...


 
A_N_D ©   (2005-02-11 08:43) [2]

Нельзя вместо переменной передавать константу

procedure TForm18.DBGrid1DblClick(Sender: TObject);
var Key:word;
begin
 Key:=VK_RETURN;
 DBGrid1KeyDown(DBGrid1,Key,[]);
end;


 
Denmin ©   (2005-02-11 08:43) [3]

REP ©   (11.02.05 08:41) [1]
я это понимаю. ну неужели надо умничать, показывать то что я и сам вижу, а нельзя просто написать, что не так. я такое "перенаправление" использую всего лишь второй раз в жизни , и то в первый раз там был только sender.


 
begin...end ©   (2005-02-11 08:44) [4]

> Denmin ©   (11.02.05 8:36)

Посмотрите в спарвке на описание обработчика OnKeyDown:

type
 TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object
.

Т.е., константу VK_RETURN напрямую передать в него нельзя.

И если делать так, как делаете сейчас Вы, то тогда надо так:

procedure TForm18.DBGrid1DblClick(Sender: TObject);
var
 Key: Word;

begin
 Key := VK_RETURN;
 DBGrid1KeyDown(DBGrid1,Key,[]);
end.


Но всё же подумайте - может быть, можно улучшить ещё что-то?


 
Denmin ©   (2005-02-11 08:46) [5]

A_N_D ©   (11.02.05 08:43) [2]

все. спасибо большое.


 
Denmin ©   (2005-02-11 08:47) [6]

и begin...end ©   (11.02.05 08:44) [4]
спасибо. я только начинаю такие операции, может что и улучшу в будущем, а пока так поработаю.


 
begin...end ©   (2005-02-11 08:49) [7]

> Denmin ©   (11.02.05 8:43) [3]

> ну неужели надо умничать, показывать то что я и сам
> вижу, а нельзя просто написать, что не так.

А вот так разговаривать не надо. Вам в [1] дали совет - может быть, и не полностью разжёванный, но наводящий. И предоставили Вам возможность "поумничать" (т.е., подумать) самому.


 
Denmin ©   (2005-02-11 09:08) [8]

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



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

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

Наверх




Память: 0.46 MB
Время: 0.039 c
1-1108065572
redlord
2005-02-10 22:59
2005.02.27
Tcombobox и items


1-1108053707
Kolan
2005-02-10 19:41
2005.02.27
Как добвить строк в ValueListEditor


3-1106847154
Fedor
2005-01-27 20:32
2005.02.27
Подсчет количества записей в таблице


1-1107936598
Suvit_
2005-02-09 11:09
2005.02.27
Выравнивание ширины текста в RichEdit


10-1082127000
Koster
2004-04-16 18:50
2005.02.27
Передача массивом Ole объекту





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