Re: making a form transparent

Heinrich Wolf wrote: 
Hi,

set the form's BorderStyle to bsNone
and in it's create event set it's Brush.Style to bsClear.
Put a label on the form and set it's transparent property to true.

Regards
Heiner


Yes that works great, I can flash a message on the screen anywhere I like, but I am having trouble clearing it again, I have two timers running, one to put the message on the screen after a certain time, which also starts timer2 going to count down how long to leave it on screen. but when I have to erase the message it stays there, I cant even set the label1 caption to '';

here is the timers code

procedure TForm1.Timer1Timer(Sender: TObject);
begin
/ timer1 is set to 5 secs

max:=50;  /max time to display in milliseconds
count:=0; /just a counter to count the milliseconds

timer2.Enabled:=true;       /turn on timer2
timer1.Enabled:=false;      /turn off timer1
label1.Caption:='hi there'; /set the message to be displayed


end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin

/ timer2 is set to 1 millisecond

count:=count+1;  /increment the counter
if count>=max then  /has it reached 50?

begin
label1.Caption:=' ';  /clear the message

timer2.Enabled:=false; /turn timer2 off
timer1.Enabled:=true;  /turn timer1 back on for the next five secounds
end;



What I am trying to do is make an application that will put subliminal messages on the screen


Help please


Anthony
.