Autor Beitrag
D. Annies
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 1843

windows 7
D6 Enterprise, D7 Pers und TD 2006
BeitragVerfasst: Mo 06.12.04 22:45 
Hi, Delpher!

Ich habe eine Prc stringgridselectCell(..).
Desweiteren eine Prc mouse9click(..).
In der globalen Variablen DBgridToSGgrid ist der Zelleninhalt aus
Einer DBGridzelle gespeichert.

Gibt es eine Möglichkeit, die 1.Proc so in die zweite einzubinden,
dass ich zum Eintragen in das SGgrid direkt einen MouseRightClick machen kann,
ohne vorher die SGzelle erst auswählen zu müssen?

Code:
[delphi]

procedure TForm1.StringGrid9SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
begin edit16.text := inttostr(row); edit17.text := inttostr(col-2); end;


procedure tform1.mouse9click(sender:tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
//var tf : boolean;
begin
//Stringgrid9selectcell(self,strtoint(edit17.text)+2,strtoint(edit16.text),tf);
if ssright in shift then
stringgrid9.cells[strtoint(edit17.text)+2,strtoint(edit16.text)] := DBgridToSGgrid;
end;