Главная страница
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.048 c
14-1107854809
Beginner_
2005-02-08 12:26
2005.02.27
А где в XP находится File Manager ?


6-1102802976
Opilki_Inside
2004-12-12 01:09
2005.02.27
Как узнать на что ссылается банер, оснаванный на Флэше (swf)


1-1108324327
mr-jack
2005-02-13 22:52
2005.02.27
события и всё такое


1-1108412128
Jeson
2005-02-14 23:15
2005.02.27
Помощь с созданием собственного расширения для проги


1-1108234722
mmms
2005-02-12 21:58
2005.02.27
Здравствуйте! Подскажите плз, как пробежаться по ListView