Tatata, bei dem FormActivate hatte ich von Anfang an ein ungutes Gefühl. Das muss weg und folgendermassen ersetzt werden :
Delphi-Quellcode:
procedure TForm2.MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var st : string;
begin
st := (Sender as TPanel).Caption;
NrAusgew := Copy (st,1,5);
Form1.EingabeVorh(NrAusgew);
Form1.BringToFront;
end;
In Form1 muss dazu diese Public Procedure gebaut werden :
Delphi-Quellcode:
procedure TForm1.EingabeVorh(NrAusgew: string);
var ch : Char;
begin
sg1.Cells [sg1.Col,sg1.Row] := NrAusgew;
ch := chr (VK_RETURN);
sg1KeyPress(nil,ch);// Return autom. ausführ.
end;
Im Ansatz war meine Idee also in die richtige Richtung gegangen. Letztenendes war aber das FormActivate doch die falsche Stelle.