In Grid-Zelle an Cursor-Position was einfügen

[Bummi]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
       // Celltext setzen
       g.Cells[g.Col,g.row] := 'Test'
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    // Celltext markierten Text ersetzen (Speedbutton um Focus nicht zu verlieren)
    if (g.ControlCount>0) and (g.Controls[0] is TwinControl) then
         begin
         TEdit(g.Controls[0]).seltext := 'Test';
         {
         Clipboard.SetTextBuf('Test');
         sendmessage(TWinControl(g.Controls[0]).handle,wm_paste,0,0);
         }
         end;

end;