Mega Code Archive

 

Categories / Delphi / Examples

 

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); *)