Consola cualquier zona

[delphi.com.ar]

Yo tengo hecha esta funcioncita con ese propósito:

procedure GotoXY(ACoord: TCoord); overload;
var
 Handle: THandle;
begin
 Handle := GetStdHandle(STD_OUTPUT_HANDLE);

 SetConsoleCursorPosition(Handle, ACoord);
end;

procedure GotoXY(x, y: SHORT); overload;
var
 ACoord: TCoord;
begin
 ACoord.X := x;
 ACoord.Y := y;
 GotoXY(ACoord);
end;

Saludos!

[yusnerqui]

Muchísimas gracias por la rápida respuesta y la solución

a propócito me pudieras decir como poner las citas debajo del mensage.
Recuerda que soi nuevo en el foro y no debo crear un hilo para preguntar esa tontería o todos me pondrán antes de la respuesta un y yo me pondría .

Bueno perdona la charla y si puedes sácame de esa duda

Gracias y saludos

Yusnerqui

[delphi.com.ar]

Si te refieres a la firma, la tienes en la configuración personal. Tienes que hacer click en "Panel de control" \ "Editar Firma"

Saludos!

[yusnerqui]

Grcias de nuevo

un saludo

Yusnerqui

[linuxfresh]

En esta pagina he encontrado una unidad llamada console, similar a la crt de Turbo Pascal (clrscr, gotoxy, textcolor, etc). La he probado en l nuevo Turbo Delphi y no me ha dado problemas.

http://rvelthuis.de/programs/console.html

Avisen si les sirvio.