reset eines programmes?

[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

raik

[Christian Seehase]

Moin Raik,

Deins oder meins

[kiar]

moin chris,

deins und meins

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