Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#16

AW: DBGrid Zeilen Wechsel

  Alt 9. Dez 2013, 13:50
Also das folgende habe ich gemacht:

Delphi-Quellcode:

unit view;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, AdvGlowButton, Uni, StdCtrls, ShlObj, Grids, DBGrids, DB,
  MemDS, DBAccess;

type
  Tform = class(TForm)
    timerstart: TTimer;
    pnl_insertedit: TPanel;
    lbl_materialdescription: TLabel;
    lbl_tablecontent: TLabel;
    advglowbtn_search: TAdvGlowButton;
    advglowbtn_showall: TAdvGlowButton;
    edt_materialdescription: TEdit;
    dbgrid_data: TDBGrid;
    datsrc_data: TDataSource;
    procedure FormDestroy(Sender: TObject);
    procedure timerstartTimer(Sender: TObject);

    procedure SQLiteFile_DisplayAfterScroll(DataSet: TDataSet);

  private
    procedure prButtonandFieldControl(blLocked : Boolean);
    procedure prDisplayDESADVCommissionData(sCommissionNo, sDescription, sDSMin, sDSMax : String; blSearch : Boolean);
    procedure prDisplayDESADVCommissionDetails(sCommissionNo, sDSMin, sDSMax : String);
    procedure prGetDESADVCommissionMinMaxDS(sDESADVModule : String);
  public

  end;

.
.
.

procedure Tform.SQLiteFile_DisplayAfterScroll(DataSet: TDataSet);

begin

  If (gblViewCommissions) Then ShowMessage('New Record Selected');

end;
Mit diesem Source wird das AfterScroll nicht ausgelöst da das Event noch nicht zugewiesen ist, und da häng ich grad da ich nicht weiß wie sowas geht...
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat