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.

[Marco Haffner]

Zitat:

Zitat von silent

@marco: ich weiss nicht wie man mit dieser scrollt, ausserdem finde ich (ist zwar unwichtig...) sieht sie nicht so gut aus wie die andere.

Ich finde nicht, das da ein großer Unterschied zwischen besteht.
"Scrollen" kannst Du mit TUpDown (Win32) indem TUpDown.Associate mit dem gewünschten TEdit Verknüpft wird.
OnChanging und OnChangingEx werden beim ändern ausgelöst.

[Wormid]

Warum benutzt Du denn die Scrollbars so kompliziert?
Ich würde die Eigenschaft "Position" nehmen und in dem Edit anzeigen...
Vorher natürlich die Eigenschaften "Min" und "Max" mit den gewünschten Werten füllen.

Delphi-Quellcode:

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Edit6.Text := ScrollBar2.Position;
end;

Gruß

Wormid

[Pseudemys Nelsoni]

hoi, danke für die hilfen. :)

irgendwie kann ich associate bei TUpDown nicht benutzen solange das edit auf einem panel liegt :(

[Marco Haffner]

Dreimal darfst Du raten, wie Du TUpDown und TEdit doch verknüpfen kannst.

[Pseudemys Nelsoni]

indem ich das TupDown mit auf das panel packe, das geht aber nicht, weil ich das Panel deaktiviert habe, damit nichts ins edit geschrieben werden kann. Wenn TUpDown mit daraufliegen würde, wäre es ebenfalls deaktiviert

[Luckie]

@Wormid: Hast du schon mal versucht deinen Code zu kompilieren? :roll:

[Marco Haffner]

@silent: Und warum bitteschön darf nicht ins Edit geschrieben werden?
Da gibt es andere bessere Lösungen. Die ScrollBar ist außerdem für das was Du vorhast auch nicht gedacht.

[Wormid]

Zitat:

Zitat von Luckie

@Wormid: Hast du schon mal versucht deinen Code zu kompilieren? :roll:

Öhm... *hust* :oops:

Da fehlt doch irgendwie was... Aber so ein leckeres IntToStr ist ja schnell eingefügt...

Gruß

Wormid