Window(Janela no pascal para formulário)

[adriano_paes]

Olá pessoal!

To com problema com window....to tentando criar um campo para digitar dentro de uma window..na frente dessa window vai escrito o q é pra ser digitado...

Até conseguir fazer, mas não consigo colocar readln(nom); dentro da window....vou postar no imageshack pra que intendam melhor o q to querendo fazer....ai posto o codigo também...

http://img14.imageshack.us/my.php?image=56531271.jpg

http://img14.imageshack.us/my.php?image=92438449.jpg

[Simon Viegas]

Olá pessoal!

To com problema com window....to tentando criar um campo para digitar dentro de uma window..na frente dessa window vai escrito o q é pra ser digitado...

Até conseguir fazer, mas não consigo colocar readln(nom); dentro da window....vou postar no imageshack pra que intendam melhor o q to querendo fazer....ai posto o codigo também...

http://img14.imageshack.us/my.php?image=56531271.jpg

http://img14.imageshack.us/my.php?image=92438449.jpg

Olá,

De antemão achei muito interessante essa ideia de colocar "screens", mas você só esqueceu de colocar o código, também, no post. (eu tive que digitar, já que precisei fazer testes - window de cabeça ia da muito trabalho, rs)

Eu corrigir seu código e coloquei alguns comentários:

PROGRAM Janela;
USES
  CRT;
VAR
  nom :string;
BEGIN
textbackground(white);
clrscr;
window(2,2,79,24);
textbackground(black);
clrscr;
writeln;
gotoXY(2,3);
textcolor(white); {adicionei para determinar a cor padrão inicial}
writeln('Digite seu nome:');
window(20,4,70,4);
textbackground(white);
textcolor(black); {diferenciar da cor do fundo (que tb é branca}
clrscr;
readln(nom); {faltou você ler o 'nom'}
END.

O que estava ocorrendo era que a cor do texto era igual a cor do fundo!!! E você esqueceu de "ler" o "nom":D

(Não sei se eu deveria postar o código ou simplemente informar: "a cor do texto está igual a cor do fundo", se for me avisem que edito )

Abraços