Zitat von
gordon freeman:
Wofür dann diese "aborted" Variable, das habe ich noch nicht verstanden. Ist die dann nicht überflüssig?
Da ich dachte das du einen Dialog wolltest (OK, Abbrechen), habe ich das mit aborted gesagt. In der steht, ob die Form über Abbrechen oder über OK geschlossen worde.
Du muss natürlich das schließen selber übernehmen.
Du könntest alternativ das als Property anlegen, und bei "write" "SetAborted" schreiben, mit der Methode, die FAborted setzt & schießt.
Ich poste mal den Code für Dialoge mit OK und Abbrechen:
Delphi-Quellcode:
type
TDialogFrm = class(TForm)
// etc.
private
aborted : Boolean;
// etc.
end;
procedure bAbortClick...
begin
close;
end;
procedure bOKClick...
begin
aborted := false;
close;
end;
function ShowModal... : Boolean;
begin
aborted := true;
// Alles auf "Ursprung" setzten, wenn die Form nicht seperat erstellt wird
inherited; // ggf. inherited ShoModal;
result := not aborted;
end;
Um das mit meheren Modi zu machen (OK, Ignorieren etc.), funktioniert das ganze dann über Integer, welche dann entsprechend gesetzt werden.
Am besten dazu dann noch Konstanten schreiben, oder viel besser, die vorhanden nehmen (ID_YES etc.) ^^