Главная страница
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.48 MB
Время: 0.036 c
1-1108538265
rezo
2005-02-16 10:17
2005.02.27
Остановка службы


9-1101067334
некто
2004-11-21 23:02
2005.02.27
Солнце


14-1107701261
DeadMeat
2005-02-06 17:47
2005.02.27
А че это было та?


3-1107081137
ГС ТОФ
2005-01-30 13:32
2005.02.27
поиск в база


14-1107388638
DNS
2005-02-03 02:57
2005.02.27
Чe c RSDN.RU ?????????????????????