两个问题，每个20分，简单轻松，好拿！

Question

一。请问activex的shockwaveflash控件怎么用？
   我只是想在窗体上显示一个flash而已。二。为什么Tedit的颜色不能自定义？
    用自定义颜色时在设计状态能够显示所定义的颜色，而编译运行时却只能显示白色？
    在同一个窗体里还有几个combobox定义了颜色以后，运行时却能正常显示？

Answer 1

1.
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = '' then
Exit
else
ShockwaveFlash1.Movie:=edit1.Text;
ShockwaveFlash1.Play;
Timer1.Enabled :=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Stop;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
pro.Max:=  ShockwaveFlash1.TotalFrames ;
pro.Position :=ShockwaveFlash1.CurrentFrame;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled :=false;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text :=OpenDialog1.FileName;
end;end.

Answer 2

2.
你把enabled:= true; font.color := 你想要的颜色
同时readonly := true;就达到你的要求了

Answer 3

2.Edit1.Color:= clInfoBk;//任意

Answer 4

2.Edit1.font.Color:= clInfoBk;//任意