Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Programa en Delphi Ayuda!!!!para locos de la programacion!!! (https://www.clubdelphi.com/foros/showthread.php?t=63285)

gCrazy 06-02-2009 22:20:06

Programa en Delphi Ayuda!!!!para locos de la programacion!!!
 
Bueno sin mucho explico: necesito crear una aplicación en Delphi para almacenar alrededor de 1000 caracteres ingresados con el teclado, luego enviarlos a un editor de texto creado en delphi que testea la velocidad de escritura con el teclado , este editor no me permite pegar nada alli, la unica manera de ingresar caracteres es a traves del teclado.
Estuve probando con un poco de codigo, lamentablemente recien me inicio en delphi asi que estoy perdido en la neblina, pero hasta ahora lo que pude hacer es crear un array de 1000 elementos tipo char leo el teclado con la funcion key y luego leo el array utilizo la fucion sendmessage para enviarla al notepad y desgrasiadamente solo envio la ultima palabra escrita y nada mas, tengo varias dudas pero Agradecere Infinitamente a quien me pudiera dar al menos unos consejos.

Saludos Delphianos !

cmm07 07-02-2009 00:13:56

Hola, bienvenido al mundo delphi!, pues que bueno que te decidiste por delphi y no otro lenguaje, no te arrepetiras, bueno, te daré u consejillo, si estas recien inicializandote, no te recomiendo que te propongas a hacer esto que no es tan sencillo, para hacer eso requiere algo de experiencia, y pues si yo estauviera iniciandome en delphi empezaría de apoco...con algo mucho más sencillo

54LU2

cHackAll 07-02-2009 16:36:03

Código Delphi [-]
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 PostMessage(FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil), WM_KEYDOWN, Key, 0);
end;

Simple, Avanzado

PD; Apoyo lo dicho por cmm07

Suerte

gCrazy 08-02-2009 15:01:49

Seguro que diste en la tecla pero me decidi a empezar dando tropiezos asi somos nosotros no? Gracias y Saludos cmm07.

gCrazy 08-02-2009 15:07:49

Cita:

Empezado por cHackAll (Mensaje 337408)
Código Delphi [-]procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
PostMessage(FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil), WM_KEYDOWN, Key, 0);
end;




Simple, Avanzado

PD; Apoyo lo dicho por cmm07

Suerte

A por la prueba!!! cuando tenga los resultados te estare avisando chackall Gracias!!!!!


La franja horaria es GMT +2. Ahora son las 16:20:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi