Zitat von
uhuleitz:
danke für die begriffe, habe diese in der help funktion durchgelesen, aber bin ncith sicher ob das richtige für mcih dabei ist, bzw wie ich es anwenden soll..
ich möchte, dass wenn die form geschlossen wird durch click auf x (oben rechts an der form in rot)
dass dann eine shell execute ausgeführt wird, zb auf die seite google.de
wie baue ich einen solchen befehl und welchen ein???
@uhuleitz
Habe mir bisher immer so geholfen, dadurch wird der Abbrecher
mit dem [X] Knopf auch dazu gezwungen, die Routine zu durchlaufen,
als wenn er den [Exit] Button angeklickt hätte.
Delphi-Quellcode:
bExit : TButton;
...
private
var ExitIsCalled : boolean;
...
function TForm1._beforeExit:boolean;
begin
// add a query before close application here
{-}
result:=True;
// or always close app
end;
procedure TForm1.bExitClick(Sender: TObject);
begin
ExitIsCalled:=_beforeExit;
if ExitIsCalled
then Form1.Close;
{-}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
...
ExitIsCalled:=False;
...
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if ExitIsCalled
then begin
{bExit was already pressed, user want to exit now}
end else begin
{bExit not pressed, but [X]-button be pressed}
ShowMessage('
Please Use In Future Times The ExitButton - Okay:)');
if _beforeExit
then {okay, closing form now}
else Action:=caNone;
{stop closing form}
end;
end;
Mit freundlichen Grüßen
Manfred Zenns