String Grid vapros

zdraveite

pravia edin soft i bazata danni mi e na mysql a samite danni gi pokazwam v string grid do tuk vsi4ko e dobre no iskam dannite da ne idvat na vednaj i slojix limit i sega problemat mi e kak moga da znam koga da izvikam sledvashtata 4ast ot danni samo s dvijenieto na srollera

balgodaria predvaritelno

Далаверата се крие в прехващането на съобщението WM_VSCROLL. Честно казано обаче сега ме мързи да търся пример, затова е добре да прегледаш как се прави прехващане на съобщение и да импровизираш.
Ако не се справиш скоро, ще се включа по някое време.

чети и дишай по-леко

shte ti bada mnogo blagodaren ako postnesh niakoi primer shtoto tia saobshtenia mi kucat

Не казваш какви компоненти ползваш, но обикновено данните не идват (feth) наведнаж на клиента и без limit

komponenta e directmysql

Ок, и без това скоро никой не ме е черпил с бира...
[линк]
Надявам се да ти е забавно и полезно. Ако не разбираш нещо, моля питай пак.

чети и дишай по-леко

Blagodaria otnovo

oshte neshto koeto nerazbiram e "inherited" ot primerite koito mi dade v4era Pechenia adaptirah tozi


unit MyListBox;

interface

uses
StdCtrls, Messages, Controls, Classes;

type
TMyListBox = class(TListBox)
private
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
protected
FOnVScroll : TNotifyEvent;
procedure VScroll;
published
property OnVScroll : TNotifyEvent read FOnVScroll write FOnVScroll;
end;

implementation

procedure TMyListBox.WMVScroll(var Message: TWMVScroll);
begin
VScroll;
DefaultHandler(Message);
end;

procedure TMyListBox.VScroll;
begin
if Assigned(FOnVScroll) then FOnVScroll(Self);
end;

end.

no problema e 4e sega scrollera ne se dviji a ako sloja "inherited" v procedurata "WMVScroll(var Message: TWMVScroll);" raboti ta vaprosa mi e primera li e sgreshen i ili ne

i drugoto koeto e mi triabvashe e da znam stoinosta na scrolla ako sloja "Msg.Pos" v "WMVScroll(var Message: TWMVScroll);" mi vrashta samo nula tova normalno li e

blagodaria