Anweisung wird nicht ausgeführt (SetFocus)

[gfjs]

hallo @all.

Delphi-Quellcode:

procedure TF_DlgSetUp.BtnInsertClick(Sender: TObject);
begin
  InsertName;
end;

procedure TF_DlgSetUp.EdProgNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then InsertName;
  EdProgName.SetFocus;
  Application.ProcessMessages;
end;

procedure InsertName;
begin
  if (Trim(F_DlgSetUp.EdProgName.Text) <> '') and
     (Trim(F_DlgSetUp.EdProgName.Text) <> F_DlgSetUp.EdString)
    then F_DlgSetUp.LBoxDlg.Items.Insert
         (F_DlgSetUp.LBoxDlg.Items.Count,F_DlgSetUp.EdProgName.Text);
    F_DlgSetUp.EdProgName.Text := F_DlgSetUp.EdString;
ShowMessage('1'); //XXXXXXXXXXXXXXXXXXX
    F_DlgSetUp.EdProgName.SetFocus;
ShowMessage('2'); //XXXXXXXXXXXXXXXXXXX
end;

Die Prozedur "InsertName" wird zweimal aufgerufen. Beim Aufruf aus BtnInsertClick wird "EdProgName.SetFocus;" durchgeführt, beim Aufruf aus "EdProgNameKeyDown" jedoch nicht. In beiden Fällen wird jedoch sowohl ShowMessage('1') als auch ShowMessage('2') aufgerufen.

Wer kann helfen? - Vielen Dank im Voraus.

Gruß Jürgen

[SirThornberry]

woher weißt du das es nicht ausgeführt wird? Ist das eine Vermutung oder hast du einen Haltepunkt gesetzt welcher nicht angesprungen wirdß

[FAlter]

Hi,

was soll denn bitteschön bei SetFocus herausragendes passieren, wenn dein Edit bereits den Fokus hat? So sieht das für mich jedenfalls aus.

Eventuell meinst du ja was anderes.

:glaskugel: Hmm, vielleicht meinst du SelectAll?

Mfg
FAlter

[edit] Die Glas(s)kugel war kaputt. Kommt bestimmt vom Aero. [/edit]

[gfjs]

Sorry! Da hab ich doch tatsächlich übersehen, dass der Cursor auf Pos1 des Edit war - ich habe mich total auf die erwartete Hervorhebung konzentriert, die im zweiten Fall ausblieb. Ist mir jetzt auch klar, da das Edit den Focus ja gar nicht verloren hatte.

Das hab jetzt vorerst mal dadurch umgangen, dass ich den Focus erst auf den Button und dann auf das Edit gesetzt habe. Ich vermute aber, dass das nicht die eleganteste Lösung ist?!

Vielen Dank für die Hilfe.

Gruß Jürgen

[FAlter]

Hi,

Zitat:

Zitat von gfjs

Sorry! Da hab ich doch tatsächlich übersehen, dass der Cursor auf Pos1 des Edit war - ich habe mich total auf die erwartete Hervorhebung konzentriert, die im zweiten Fall ausblieb.

Zitat:

Zitat von FAlter

:glaskugel: Hmm, vielleicht meinst du SelectAll?

Ich glaube meine Glaskugel hatte recht.

Mfg
FAlter