TPageControl Tabwechsel verhindern, aber wie ?

[khh]

irgendwie hab ich nen Denkfehler


mit :

Delphi-Quellcode:

procedure Tartikelbearbeitenform.ArtikelPageControlChange(Sender: TObject);
begin
 if trim(artbez1edit.text) = '' then
    begin
      ShowMessage('blabla');
      self.artikelpagecontrol.activepage:= seite1TabSheet ;
    end;
end;

möchte ich eine Meldung anzeigen und den aktiven Tab beibehalten.
leider bringt er mir die Message 2mal, deshalb gehe ich maldavon aus, dass ich im falschen Ereignis arbeite?

Was mache ich falsch?

Gruss KH

[ghost007]

naja, du gibst eine msg aus, wenn es changed und dann changed du es in dem ereignes nochmal => 2 changes

[khh]

Zitat von ghost007:

naja, du gibst eine msg aus, wenn es changed und dann changed du es in dem ereignes nochmal => 2 changes

logo

aber wie funktionierts richtig?

[ghost007]

ich versteh den sinn nich ganz willst du dass er bei der bedinung immer auf den tabsheet1, egal wo hin der user changed?

[mkinzler]

Verwende onChanging, dieses Ereignis wird vor dem Wechsel ausgelöst. Dort kannst du festlegen, ob der Wechsel erfolgen soll oder nicht.

[khh]

Zitat von ghost007:

ich versteh den sinn nich ganz willst du dass er bei der bedinung immer auf den tabsheet1, egal wo hin der user changed?

ja richtig,
ich möchte den Tabwechsel erst dann zulassen, wenn im Editfeld ein Wert eingegeben wurde

[khh]

Zitat von mkinzler:

Verwende onChanging, dieses Ereignis wird vor dem Wechsel ausgelöst. Dort kannst du festlegen, ob der Wechsel erfolgen soll oder nicht.

hatte ich mit dem selben code auch probiert, aber da wechselt er den tab trotzdem und bleibt dann in einer endlosschleife

[mkinzler]

Du darfst auch nicht den selben Code verwenden, sondern den Parameter auf AllowChange auf false setzen.
Wie gesagt, wird dieses Ereignis vor dem Wechsel ausgelöst.

[khh]

Zitat von mkinzler:

Du darfst auch nicht den selben Code verwenden, sondern den Parameter auf AllowChange auf false setzen.
Wie gesagt, wird dieses Ereignis vor dem Wechsel ausgelöst.

hab ich mir schon gedacht, dass der code so schrott ist

ich danke dir

EDIT: funktioniert

[ghost007]

Zitat von khh:

Zitat von mkinzler:

Du darfst auch nicht den selben Code verwenden, sondern den Parameter auf AllowChange auf false setzen.
Wie gesagt, wird dieses Ereignis vor dem Wechsel ausgelöst.

hab ich mir schon gedacht, dass der code so schrott ist

ich danke dir

Delphi-Quellcode:

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
end;

das ist was du suchst