Stringgrid-Cursor ?

[Hansa]

Irgendwas hat das goAlwaysShowEditor anscheinend schon mit der Sache zu tun. Man schaue sich aber mal das Projekt im Anhang an. Das mal laufen lassen und danach die showmessage-Zeile auskommentieren. Mir wärs Recht, ich hätte den Cursor und nicht die Umrandung. Aber ich kann ja wohl nicht solche Dummy-Showmessages einbauen, die keiner braucht.

[Keldorn]

ich bin mir nicht sicher, was mir das Demo sagen soll .
was für eine Umrandung meinst Du? Die Selektion, den Focusrahmen, ...?

[Hansa]

So wie es gepostet ist : Cursor. Kommentiere mal das showmessage aus : Rahmen. Wieso ?

[toms]

Zitat von Hansa:

So wie es gepostet ist : Cursor. Kommentiere mal das showmessage aus : Rahmen. Wieso ?

Wenn die Form nicht den Fokus besitzt, ist der Cursor nicht sichtbar. Dies ist der Fall, wenn ShowMessage herauskommentiert wird.

[Hansa]

Das Ganze ist schon etwas seltsam. Man sehe sich mal den neuen Anhang an. Im FormShow muss tatsächlich explizit SetFocus aufgerufen werden, damit der Cursor erscheint, obwohl die Form ja eigentlich schon den Focus hat. Aber egal.

Wenn man jetzt auf der Form rechts den Button anklickt und dann oben auf eines der erscheinenden Panele, dann soll die Panel.Caption in der Stringgrid-Zelle stehen. Tut sie auch. Gleichzeitig soll die nächste Zelle selektiert werden. Auch das ist der Fall. Gibt man eine Zahl ein, dann ist die in der nächsten Zelle. Aber erst durch einen Tastendruck ist der Cursor zu sehen. Vorher nicht.

Es soll so sein : Cursor ist zu sehen, damit man weiss, welche Zelle gerade aktiv ist. Es kann ja nicht sein, dass lediglich durch das Anklicken von irgendwas auf einer 2. Form, der Cursor verschwindet.

[Hansa]

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.