Enter drücken soll zwei versch. Sachen machen

[Tobicaster]

Ich bin's nochmal^^

Ich möchte bei meinem Lauftextgenerator gerne den Lauftext mit Enter starten und auch wieder stoppen.

Mein erster Ansatz sieht so aus:

Delphi-Quellcode:

procedure TForm1.EEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then
    begin
      key := #0;
      BStartClick(Sender);
    end

end;

Wie kann ich der Entertaste nun zuweisen, dass sie sie aber die Prozedur BStopClick auslösen soll, wenn der Text grade am laufen ist?

[Luckie]

Merk dir den Zustand in einer bool'schen Variable.

[Tobicaster]

Delphi-Quellcode:

implementation
  var
    lauftext, buchstabe: string;
    tbwert: integer;
    LauftextActive: boolean;
{$R *.dfm}


procedure TForm1.TimerTimer(Sender: TObject);
begin
  buchstabe := copy(lauftext, 1, 1);
  delete(lauftext, 1, 1);
  LLauftext.Caption := lauftext + buchstabe;
  lauftext := LLauftext.Caption;
end;



procedure TForm1.TrackBarChange(Sender: TObject);
begin
  tbwert := TrackBar.Min + TrackBar.Max - Trackbar.Position;
  Timer.Interval := tbwert;
  ProgressBar.Position := TrackBar.Position;
end;

procedure TForm1.BCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.BStartClick(Sender: TObject);
begin
  Timer.Interval := TrackBar.max;
  lauftext := EEdit.Text + '                                               ';
  setLength(lauftext, 50);
  LLauftext.Caption := lauftext;
  Timer.Enabled := true;
  EEdit.Visible := false;
  LauftextActive := true;
end;


procedure TForm1.BStopClick(Sender: TObject);
begin
  Timer.Enabled := false;
  LLauftext.Caption := '<Hier erscheint der Lauftext>';
  EEdit.Visible := true;
  LauftextActive := false;
end;



procedure TForm1.EEditKeyPress(Sender: TObject; var Key: Char);
begin
  if LauftextActive = false then
    begin
      if key = #13 then
      begin
      key := #0;
      BStartClick(Sender);
      end;
    end
    else
    begin
      key := #0;
      BStopClick(Sender);
    end;




    
end;

end.

Klappt aber leider nicht =/

[Tobicaster]

Also starten tut er den Lauftext noch, aber stoppen klappt immer noch nicht. Ich komm nicht drauf =/

[Aurelius]

*gelöscht* Hier stand Mist...

[Bomberbb]

Hallo,

Ich würde einen Haltepunkt setzen, wenn LauftextActive auf true gesetzt wird, dann lässt du den Ausdruck überwachen. Nun gibts die Option "bei Änderung anhalten". Da siehst dann an welcher Stelle die Variable wieder zurückgesetzt wird.

Aber meiner Meinung nach brauchst Du die variable nicht, frag doch Timer.Enabled ab.

Gruß

Sascha


p.s.:
if LauftextActive = false then kann man auch so
if not LauftextActive then abfragen.

[Aurelius]

Du meinst wohl if not LauftextActive then

[Tobicaster]

Wo finde ich denn "Bei Änderung anhalten" ? Wenn ich rechtsklicke in der Liste überwachter Ausdrücke, dann find ich des da ned

[Tobicaster]

Also die Variable wird schon zum richtigen Zeitpunkt auf true gesetzt. Allerdings klappt das beenden mit der Entertaste und das damit verbundene zurücksetzen nicht.

Delphi-Quellcode:

procedure TForm1.EEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not LauftextActive then
    begin
      if key = #13 then
      begin
      key := #0;
      LauftextActive := true;
      BStartClick(Sender);
      end;
    end;
end;

Wie kann nun weiter vorgehen? Mit else scheint es nicht zu klappen

[Chemiker]

Hallo Tobicaster,

im Augenblick wir im Else – Zweig ein anderer Key abgefragt außer die Return – Taste.
Du musst die Abfrage umstellen:

Ich zeige das mal an einem Beispiel:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Edit1.Clear;
  Edit2.Clear;
  if key = #13 then
  begin
    key := #0;
    if ReturnFlag then
    begin
      Edit1.Text:= 'TRUE';
      ReturnFlag:= FALSE;
    end
    else
    begin
      Edit2.Text:= 'FLASE';
      ReturnFlag:= TRUE;
    end;
  end;
end;

Außerdem würde ich im Form die Eigenschaft KeyPreview auf TRUE umstellen, damit alle Tastatureingaben zuerst vom Form verarbeitet werden.

Bis bald Chemiker