Главная страница
    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
6-1103612709
VAleksey
2004-12-21 10:05
2005.02.27
WinInet. Проблемы с HttpSendRequest.


14-1107944962
AlexG
2005-02-09 13:29
2005.02.27
Проблема с кодировкой при записи в БД из PHP


6-1103190321
Alexey K
2004-12-16 12:45
2005.02.27
Управление сотовым телефоном


1-1108013410
Atrion
2005-02-10 08:30
2005.02.27
RegKey.ReadBinaryData нужно Binary в String


1-1107963572
Chajnik
2005-02-09 18:39
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский