FormActivate gegenstück

[Hawkeye219]

Hallo,

auch die Verwendung von OnClose ist nicht unproblematisch: klick

Gruß Hawkeye

[uhuleitz]

also mein code lautet nun:


procedure TTravianSammlung.closing(Sender: TObject);
begin
shellexecute(handle,'open','http://uhuleitz.kleine-stadt.com',nil,nil,sw_show);
end;


nur leider passiert ncihts, wenn ich auf das schliessen x drücke

[DeddyH]

Wo kommt denn das Closing her? Hast Du mein letztes Posting nicht gelesen?

[uhuleitz]

na doch^^

bei klick auf das ondeactivate musste ich eine caption angeben habe diese eben closing genannt...

name ist doch eig egal oder?

[himitsu]

Zitat von DeddyH:

Wo kommt denn das Closing her? Hast Du mein letztes Posting nicht gelesen?

Der Name ist vollkommen egal (erkönnte es ebenfalls Opening nennen, auch wenn's sinnlos und unverständlich wär),
solange die Ereignisprozedur dem Ereignis zugeordnet ist.

[jaenicke]

Schreibs bei OnClose hin, dann klappt das auch... Doppelklicke einfach auf OnClose...

[uhuleitz]

Zitat von himitsu:

Zitat von DeddyH:

Wo kommt denn das Closing her? Hast Du mein letztes Posting nicht gelesen?

solange die Ereignisprozedur dem Ereignis zugeordnet ist.

Genau hier scheint mein problem zu sein, denn es kommt keine fehlermeldung derart, dass ich eine seltsame procedur habe oder dass diese unbenutzt wäre...

wie stelle ich also fest, dass sie richtig zugeordnet ist?

[DeddyH]

Mach einen Doppelklick im OI, dann wird das Ereignis auch zugeordnet.

[himitsu]

Zitat von uhuleitz:

wie stelle ich also fest, dass sie richtig zugeordnet ist?

Indem du in den OI schaust und nachsiehst ob deine Prozedur dem entsprechenden Ereignis zugeordnet ist.

[mz23]

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