很急，几个很现实的小问题（大家都会遇到），摆脱大家了！(100分)

1.进度条（ProgressBar1）问题：
能随着增加而改变颜色（80%以前是黑色，以后是红色）和增加百分比的值吗？
2.QuickRep1控件问题：
在预览时，自动是QRPreview1.ZoomToWeight,我想直接是 QRPreview1.zoom = 100%,
F_Print.QuickRep1.Zoom := 100% ;
F_Print.QuickRep1.Preview;
F_Print.QuickRep1.Zoom := 100% ;
加前加后但都没有效果！为什么？？？
另外，PreviewModeless，PreviewModal两个属性可以改吗？
3.StringGrid问题：
能否进入时，直接进入编辑某个单元格，不是选中某个单元格，而是可以直接录
入（即双击单元格的效果）。
是否可以动态修改某几行几列的颜色。
能否把单元个的形状变成3D形式，即和 StringGrid1.FixedCols:= 2的标题效果一样。
4.ExcelApplication1问题：
当ExcelApplication1.Connect;并产生新的Excel以后.是否有能判断是否为连接和不连接着Excel.。
当用户手工关闭由ExcelApplication1新打开的Excel，和系统自动关闭由ExcelApplication1
新打开的Excel。如果每次都
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
浪费资源，也使系统很慢。能否判断当用户手工关闭由ExcelApplication1新打开的Excel
不在使用了ExcelApplication1.Quit;。不要告诉我用
{H := FindWindow('excel', nil); //找到对应句柄
if H <> 0 then
begin
SendMessage(H, WM_CLOSE, 0, 0); //发送消息
GetWindowThreadProcessId(H,@P);
if P<>0 then
TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
end ;
这样有问题。
注意：判断是否由ExcelApplication1新打开的Excel和用户直接打开office excel的
问题的不同。

1 用贴图的方法； % 加透明标签


3 goAlwaysshowEditor = true
OnDrawCall 中自己处理


4

获得进程列表，并终止 Excel 进程
procedure TForm1.Button1Click(Sender: TObject);
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
Ret : BOOL;
ProcessID : integer;
s:string;
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
Ret:=Process32First(FSnapshotHandle,FProcessEntry32);
Memo1.clear;
while Ret do
begin
Memo1.lines.add(FProcessEntry32.szExeFile);
s:=ExtractFileName(FProcessEntry32.szExeFile);
if s='EXCEL.EXE' then
begin
ProcessID:=FProcessEntry32.th32ProcessID;
TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,ProcessID),1);
s:='';
end;
Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;

1.Sample页面有一个Gauge ，不知道是不是你要的。（D5）
2.不知道。
3.可以用EasyGRID
4.用jsxjd, 的方法试试。

我来拿分了，顺便答一下
1、你用第三方控件行不行！到80时改变Color属性可以了！
2、 F_Print.QuickRep1.Zoom := 100 ;
F_Print.QuickRep1.Preview;
F_Print.QuickRep1.Zoom := 100;
试试

1.用panel和image自己作一个吧,想加什么效果都行.
3.是否可以动态修改某几行几列的颜色。//当然能拉,自己在onXXdraw中处理
能否把单元个的形状变成3D形式，即和 StringGrid1.FixedCols:= 2的标题效果一样。
//当然也能拉,从TStringGrid下继承一个新类,
type
TNesStringGrid=class(TStringGrid)
end;
然后用TNesStringGrid(StringGrid1)的什么属性还是method的,就行了.
我做过,但想不起来了

多人接受答案了。