Ich will die Sanduhr zurück!

[jaenicke]

Zitat von nahpets:

Application.Title := 'was machen wir-Beschreibung'; Wenn's dann fertig ist, kommt wieder der alte Application.Title dahin. Man sieht halt auch bei minimiertem Programm, dass es noch lebt und noch nicht fertig ist.

Das ist doch genau der Anwendungszweck der Fortschrittsanzeige in der Taskleiste. Das hat Microsoft ja genau für diesen Zweck eingebaut. Deshalb macht das auch Sinn das zu benutzen wie ich oben schon schrieb.

Das finde ich auch viel intuitiver als nur den Anwendungstitel zu setzen, den ich nur sehe, wenn ich die Maus drüberhalte. Vor allem kann man auch direkt signalisieren, wenn die Aktion pausiert ist oder z.B. ein Fehler passiert ist, durch den eine Benutzereingabe erforderlich ist. Dazu kommt, dass man ein Overlay-Icon setzen kann um direkt in der Taskleiste zu signalisieren was gerade passiert, wenn das in so kleiner Form möglich ist.
Das sieht dann z.B. so aus:

TaskbarState.png

[p80286]

Zitat von jaenicke:

Zitat von nahpets:

Application.Title := 'was machen wir-Beschreibung'; Wenn's dann fertig ist, kommt wieder der alte Application.Title dahin. Man sieht halt auch bei minimiertem Programm, dass es noch lebt und noch nicht fertig ist.

Das ist doch genau der Anwendungszweck der Fortschrittsanzeige in der Taskleiste. Das hat Microsoft ja genau für diesen Zweck eingebaut. Deshalb macht das auch Sinn das zu benutzen wie ich oben schon schrieb.

Das finde ich auch viel intuitiver als nur den Anwendungstitel zu setzen, den ich nur sehe, wenn ich die Maus drüberhalte. Vor allem kann man auch direkt signalisieren, wenn die Aktion pausiert ist oder z.B. ein Fehler passiert ist, durch den eine Benutzereingabe erforderlich ist. Dazu kommt, dass man ein Overlay-Icon setzen kann um direkt in der Taskleiste zu signalisieren was gerade passiert, wenn das in so kleiner Form möglich ist.
Das sieht dann z.B. so aus:

Anhang 46603

Über "Intuitiv" kann man wohl diskutieren, wobei es sein kann, daß ich der einzige bin, der sehr selten auf die Taskleiste schaut. Davon abgesehen, wie kann man (ich) das realisieren (Jedi?)

Gruß
K-H

[nahpets]

Du kannst eigentlich an beliebiger Stelle im Progamm einfach Application.Title eine beliebige Zeichenfolge zuweisen. Die wird dann in der Taskleiste angezeigt.

So 'ne Art Fortschrittsanzeige könne so aussehen:

Delphi-Quellcode:

var
  sTitle : String;
begin
  sTitle := Application.Title;
  Table1.First;
  while not Table1.EoF do begin
    Table1.Edit;
    // Irgendwas ändern
    Table1.Post;
    Table1.Next;
    Application.Title := Format('ID: %.5d',[Table1.FieldByName('ID').AsInteger]);
  end;
  Application.Title := sTitle;
end;

Möchtest Du auch noch das Icon ändern, so müsste Application.Icon dafür die richtige Eigenschaft sein.

[EDIT]
Wenn Du einen eigenen Dialog haben möchtest, so kannst Du den TJvProgressDialog von den Jedis nehmen.

Aktualisieren des Dialoges könnte so gehen:

Delphi-Quellcode:

// pd -> Komponente TJvProgressDialog auf dem Formular
type
  Tform1 = class(TForm)
    pd: TJvProgressDialog;
  public
    { Public-Deklarationen }
    procedure pdAnzeigen(sCaption : String; sText : String = ''; iMin : Integer = 0; iMax : Integer = 100; iPosition : Integer = 50);
    procedure pdHide;
  end;

procedure Tform1.pdAnzeigen(sCaption : String; sText : String = ''; iMin : Integer = 0; iMax : Integer = 100; iPosition : Integer = 50);
begin
  pd.Caption  := sCaption;
  pd.Text     := sText;
  pd.Min      := iMin;
  pd.Max      := iMax;
  pd.Position := iPosition;
  pd.Show;
  if sText <> '' then Application.Title := sText;
end;

procedure TfmTextverwaltung.pdHide;
begin
  pd.Hide;
  Application.Title := 'Mein Programmname';
