reset eines programmes?

[herrentor]

moin, ich bins wieder. wie ihr seht, hab ich noch nicht so den plan über befehle in delphi.

deshalb meine frage: wie resettet ich ein programm? bzw. wie setze ich eine combobox in den anfangszustand zurück?

danke im voraus.

[Ratte]

Fallen mir zwei Sachen ein:
1) für alle Werte die geändert werden standartkonstanten anlegen u. zuweisen = Aufwand³³³³³³³³³ (Bei kompos. evt. Tag benutzen)
2) das Proggi neustarten

Ratte

[Christian Seehase]

Moin Herrentor,

weitere Variante:
Initialisieren aller entsprechenden Komponenten/Variablen an zentraler Stelle, und diese Routine bei einem Reset wieder aufrufen.

[herrentor]

wie starte ich das programm neu?

ich hab die erste variante von ratte, jedoch ist das problem da, dass ich die combobox nicht wieder zurücksetzen kann.

[Christian Seehase]

Moin Herrentor,

Zitat:

Zitat von herrentor

...dass ich die combobox nicht wieder zurücksetzen kann.

wieso das? :gruebel:

[herrentor]

ich kenn den befehl nicht, der die combobox in den anfangszustand bringt.

Code:

 combobox.items[-1];

das klappt nicht.

[H4ndy]

Delphi-Quellcode:

combobox.items.clear

:hi:

[herrentor]

hatte ich schon versucht und habs gerade nochmal probiert, klappt nicht.

[Ultimator]

Was klappt denn nicht. Was möchtest du denn überhaupt? :gruebel:

[herrentor]

die combobox wird nicht bei einem drücken des reset buttons in den anfangszustand gesetzt. es bleibt das zuletzt ausgewählte drin stehen.

[Chewie]

Setz mal ComboBox.ItemIndex auf -1.

[herrentor]

geht auch nicht

[NeoXX]

Dann schließ doch einfach das Prog und im

Code:

OnClose

startest
Du es mit

Code:

ShellEcecute

wieder neu... :?:

[herrentor]

muss ich dann hinter onclose den programmnamen hängen?

[kiar]

so gehts

Delphi-Quellcode:

combobox1.Items.strings[0]:='';
combobox1.Items.clear;

raik

[herrentor]

listenindex überschreitet das maximum(0)

was auch immer das zu bedeuten hat

[kiar]

haste du das auch genau so übernommen?

[herrentor]

ja, hab es sogar reinkopiert

[kiar]

sorry für die 0 mal combobox1.itemindex einsetzen

funktioniert aber nur wenn itemindex <> -1 ist.

[NeoXX]

Also wenn Du nun einen kompletten Reset Deines Programms willst dann...

Code:

unit Unit1;

interface

uses
  Windows, SysUtils, Forms, StdCtrls, Controls, Classes,
  ShellAPI;  // <- die Unit ShellAPI wird für ShellExecute benötigt !!!
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  Reset: Boolean = FALSE;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Reset then begin
    ShellExecute(Self.Handle, 'open', PChar(Application.ExeName), '',
                 PChar(ExtractFilePath(Application.ExeName)), SW_SHOWNORMAL);
    Action := caFree;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Reset := TRUE;
  Form1.Close();
end;

end.

...ansonsten wenn Du nur die den Index der ListBox zurücksetzen

Code:

if (ListBox.Items.Count > 0) then ListBox.ItemIndex := 0 else ListBox1.ItemIndex := -1;

Wenn es das war was du wolltest :gruebel:

[herrentor]

wie drück ich das aus, dass itemindex -1 ist? wenn ich das nämlich nicht schreibe, sagt er: der listenindex überschreitet das maximum von (-1)

[kiar]

Delphi-Quellcode:

if Combobox1.itemindex <> -1 then
     begin
       combobox1.Items.strings[ComboBox1.itemindex]:='';
       combobox1.Items.clear;
     end;

ausserdem muss ja schon was gewählt wurden sein, sonst würde ja ein löschen keinen sinn machen.

[NeoXX]

HEy, wo ist meine Antwort hin :?:

[Christian Seehase]

Moin Raik,

Du meintest wahrscheinlich:

Delphi-Quellcode:

ComboBox1.Text := '';
ComboBox1.Items.Clear;

[herrentor]

jetzt ändert er das aktivierte nicht und löscht außerdem die liste mit der auswahl

[Christian Seehase]

Moin Herrentor,

wie sieht denn die Combobox aus, wenn das Programm startet?
Sind da schon Inhalte drin, oder ist sie leer?

[herrentor]

auch hier bleibt die auswahl erhalten und die liste wird gelöscht, erst nach einem klick in die combobox steht nichts mehr drin.

[kiar]

moin chris.

das oben funktioniert auch :mrgreen: , obwohl deins eleganter ist

raik

[herrentor]

dieser teil steht in meiner prozedur formcreate:

Code:

with Combobox1 do                        
  begin
    Tab.DefaultRowHeight := Height;
    Visible := False;
    Items.Add('Rechteck');
    Items.Add('Dreieck');
    Items.Add('Kreissektor');
    Items.Add('Kreisabschnitt');
    Items.Add('Kreis');
    Text := '';
  end;

sprich es steht noch kein begriff drin, aber die liste ist gefüllt.

[Christian Seehase]

Moin Raik,

kann eigentlich nicht sein. :gruebel:
Der Inhalt des Editfeldes der ComboBox wird von Deiner Version doch unberührt gelassen.
Du löscht erst den Inhalt eines Items der Drop Down Liste, und anschliessend die ganze Liste.

[Christian Seehase]

Moin Herrentor,

dann solltest Du die Routine ergänzen:

Code:

with Combobox1 do                        
  begin 
    Tab.DefaultRowHeight := Height; 
    Visible := False; 
    [color=red]Items.Clear;[/color]
    Items.Add('Rechteck'); 
    Items.Add('Dreieck'); 
    Items.Add('Kreissektor'); 
    Items.Add('Kreisabschnitt'); 
    Items.Add('Kreis'); 
    Text := ''; 
  end;

Anschliessend lagerst Du die Routine in einer Methode des Formulares aus, und rufst diese einmal aus dem Form Create, und ein anderes Mal aus der Button Click Routine des Reset Buttons auf.

[kiar]

moin chris,

getestet und für gut befunden :mrgreen:

raik

[Christian Seehase]

Moin Raik,

Deins oder meins :gruebel: :mrgreen:

[kiar]

moin chris,

deins und meins :mrgreen:

raik

[herrentor]

das steht bei mir in der tabselectcell prozedur

Code:

var  R: TRect;
     i: integer;

begin
  if (ACol = 1) and (ARow > 0) then
  begin
    R := Tab.CellRect(ACol, ARow);
    R.Left := R.Left + Tab.Left;
    R.Right := R.Right + Tab.Left;
    R.Top := R.Top + Tab.Top;
    R.Bottom := R.Bottom + Tab.Top;
    with Combobox1 do
    begin
      ItemIndex := Items.IndexOf(Tab.Cells[ACol, ARow]);
      Left := R.Left + 1;
      Top := R.Top + 1;
      Width := (R.Right + 1) - R.Left;
      Height := (R.Bottom + 1) - R.Top;
      Visible := True;
      SetFocus;
    end;
  end;
 CanSelect := True;
end;

und das im programm:

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
  Tab.Cells[Tab.Col, Tab.Row]:=ComboBox1.Items[ComboBox1.ItemIndex];
  ComboBox1.Visible := False;
  Tab.SetFocus;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  Tab.Cells[Tab.Col, Tab.Row]:=ComboBox1.Items[ComboBox1.ItemIndex];
  ComboBox1.Visible  := False;
  Tab.SetFocus;
end;

[herrentor]

wie lager ich denn aus?

[kiar]

moin herrentor,

in beiden proceduren machst du das gleiche :shock: warum?

raik

[herrentor]

wenn ich eins weglasse, spinnt er total rum.

[Christian Seehase]

Moin Herrentor,

Du kannst eine Prozedur unterschiedlichen Ereignissen zuweisen, wenn ihre Parameter übereinstimmen.
In diesem Falle kannst Du, z.B., die OnChange so lassen wie sie ist, und sie im Objekt Inspektor dem OnExit Event zuweisen (klick mal auf den Pfeil abwärts rechts vom Event)

[herrentor]

ok danke