Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Válasz:TDataSet és az AfterScroll 2011 aug. 18 20:41 #804

  • szeti
  • szeti profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 39
  • Köszönetek: 1
Köszönöm a segítséget! Sajnos a net-ről táplálkoztam néhány Delphi kód részletből, pedig csak gondolkodni kellett volna.:blush:

Válasz:TDataSet és az AfterScroll 2011 aug. 18 17:39 #803

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 504
  • Köszönetek: 86
A hibát generáló sorban, az értékadásnál a UserScroll eljárás visszatérési értékét rendeled az AfterScroll eseménykezelö eljáráshoz. Ami ugyebár nem lehetséges lévén a UserScroll sem nem függvény sem nem valamilyen megfelelö típusú értéket tartalmazó akármi.... ;)

Szerintem @!
DataModule.QUery1.AfterScroll:=@FrmMain.UserScroll;
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

TDataSet és az AfterScroll 2011 aug. 14 17:39 #802

  • szeti
  • szeti profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 39
  • Köszönetek: 1
Szeretnék egy kis segítséget kérni:

A progimban a DataModul jön létre először, ugyanakkor szükség lenne az egyik Form-on egy Procedure futtatását kezdeményezni a DataModule egyik DataSet-jének AfterScroll eseményével. Meg tudná valaki mondani miért nem működik az alábbi módszer?
Public
    { Public declarations }
  procedure UserScroll(Sender:TDataSet);
...
 
procedure TFrmMain.UserScroll(Sender:TDataSet);
begin
  //Saját kód a Form-ban.
end;
 
....
procedure TFrmMain.FormCreate(Sender: TObject);
begin
....
DataModule.QUery1.AfterScroll:=FrmMain.UserScroll;
end;

A fordító az alábbi hibaüzenetet adja:
Wrong number of parameters specified for call to FrmMain.UserScroll.
Természetesen próbáltam paraméteresen is meghívni, de akkor nem egyező paraméter típusokra panaszkodott (pedig azok egyezőek voltak).

  • Oldal:
  • 1