sEdit1 –> sDbGrid1 = SetFocus sDbGrid1 OK :a3:
Code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key = vk_up) or (key = vk_down)) then
begin
sDBGrid1.SetFocus;
end;
end;
sComboEdit1 –> sDbGrid1 = No SetFocus sDbGrid1 :cs:
sEdit1 –> sComboEdit1 = SetFocus sComboEdit1 OK :a3:
sComboEdit1 –> sEdit1 = No SetFocus sEdit1 :cs:
Code:
procedure TForm1.sComboEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key = vk_up) or (key = vk_down)) then
begin
sEdit1.SetFocus;
end;
end;
Problème SetFocus TsComboEdit 😛