主要是这句ModeIndicator.Caption :=
Format('[%S: %S]', [Dataset.Name, DatasetStates[State]]);modeindicator是什么组件阿format函数的作用又是干什么的阿procedure TEdOrderForm.ActiveSourceStateChange(Sender: TObject);
begin
with ActiveSource do
begin
if Dataset <> nil then ModeIndicator.Caption :=
Format('[%S: %S]', [Dataset.Name, DatasetStates[State]]);
if State in [dsEdit, dsInsert] then
begin
HelpContext := HelpTopicEdit;
ModeIndicator.Font.Color := clRed;
end
else
begin
HelpContext := HelpTopicBrowse;
ModeIndicator.Font.Color := clBlue;
end;
end;
end;
Format('[%S: %S]', [Dataset.Name, DatasetStates[State]]);modeindicator是什么组件阿format函数的作用又是干什么的阿procedure TEdOrderForm.ActiveSourceStateChange(Sender: TObject);
begin
with ActiveSource do
begin
if Dataset <> nil then ModeIndicator.Caption :=
Format('[%S: %S]', [Dataset.Name, DatasetStates[State]]);
if State in [dsEdit, dsInsert] then
begin
HelpContext := HelpTopicEdit;
ModeIndicator.Font.Color := clRed;
end
else
begin
HelpContext := HelpTopicBrowse;
ModeIndicator.Font.Color := clBlue;
end;
end;
end;
解决方案 »
- 请各位前辈看看我这段DLL远程注入哪出了问题
- 关于使用D7 TSimpleDataSet连接MYSQL,有Datetime类型字段的问题
- 有请 halfdream(哈欠) 帮忙。
- 請問關於ADOQuery的用法?
- 关于窗体的ShowModal和Show的问题.
- 参数定义问题
- 一个有关提取图标的问题!(莫非 ExtractAssociatedIcon() 函数有问题? )
- ShellExecute 为何失效?
- 各位大侠。。。。有没有人知道怎么在Oracle数据库中控制每次用Select语句去记录只取一条
- 调用储存过程时给过程中参数赋值的问题?
- 怎么让form的Scrollbar支持鼠标的滚轴啊?
- 如何防止一启动主窗口同时启动两个窗口
如上面的Format句作用就相当于:
ModeIndicator.Caption :=
'[' + Dataset.Name + ': ' + DatasetStates[State] +']';modeindicator是什么我也不知道,哈哈!
formot()似乎是个格式输出函数
'[%S: %S]' 定义输出格式,%S大概表示将后面对应的参数以字符串的格式输出
这里有两个%S,表示后面跟两个参数。