Scrollbar stürzt ab nach Exception

[Pseudemys Nelsoni]

hi

wenn stunden,minute,sekunden = 0 sind, wird eine exception ausgelöst...wenn ich bei der exception dann auf "ok" drücke stürzt die scrollbar die ich zuvordrückte ab, und ich kann sie nichtmehr benutzen (manchmal gehts schon noch in dem ich dqas graue daüber anklicke...aber normal is das ja nich)

http://www.angelfire.com/bug/delphi/fehler.jpg

was kann ich da machen? schliesslich sollte die scrollbar nach einer fehlermeldung ja auch noch gehn.

[Luckie]

try-execept?

[Pseudemys Nelsoni]

hoi,

jo, hab ich ja mit drin

Delphi-Quellcode:

        Try
          Form1.Panel2.caption := IntToStr(((vr[8] * vr[9] * 1024 * 8) DIV vr[1]) - vr[5]);
        except
          ShowMessage('Berechnung nicht möglich!');
        end;

die messgage wird auch angezeigt, aber egal ob so, oder die standard except message "divison durch 0", beides friert die scrollbar ein

[Wormid]

Dann umgeh doch die Exception, indem Du vorher prüfst, ob gültige Werte drinstehen. Im Grunde müsste ja nur geprüft werden, ob vr[1] > 0 ist...

Gruß

Wormid

[Pseudemys Nelsoni]

hm, jo das wäre zwar möglich, aber wenn ich mal ein anderes prog z.b mach wo ich die exception brauch. deswegen muss es doch auch mit gehen

[Luckie]

Hast du dein Programm schon mal aus dem Explorer gestartet? Delphi wirft die Exception in der IDE standardmäßig.

[Marco Haffner]

Und warum verwendest Du nicht TUpDown anstelle von TScrollBar?

[Wormid]

Also, ich kann das abstürzen der Komponenten weder mit einer TScrollbar noch mit einem TUpDown reproduzieren.
Werden noch andere Aktionen ausgeführt, wenn die Scrollbar betätigt wird?

[Pseudemys Nelsoni]

@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...

[Luckie]

Ein TSpinEdit aus der Palette Samples, wäre auch noch eine Möglichkeit.