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

Вниз

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

Наверх




Память: 0.46 MB
Время: 0.06 c
1-1108105435
Zloy
2005-02-11 10:03
2005.02.27
Удаление иконки с трея


14-1103997412
Piter
2004-12-25 20:56
2005.02.27
Оцените статью про прокси серверы


1-1108059375
baltazar
2005-02-10 21:16
2005.02.27
richedit


3-1106319091
SMT
2005-01-21 17:51
2005.02.27
Смысл отдельных элементов свойства TADOQuery.FieldDefs


1-1108027661
snake_r
2005-02-10 12:27
2005.02.27
сервис





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