Ecco un esempio che, vi ricordo, é in free-pascal, quindi non userò from, LCL, o niente che sia delphi.
Program esempiofinestre;
Uses crt;
Begin
clrscr;
Window(1,1,1365,140); {sostituire 1365 con il primo numero di risoluzione del vostro schermo}
{Anche se ho aperto questa finestra, ce sempre quella aperta automaticamente}
Writeln('Questo dovrebbe comparire nella finestra in alto, stretta e lunga');
Delay(10000);
end.
Il problema e che se continuo a scrivere output, lo faccio nella finestra stretta e lunga.
E invece vorrei cambiare e scrivere nella finestra più larga più corta e più centrale. Come faccio?
Prova questo codice, dimmi se fa al caso tuo.
Program esempiofinestre;
Uses crt;
Begin
clrscr;
writeln('prova');
Window(30,10,50,20); {sostituire 1365 con il primo numero di risoluzione del vostro schermo}
TextAttr:= Black shl 4 + yellow;
{Anche se ho aperto questa finestra, ce sempre quella aperta automaticamente}
Writeln('Questo dovrebbe comparire nella finestra in alto, stretta e lunga');
readkey();
Window(1,1,29,9); {sostituire 1365 con il primo numero di risoluzione del vostro schermo}
clrscr;
{Anche se ho aperto questa finestra, ce sempre quella aperta automaticamente}
Writeln('io');
readkey();
Window(30,10,50,20); {sostituire 1365 con il primo numero di risoluzione del vostro schermo}
clrscr;
TextAttr:= Black shl 4 + white;
{Anche se ho aperto questa finestra, ce sempre quella aperta automaticamente}
Writeln('penso possa andare');
readkey();
Window(1,1,50,20);
clrscr;
end.