اتفاق نیافتادن OnExit در حرکت به سمت عقب

[hadi55]

سلام دوستان
چکار کنم که وقتی با کلیدهای Shift+tab به عقب بر میگردیم رویداد OnExit اتفاق نیوفتد . (در واقع میخوام کد داخل این رویداد انجام نشه.)

[Hamid_PaK]

می تونی واضح تر منظورتو بیان کنی ؟؟ :گیج: :گیج:

[hadi55]

می تونی واضح تر منظورتو بیان کنی ؟؟ :گیج: :گیج:
فرض کن توی یه فرم چند تا کامپوننت edit داشته باشیم که توی رویداد OnExit هر کدوم یه کدی نوشته باشیم حالا من میخوام وقتی با زدن کلید Shift + tab به سمت عقب حرکت میکنم رویداد OnExit اتفاق نیوفته یا حداقل توی این رویداده شرطی بذارم که بفهمه فوکوس به سمت عقب داره حرکت میکنه .

[Touska]

چرا من امتحان کردم جواب می ده.

مشکل برنامه از جای دیگه هست.

:موفق:

[hadi55]

چرا من امتحان کردم جواب می ده.

مشکل برنامه از جای دیگه هست.

:موفق:

ببخشید چی جواب میده

[maryam.ili]

باید رویداد ان را nil کنی

[Touska]

یعنی وقتی به عقب می ری کدی که در oNexit هست کار خودشو انجام می ده.

:موفق:

[Hamid_PaK]

من یه چیزی نوشتم ولی فکر نکنم زیاد بدردت بخوره اشکالش اینه که وقتی کلید Shift رو میگیری دیگه کار نمی کنه !!!
::




procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (GetKeyState(VK_SHIFT) < -100) then
aBack := True;
end;


procedure TForm1.Button5Exit(Sender: TObject);
begin
if aBack then begin
Caption := 'Backing . . .';
aBack := False;
end else begin
Caption := 'Go Away . . .';
end;
end;

private
...................
aBack:Boolean;
...................
end;


موفق باشی :)