未设置前效果,没有居中
居中代码
procedure TForm1.Stringgrid1DrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
begin
...……
var Qry:TAdoQuery; singleRecord,Response:string; begin Context.Response:='获取合约列表返回数据!'; Qry:=TAdoQuery.Create(nil); try try Qry.Connection:=Conte ...……
主窗体FormShow事件(主窗体为Form1为例,Form2为登陆窗体)
procedure TForm1.FormShow(Sender: TObject);
begin
if Form2.ShowModal=mrOk then
begin
Form2.Close;
end
else
Application.Termin ...……
improve the one found on http://www.emacswiki.org/emacs/DelphiMode
1. support 'record', 'class' and 'interface' as level 1 menu
2. methods show as submenu of class
3. correctly jump to the impl. ...……