[Gregory.P]

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 😛

[Gregory.P]

Exemple :

Code:

procedure TForm1.sComboEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_up) then
begin
ADOTable1.Prior;
sComboEdit1.Text := ADOTable1.FieldByName('Champ').Text;
end;

if (key = vk_down) then
begin
ADOTable1.Next;
sComboEdit1.Text := ADOTable1.FieldByName('Champ').Text;
end;

if Key = Vk_Return then
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Champ').Text := sComboEdit1.Text;
ADOTable1.Post;
end;
end;

[Gregory.P]

thank you

[Gregory.P]

thank you

[Gregory.P]

'Gregory.P' wrote:

AlphaControls v11.18

Bug TPageControl TTabSheet ImageIndex

sPageControl1 Images –> sAlphaImageList1 (2 Images)

sTabSheet1 [Click] List ImageIndex = 0 Image

[attachment=7945:Sans titre.png]

DataModule: (sSkinManager1 and DataModule) : List ImageIndex (TTabSheet, TsSpeedButton, TsImage, …) N/A

Form : (sSkinManager1 and Form) : List ImageIndex (TTabSheet, TsSpeedButton, TsImage, …) OK :a3:

Problem solved 😀

[Author]

Posts