Standardverhalten von Dialogen (ab)ändern

[Alter Mann]

Hallo

@NickelM

Klar, verschreiben kann man sich immer!
Nicht aber im diesen Fall.

@Lukie
Das mit der Tag-Eigenschaft ist klar, nur ändert das nichts am Problem.

@grenzgaenger

Nee, sobald SerachListView abgearbeitet und damit 'FSearching = true' ist.

[edit] 'zwischengefunkt'
@alzaimar

Ja und Nein.

Warum zwei Button für die gleiche Aufgabe verwenden?
Im Zeitalter von Quad-Core und Co. mach es zwar egal sein, aber von der Funktionalität nicht.
[/edit]

@All

Mal so nebenbei:

Ist euch eigentlich schon mal aufgefallen, das da etwas Faul ist?

Man nehme eine Hauptform und ein Dialog, bei dem Dialog, BorderStyle = bsDialog.

Im Dialog, zwei Buttons und TEdit welches als property Text veröffentlicht ist,

Im OI : btnOK = Caption = 'OK' = ModalResult = mrOK.
btnCancel = Caption = 'Abbruch' = ModalResult = mrCancel.

Den Dialog aus 'Project->Optione->Formulare->Automatisch Erzeugen' nach 'Project->Optione->Formulare->Verfügbare Formulare'
verschieben.

Und ruft den Dialog im über einen Menüpunkt im Hauptformular etwa so auf:

Delphi-Quellcode:

procedure TForm1.DialogExecute(Sender: TObject);
var
  Ret :Boolean;
  St  : String;
begin
  Dialog  := TDialog.Create(Self);
  try
    Dialog.ShowModal;
    Ret := SearchDialog.ModalResult = mrOK;
    if Ret then St := Dialog.Text; 
  finally
    SearchDialog.Free;
  end;
end;

Angenommen Ihr habt im Edit einen Text eingegeben oder auch nicht, welchen Wert hat Ret wenn Ihr btnOk klickt?

Nicht raten, testen.

Gruß