@luckie: aus dem explorer hab ich das noc nicht gestartet
@marco: ich weiss nicht wie man mit dieser scrollt, ausserdem finde ich (ist zwar unwichtig...) sieht sie nicht so gut aus wie die andere.
@Wormid: das einzigste was die scrollbars tun ist das:
Delphi-Quellcode:
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
if ScrollCode = scLineUp then
begin
if StrToInt(Edit6.Text) < 10000 then
Edit6.Text := IntToStr(StrToInt(Edit6.Text)+1);
end;
if ScrollCode = scLineDown then
begin
if StrToInt(Edit6.Text) > 0 then
Edit6.Text := IntToStr(StrToInt(Edit6.Text)-1);
end;
end;
ich glaub ich werd ma wieder alles neu machen, komischerweise hab ich bei meinem prog "standardpopups" bim rechtsklick der bildlaufleisten, wenn ich aber neues project mit ner scrollbar mache hat sie keine popups...