送斑竹上路，撒钱啦，呵呵

Question

try
  ShowMessage('ihihonline快逃吧！你犯法了，知道吗;');
  ShowMessage('你居然说伟大祖国的首都是地狱。要坐牢的(不过她会给你送饭)');
  try
    看看大家的反映；
  except
    踢ihihonline一脚;
  end;
finally
  ShowMessage('开玩笑');
end;

Answer 1

{$Message '到了那儿别忘记了俺啊'}
...
beign
  try
    DataBase.StartTransaction;
    //来吧，放松一下，让一天的疲累都走远一些
    try
      ApplyUpDates;
      //大家帮帮忙啦，不让就要被踢了啊
      DataBase.Commit;
    except
      DataBase.Rollback;
      //惨定了
    end;
    ...
    CommitUpdates;  
  finally
    //谢谢他对我们的帮助，呵呵
  end;
end;

Answer 2

来来来，再来一贴，关注有分的；
如何在EDIT中使用右对齐？ -----------------------------------------
继承TEdit，重载CreateParams，修改Param即可。
procedure TEdit_Ex.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if self.FTextOnRight then Params.Style:=Params.Style or ES_RIGHT;
end;

Answer 3

http://www.csdn.net/expert/topic/981/981111.xml?temp=.3632624
的答案如下：）
----------------------------
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then  //判断是否有焦点
   begin
    if ( Field.FieldName = DBComboBox1.DataField ) then
    begin
      DBComboBox1.Left := Rect.Left + DBGrid1.Left;//left;
      DBComboBox1.Top := Rect.Top + DBGrid1.top;//top
      DBComboBox1.Width := Rect.Right - Rect.Left;//Width
      DBComboBox1.Height := Rect.Bottom - Rect.Top;//Height(想一想就明白)
      DBComboBox1.Visible := True;//可视
    end;
  end;
end;procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
  //没有焦点，不可视
  begin
    DBComboBox1.Visible := false;
  end;           
end;procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key <> chr(9)) then//key 是否 = #13
  begin
    if (DBGrid1.SelectedField.FieldName=DBComboBox1.DataField) then
    begin//可以检索字段内容
      DBComboBox1.SetFocus;
      SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);//DBGrid/DBComboBox/Query关联
    end;
  end;
end;procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Table1.FieldByName('SIZE').AsInteger = 2 then//仅仅是一个例子罢了
  begin
    DBGrid1.Canvas.Font.Color:=clred;//字改色
    DBGrid1.Canvas.Brush.color:=clyellow;//底色
  end else
  begin
    DBGrid1.Canvas.Font.Color:=clblue;
    DBGrid1.Canvas.Brush.color:=clBtnFace;
  end;
  DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);//这一步不可少的，嘻嘻嘻嘻，俺不喜欢偷懒的； （让他画了！）
end;
------------------------------------
在不明白我没办法了
  

Answer 4

TO  blazingfire(烈焰) 伴水：我不入地狱，谁入地狱，哎；他也是没有办法啊：）

Answer 5

回复人： scu96124678(绿林侠) (  ) 信誉：100  2002-08-29 19:29:00  得分:0   
  别自宫就好，呵呵
 
 回复人： yangguo_god(杨过) (  ) 信誉：100  2002-08-29 18:52:00  得分:0  
  进宫侍侯太后吗？-----------------------------------------------
好像有点变味，惨啦 
  

Answer 6

http://www.csdn.net/expert/topic/981/981107.xml?temp=.218899
答案如下：
  用特殊符号就可以了啊：）
  呵呵，不信试一试

Answer 7

http://www.csdn.net/expert/topic/981/981107.xml?temp=.218899
答案如下：
  用特殊符号就可以了啊：）
  呵呵，不信试一试

Answer 8

http://www.csdn.net/expert/topic/981/981115.xml?temp=.14526
答案如下：
你只需要将这个表再给一个别名就可以了，而且，应该将字段以as另一个新字段就可以了；

Answer 9

谢谢ihihonline(小小-&gt;不要再流浪！！) , 已经给分了

Answer 10

TO hansonboy(良) 
我希望你是来送伴水的，呵呵：）
很长时间没有回答问题啦；

Answer 11

http://www.csdn.net/expert/topic/963/963584.xml?temp=.3620111
问题：
在设计期设计form的Font//这是最重的，统一是最好的办法
调整窗体的Font属性!其它控件的ParentFont全为TRUE!
窗口合理排版,控件合理摆放,设置好和父控件的关系!
必要的时候也可以在OnResize事件中写代码!//这个就不用了，呵呵，你没有那么多的时间的；

Answer 12

TO  ilang(中雨) 
您老贵根？呵呵，开心就好嘛

Answer 13

TO:  ihihonline (小小-&gt;不要再流浪！！)  
贸昧地问一声:你就是zswang(伴水)(准备去流浪)吧?

Answer 14

TO blazingfire(烈焰) 
这个问题，你只有去问zswang(伴水)(准备去流浪)了，我可没有那个本事啊，呵呵

Answer 15

DJ_KK(蓝色代码) (  ) 
    我知道：
     欲练神功，必先挥刀自宫嘛！
     挥刀自宫必定成功嘛........................
     小弟祝你好运，走好！
---------------------------
不错，不错，你可以练神功了，呵呵
 

Answer 16

TO  lance09(lance.&Scott) 
俺不想让他踢俺啊，老天；