Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. Program icinden herhangi bir tusa basildiginda tab-tusuna basilmis gibi davranmasi
PROCEDURE TabByKey(TabKey,Key:CHAR;FormHandle:THandle);
BEGIN
IF TabKey=Key THEN SendMessage(FormHandle,WM_NEXTDLGCTL,0,0);
END;
(*Örnek bir Formularin KeyPress-Olayinda kullanilabilir
TabByKey(#13,Key,Handle);
*)