On Click nicht ausführen

[ueei.net]

Hallo,

ich habe auf einem Panel einige Elemente, die ich wenn ich das Panel durch verschiedene Wege (z.B. duch Klick auf ein anderes Panel, oder wechsel im PageControl) verlasse, überprüfe.

Das Funktioniert auch schon ganz gut, nur möchte ich wenn die Überprüfung einen Fehler meldet, den Code der z.B. onClick vom Panel ausgeführt wird, eben nicht mehr ausgeführen, da ja die Eingaben erst berichtigt werden müssen.

Wie kann ich mir da helfen?

Danke und lg

[Matze]

Ich hoffe, ich habe das nun richtig verstanden, hier mein Vorschlag:

Delphi-Quellcode:

function CheckValues(...): boolean;
begin
  //Code

  //Alles richtig
  result := true;

  //Fehler gefunden
  result := false;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if CheckValues then
  begin
    //Code des OnClick
  end;

  //oder auch zu Beginn die Prozedur verlassen
  if not CheckValues then exit;
end;

[Ultimator]

Oder so:

Delphi-Quellcode:

procedure TForm1.CheckValues(...);
begin
 if (bla) then 
  Panel1.OnClick := nil;
 else
  Panel1.OnClick := DeineOnClickProzedur;
end;

Einfach das OnClick auf nil setzen, wenns nicht gebraucht wird.