if (gdSelected in state) then DBGrid1.Canvas.Brush.Color := clred; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
顺便问一下,怎么打开E-mail的超链接啊 这样做怎么不行呢?? if trim(Mailedit.Text)<>'' then Shellexecute(handle,nil,pchar(Mailedit.Text),nil,nil,sw_shownormal);
if trim(Mailedit.Text)<>'' then Shellexecute(handle,'Open',pchar(Mailedit.Text),nil,nil,sw_shownormal);//改成Open
DrawColumnCell { if (gdSelected in state or gdFocused in state ) then DBGrid1.Canvas.Brush.Color := clred; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); }
TO insert2003(高级打字员)你说的不行啊,还是打不开的
应该这样 if trim(Mailedit.Text)<>'' then Shellexecute(handle,nil,pchar('mailto:'+Mailedit.Text),nil,nil,sw_shownormal);
DBGrid1.Canvas.Brush.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
这样做怎么不行呢??
if trim(Mailedit.Text)<>'' then
Shellexecute(handle,nil,pchar(Mailedit.Text),nil,nil,sw_shownormal);
Shellexecute(handle,'Open',pchar(Mailedit.Text),nil,nil,sw_shownormal);//改成Open
{
if (gdSelected in state or gdFocused in state ) then
DBGrid1.Canvas.Brush.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
}
if trim(Mailedit.Text)<>'' then
Shellexecute(handle,nil,pchar('mailto:'+Mailedit.Text),nil,nil,sw_shownormal);