TMS String Grid mit Button in einer Spalte

[DerDan]

Hallo,

ich schaffe es nicht die TMS String Grid Komponente so zu verwenden, dass
1) in einer Spalte Buttons erscheinen, das kann man mit AdvStringGrid1.AddButton zwar erreichen aber:
2) die Buttons dann auch gleich den Fokus haben, wenn man die Zelle mit den Cursor Tasten selektiert.

Es wird immer zunächst die Zelle "hinter" dem Button selektiert. Ein Drücken der Leertaste betätigt den Taster nicht. Dies geht wohl nur mit der Maus

[hoika]

Hallo,
kann ich nicht nachvollziehen.

Delphi-Quellcode:

type
  TForm115 = class(TForm)
    SG: TAdvStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure SGButtonClick(Sender: TObject; ACol, ARow: Integer);
    procedure SGCanEditCell(Sender: TObject; ARow, ACol: Integer;
      var CanEdit: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form115: TForm115;

procedure TForm115.FormCreate(Sender: TObject);
begin
  SG.AddButton(1,1,40,20,'1,1',haCenter,vaCenter);
end;

procedure TForm115.SGButtonClick(Sender: TObject; ACol, ARow: Integer);
begin
  MessageBox(0,'','',0);
end;

procedure TForm115.SGCanEditCell(Sender: TObject; ARow, ACol: Integer;
  var CanEdit: Boolean);
begin
  CanEdit := True;
end;

Wenn ich in die Zelle mit der Tastatur gehe, wird per Leertaste SGButtonClick aufgerufen.
Setz doch mal einen Breakpoint auf CanEditCell und gehe in die TMS-Quellen rein.

Die ButtonClick-Methode wird in WMKeyDown aufgerufen (unit AdvGrid)

[DerDan]

Okay,

stimmt, der Event Handler wird aufgerufen. Alledings fehlt das optische Feedback das der Taster quasi mechanisch hineingedrückt wird, wie das bei anderen Button der Fall ist.
Drücke ich mit der Maus, dann geht das ..

[hoika]

Hallo,
hast du nicht die Quellen?

Delphi-Quellcode:

procedure TForm115.SGButtonClick(Sender: TObject; ACol, ARow: Integer);
begin
  SG.PushButton(ACol,ARow,True);

  MessageBox(0,'','',0);

  SG.PushButton(ACol,ARow,False);
end;

[DerDan]

Das ist besser als gar nichts.

Nachteile sind.
A) Die Reaktion (in deinem Beispiel die Anzeige der MessageBox) erfolgt schon beim drücken der Space Taste, bei jedem anderen Button erst beim loslasen.
B) Bei Betätigung der Maus wird die Animation zwei mal ausgelößt.

vielen Dank für deine Hinweise

[hoika]

Hallo,

dann dreh es doch rum

Delphi-Quellcode:

SG.PushButton(ACol,ARow,True);
Sleep(x)
SG.PushButton(ACol,ARow,False);
MessageBox(0,'','',0);

Beim Mausklick musst du improvisieren