چه جوری با اینتر میتونیم بریم dbeditبعدی؟

[faty]

یکی به من بگه چه جوری با اینتر میتونیم بریم dbeditبعدی؟
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then
begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
از این کد هم استفاده کردم ولی ارور می ده :گیج:

[Ali Najafian]

در فرم کنترل ها را به ترتیب قرار دادی؟

[mkalone]

باید برروی رویداد onkeydown برنامه نویسی کنی مشکل ات اینجاست:

<span dir=ltr>
procedure TPersonelAdd2Form.DBComboBox1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key=VK_Return then
PostMessage(Handle,WM_NEXTDLGCTL,0,0);
end;
</span>

[Ali Najafian]

:thnx: