Events ten events çağırma

[Uğur1982]

merhaba arkadaşlar;

Olayım; DBGrid 'in DblClick olayından DBGrid1KeyDown olayının çağırılması; oluyor fakat aşağıdaki // if (key=vk_return) then //
le başlayan kodun da çalışması gerekli. vk_return paremetresini gönderemiyorum.

Kod: Tümünü seç

procedure Tpencere.DBGrid1DblClick(Sender: TObject);
begin
 DBGrid1.OnKeyDown(sender,Default8087CW,KeysToShiftState(VK_RETURN));
end;

Kod: Tümünü seç

procedure Tpencere.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
  begin
  if (key=vk_return) then
  begin
     Edit1.Text :=IBQuery1.FieldByName(d1).Asstring;
     Edit2.Text :=IBQuery1.FieldByName(d2).Asstring;
     Edit3.SetFocus;
   end;
end;

Teşekkür ederim..

[vedatkaba]

Kod: Tümünü seç

if key(vk_return) then

yerine

Kod: Tümünü seç

if (key=#13) then

kullansan olurmu acaba

[aslangeri]

S.A.

Kod: Tümünü seç

DBGrid1.OnKeyDown(sender, vk_return,KeysToShiftState(VK_RETURN)); 

shiftstate parametresi için bişey diyemiyorum ama eğer vk_return çalışmazsa ord(#13) gibi bişey de olabilir.
Kolay gelsin.

[husonet]

merhaba arkadaşlar;

Olayım; DBGrid 'in DblClick olayından DBGrid1KeyDown olayının çağırılması; oluyor fakat aşağıdaki // if (key=vk_return) then //
le başlayan kodun da çalışması gerekli. vk_return paremetresini gönderemiyorum.

Kod: Tümünü seç

procedure Tpencere.DBGrid1DblClick(Sender: TObject);
begin
 DBGrid1.OnKeyDown(sender,Default8087CW,KeysToShiftState(VK_RETURN));
end;

Kod: Tümünü seç

procedure Tpencere.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (key=vk_return) then
  begin
     Edit1.Text :=IBQuery1.FieldByName(d1).Asstring;
     Edit2.Text :=IBQuery1.FieldByName(d2).Asstring;
     Edit3.SetFocus;
   end;
end;

Teşekkür ederim..

Kod: Tümünü seç

procedure Tpencere.DBGrid1DblClick(Sender: TObject);
var
    Key:   Word;
    Shift: TShiftState;
begin
    Key   := VK_RETURN;
    Shift := [ssCtrl];
    
    DBGrid1.OnKeyDown(sender, key, shift);
end;

Denemedim ama çalışması lazım.

Kolay Gelsin...

[Uğur1982]

merhaba;
ilginiz için sağolun arkadaşlar.Hüseyin hocam sağolun işlem tamamdır:)

teşekkür ederim