Pozdrowienia gomis.
Tomasz Kustra napisał(a) w wiadomo¶ci: <360B707B...@friko5.onet.pl>...
>> Nie musi przesuwac property ScrollBars do published !!!. W potomnej
>> klasie do TDBGrid ma dostep do tej wlasciwosci i moze pokryc kontruktor
>
>Tak, tylko czy będzie łatwiej za każdym razem wklepywać kod z nowym
>konstruktorem czy raz przenie¶ć do published i mieć prosty dostęp w
>ObjectIns...
>
>--
Żaden z podanych w poprzednich postach sposobów nie zadziała poprawnie.
Sprawdzałem to już kiedy¶. W ten sposób da się usun±ć tylko poziomy SB.
Oto co znalazłem w TI (tego z kolei nie próbowałem):
unit Newgrid;
interface
uses
WinTypes, WinProcs, Classes, DBGrids;
type
TNoVertScrollDBGrid = class(TDBGrid)
protected
procedure Paint; override;
end;
procedure Register;
implementation
procedure TNoVertScrollDBGrid.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;
procedure Register;
begin
RegisterComponents('Data Controls', [TNoVertScrollDBGrid]);
end;
end.
Oraz uzupełnienie:
Marek Szulc napisał(a) w wiadomości: <360F4517...@polbox.pl>...
>EUREKAAAAAAAAA
>
>zamiast :
> SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
>trza:
>ShowScrollBar(Self.Handle, SB_VERT, false);
>lub SB_BOTH
>
Sławek