ButtonPanel: Ok-Button abfangen

[Danccce]

Hallo zusammen,

ich habe ein Formular via

Code: Alles auswählen

test:=Form2.ShowModal;

geöffnet. In dem Formular ein ButtonPanel platziert. Öffnen und schließen funktioniert gut.
Jetzt würde ich gerne, wenn ein Benutzer den Ok-Button drückt, die Eingaben im Formlar überprüfen und gegebenfalls einen Hinweis auf Fehleingaben anzeigen und nur bei richtigen Eingaben das Fenster schließen.
Jedoch ist mir dies nicht gelungen. Ich habe versucht das OnClick Ereignis des OK-Buttons auszuwerten:

Code: Alles auswählen

procedure TForm2.OKButtonClick(Sender: TObject);
begin
  Label7.Caption:='Here...';
  if Edit1.Text ='' then
  begin
     Edit1.SetFocus;
  end;
end;

So einfach funktioniert es aber leider nicht...

Über Hilfe wäre ich sehr dankbar.
Besten Gruß

[theo]

Setzte im zweiten Formular im Ereignis OnCloseQuery den Parameter CanClose entsprechend.

[Danccce]

Danke für die Antwort. Hatte ich schon ausprobiert.
Trotzdem wird der Label nicht verändert, so als ob der Button-Druck gar nicht abgefangen würde.

[shokwave]

Also ich benutze für so etwas das ModalResult.

Code: Alles auswählen

if Form2.ShowModal=mrOK then

Im OnClick des Buttons der schließt wird es mit ModalResult:=mrOK; (mrCancel, mrYes, ...) gesetzt.

[theo]

Danke für die Antwort. Hatte ich schon ausprobiert.
Trotzdem wird der Label nicht verändert, so als ob der Button-Druck gar nicht abgefangen würde.

Bist du sicher? Das würde mich doch sehr wundern. Bei mir klappt das einwandfrei.

[Eb]

bei mir tritt das auch auf (WinXP, Laz 09.28,fpc 2.2.4).

neue Anwendung,
TButtonControl drauf,
label drauf

folgender Code:

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ButtonPanel, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ButtonPanel1: TButtonPanel;
    Label1: TLabel;
    procedure OKButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.OKButtonClick(Sender: TObject);
begin
    Label1.Caption:= 'Text';
end;
 
initialization
  {$I unit1.lrs}
 
end.

Klick auf OK ändert das label nicht.

Eb

[theo]

Ich sagte aber, man soll die Auswertung in Form.OnCloseQuery machen, nicht in Button.OnClick

[pluto]

@Eb Möchtest du damit sagen, dass das OnClick Event vom TButtonPanel nicht ausgelöst wird?

[Eb]

Genau das wollte ich sagen.

Im onclosequery kann man zwar etwas vor dem schliessen tun - da weiss man allerdings nicht, welcher button das schliessen initiiert hat.
Genau das möchte er aber machen, da er nur beim OK-Button was prüfen will, beim Cancel-Button aber nicht.

[theo]

Bei mir geht das übrigens auch in OKButtonClick

Lazarus 0.9.31 r29548M FPC 2.4.2 i386-linux-gtk 2

[pluto]

Warum nicht einfach so:
Wenn ich auf ein Button im Form Klicke wird die Tag Eigenschaft gesetzt vom From:
Tag:=(Sender as TButton).Tag

Wenn das From aufgerufen wird musst du das tag wieder auf 0 setzten. Der OK Button könnte im Tag 1 stehen haben und der Abbrechen Button 2.
Nach dem setzten könntest du noch ein Close ausführen.

Nun rufst du das ganze so auf:
Form2.ShowModal; // Damit in Form1 nicht weiter gearbeitet wird
Anschließend kannst du mit Form2.Tag = 1 prüfen ob OK gedrückt.

So mache ich das immer.

[Socke]

welcher button das schliessen initiiert hat.

Wenn jeder Button ein eindeutiges ModalResult hat, schon.

Tag:=(Sender as TButton).Tag

Wenn das From aufgerufen wird musst du das tag wieder auf 0 setzten. Der OK Button könnte im Tag 1 stehen haben und der Abbrechen Button 2.
Nach dem setzten könntest du noch ein Close ausführen.

Warum so kompliziert? Für so etwas gibt es doch ShowModal und ModalResult.
Die Vorgehensweise:

• Formular erstellen, Button platzieren
• Button.ModalResult einen Wert zuweisen (kein OnClick oder ähnliches vergeben)
• Standard-Button einstellen (TButton.Default), für den Fall, dass der Dialog nicht über einen Button beendet wird (Fenster-Rahmen, etc.)
• ShowModal des Formulars aufrufen

Das Ergebnis:

• Wird beim Aufruf von ShowModal ein Button geklickt (auch ein impliziter Klick auf den Standard-Button ist ein klick) wird Button.ModalResult in Form.ModalResult gespeichert.
• In Form.OnCloseQuery kann Form.ModalResult ausgewertet werden.
• Form.ShowModal verwendet Form.ModalResult als Rückgabewert. (warum schaut eigentlich niemand in den Quelltext?)

[pluto]

Warum so kompliziert? Für so etwas gibt es doch ShowModal und ModalResult.

Ich weiß, aber ich war damit nicht richtig Zufrieden. Ich meine das hatte auch Probleme, frag mich aber nicht welche. Meine Lösung geht immer und ist recht einfach. Aber wen das mit ModalResult geht ist das natürlich Prima.