end;

// irgendwo im Programm
var
  iMin : Integer;
  iMax : Integer;
  iPos : Integer;
  sCaption : String;
  sText    : String;

begin
  Screen.Cursor := crSQLWait;
  pdAnzeigen('Datenbankabfrage läuft ...');
  qrySQL.ExecSQL;

// oder
  pdAnzeigen('SQL-Statement wird ausgeführt ...',qrySQL.SQL.Text);
  qrySQL.ExecSQL;

//oder:
  pdAnzeigen('Öffne Abfrage ...',qrySQL.SQL.Text);
  qry.Open;
  iMin := 0;
  iMax := qry.RecordCount;
  iPos := 0;
  sCaption := Format('%d Datensätze werden verarbeitet ...',[iMax]); 
  sText    := '';
  pdAnzeigen(sCaption, sText, iMin, iMax , iPos);
  qry.First
  while not qry.Eof do begin
    Inc(iPos);
    sText := Format('ID: %.5d',[qry.FieldByName('ID').AsInteger]);
    pdAnzeigen(sCaption, sText , iMin, iMax, iPos);
    // Irgendwas mit den Daten machen ...
    qry.Next;
  end;
  qry.Close;
  pdHide;
  Screen.Cursor := crDefault;

[/EDIT]

[p80286]

Mal schauen,
Vielen Dank!

K-H

[Valle]

Es sei aber gesagt, dass nahpets' Lösung nicht das erreicht was auf jaenickes Screenshot zu sehen ist. Genau genommen würden die meisten Anwender diesen Application Title heute gar nicht mehr zu Gesicht bekommen. Über delphi taskbar progress findet man, wie man eine ProgressBar in die Taskleiste bekommt.

Als zusätzliche Maßnahme finde ich die Idee gut, aber nur einen anderen Cursor und diesen Titel ist nicht mehr zeitgemäß.

[Aviator]

Seit XE7 oder XE8 gibt es eine Komponente TTaskBar, die dir die Funktionen zum Anzeigen der Statusbar und der Icons und Funktionsbuttons in der Taskleiste zur Verfügung stellt.

Wenn du diese Version nicht besitzt, dann kannst du dir allerdings durch die Interfaces von Microsoft behelfen und somit den gleichen Effekt erzielen.

ITaskBarList, ITaskBarList2, ITaskBarList3

[p80286]

Zitat von Valle:

Als zusätzliche Maßnahme finde ich die Idee gut, aber nur einen anderen Cursor und diesen Titel ist nicht mehr zeitgemäß.

Das versteh' ich nicht!
Solange der Benutzer gut erkennen kann, das ein Programm etwas arbeitet ("es tut nichts, dann tut es was") ist alles gut. Je nachdem ist ein Cursor oder ein Progressbar natürlich Augenwischerei, aber es ist gut für den Blutdruck des Benutzers.

Gruß
K-H

[Valle]

Mh, ich verstehe nicht was es nicht zu verstehen gibt.

Ich habe zwei Dinge in diesem Thread gesagt: Den Cursor würde heute keiner mehr sehen und Application.Title sieht auch niemand mehr. Wenn man also nur diese beiden Dinge zur Benachrichtigung verwendet, sehen viele Benutzer keine Indikation für einen laufenden Vorgang mehr.

Man kann natürlich nach "es tut nichts, dann tut es was" arbeiten, das wäre aber nicht der Standard den ich verfolge(n muss). Ich bin zwar wie gesagt in der Webentwicklung tätig, aber dafür sind unsere Kunden (mit Verlaub) besonders strohdoof. Da muss man sich um jede Indikation wirklich Gedanken machen...

[jaenicke]

Zitat von p80286:

Das versteh' ich nicht!
Solange der Benutzer gut erkennen kann, das ein Programm etwas arbeitet ("es tut nichts, dann tut es was") ist alles gut.

Den Application.Title sieht man seit Windows 7 (standardmäßig) nur, wenn man mir der Maus über den Eintrag in der Taskleiste hält. Den Cursor sieht man nur sicher, wenn man die Maus über die Anwendung hält.

Dir einzige immer sichtbare Methode seit Windows 7 ist die Fortschrittsanzeige direkt auf dem Taskbar Eintrag.
(Selbst wenn man die Taskleiste mit der Anzeige der Titel überflutet, was man ja auch ab Windows 7 leider noch einstellen kann, ist das sichtbar.)

Es ist auch die einzige Methode, bei der man ohne zu lesen den Status sieht.