Hola,tengo este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Transfor;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
X, Y, DX, DY: Integer;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
begin
WindowState := wsMaximized;
Timer1.Interval := 150;
Randomize;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
X := Random(Screen.Width - 400);
Y := Random(Screen.Height - 400);
DX := Random(400);
DY := Random(400);
Canvas.Font.Color := Random(65535);
Canvas.Font.Size := Random(25);
Canvas.TextOut(X + DX,Y + DY,'¡Antonio!');
end;
end.
Un amigo,me ha pasado un proyecto donde,al ejecutar la aplicacion,genera
las palabras de manera aleatorio en el Form.El Color del Form,es negro y ocupa toda la ventana.Creo que no es sólo por la propiedad WindowState:=wsMaximized,sino por alguna otra propiedad del Form,que no logro sacar.Para mi proyecto ten un Form,que le he puesto un TImage,que
está puesta a alClient.El Form no tapa la barra de herramientas,que es lo que quiero conseguir.He probado con alguna funcion que me oculta la barra,pero deja el hueco de la barra,y el Form no tapa ese hueco.
¿Sabéis de alguna propiedad del Form que resuelva mi problema?
Saludos.