Then is very easy: Control := Screen.ActiveControl; if (Control is TCustomEdit) then TCustomEdit(Control).SelText := SomeVariable;
-----Mensaje original----- De: 12 12 [mailto:[EMAIL PROTECTED] Enviado el: Jueves, 01 de Noviembre de 2007 08:43 a.m. Para: [email protected] Asunto: RE: [lazarus] Emulate keyboard input like Windows "Screen Keyboard" * Sergio Samayoa <[EMAIL PROTECTED]> [Thu, 1 Nov 2007 08:14:12 -0600]: > Do you have access to Form1 instance? > > Ex: > > Unit unit2; > ... > > Type > Form2 = class(TForm) > ... > End; > > Implementation > Uses unit1; > ... > > Procedure ... > Begin > ... > Form1.Edit1.SelText := SomeVariable; > ... > End; Yes, i have access to Form1 instance. But i want to write universal "Screen keyboard" unit for use with touch-panel monitor. This unit should be possible to enter digits and letters not only to Form1.Edit, but also to Form1.Memo1 in certain cursor position. _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
