OnClick bei wechseln der Zelle im StringGrid ?

[Hansa]

Hi,

warum wird im folgenden Fall bei Drücken von #13 das Onclick ausglöst ?

Delphi-Quellcode:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
showmessage ('222');
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
  StringGrid1.Col := StringGrid1.Col + 1;
end;

Drücke ich Return, so sehe ich "222". 8)

[Sharky]

Hai Hansa,

das ist genauso wie z.B. bei einem TListView. OnClick wird immer dann ausgelöst wenn eine andere Spalte/Zeile aktiv wird. Es hat also nichts mit einem Mausklick zu tun.
Bei einem Button wir ja auch das OnClick ausgelöst wenn Du dort die Space-Taste drückst.

[shmia]

Zitat von Hansa:

warum wird im folgenden Fall bei Drücken von #13 das Onclick ausglöst ?

Weil du den Tastendruck nicht "vernichtet" hast:
<Edit>Stimmt nicht, also vergiss es.</Edit>

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
  StringGrid1.Col := StringGrid1.Col + 1;
  key := #0; // <---
end;
end;