一。请问activex的shockwaveflash控件怎么用?
我只是想在窗体上显示一个flash而已。二。为什么Tedit的颜色不能自定义?
用自定义颜色时在设计状态能够显示所定义的颜色,而编译运行时却只能显示白色?
在同一个窗体里还有几个combobox定义了颜色以后,运行时却能正常显示?
我只是想在窗体上显示一个flash而已。二。为什么Tedit的颜色不能自定义?
用自定义颜色时在设计状态能够显示所定义的颜色,而编译运行时却只能显示白色?
在同一个窗体里还有几个combobox定义了颜色以后,运行时却能正常显示?
解决方案 »
- delphi制作的程序在左面右下角弹出提示
- delphi中如何将DBgrid中显示的从SQL sever数据库中查询到的数据导入EXCEL(可以导入到TXT文本中吗 ?)中
- 如何实现登录错误三次关闭系统,正确才显示主窗体
- 请教一个关于TList的问题~也不知道是什么问题,还请大家帮忙看看,小弟先感谢先
- delphi截图的问题
- 保证全给分!如果解决!刚找到工作,遇到难题关于Dbgrideh,解决不了,可能要走人!
- 请教一下,多多帮忙!
- VC调用delphi的DLL的问题
- 我在建立一個項目組,且保存為Projectgroup1後,在打開為什麼會變化呢?
- preject里的问题,急!急!急!
- 自动触发程序怎么做,请高手指点。急!!!!
- 请教报表的问题?
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.
你把enabled:= true; font.color := 你想要的颜色
同时readonly := true;就达到你的要求了