遍历即可实现,下列代码仅供参考: var i: integer; T: OleVariant; begin T := WebBrowser1.Document; do begin if T.all.item(i).tagName = 'INPUT' then begin if T.all.item(i).type = 'submit' then begin T.all.item(i).click; Exit; end; end; end; end; http://blog.csdn.net/ya
//参考如下代码--uses Clipbrd; function StringGridSelectText(mStringGrid: TStringGrid): string;var I, J: Integer; S: string;begin Result := ''; if not Assigned(mStringGrid) then Exit; for J := mStringGrid.Selection.Top to mStringGrid.Selection.Bottom d
procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with Sender as TStringGrid do begin Canvas.FillRect(Rect); DrawText(Canvas.Handle, Pchar(Cells[ACol, ARow]), Length(Cells[ACol, ARow