Форум: "Основная";
Текущий архив: 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.47 MB
Время: 0.042 c
