Kontextmenü, Parameterübergabe, Dateiupload

[jacko1988]

So schauts aus nun, nur bekomme ich die Showmessage nicht.
Im OnShow Ereigniss der Form1 ist OnShow eingetragen.

Code:

procedure TForm1.FormShow(Sender: TObject);
      var StrParam1 : String;
begin
if (ParamCount>0) and (FileExists(ParamStr(1))) then
      begin
      showmessage(StrParam1);
         //Form1.PDFoeffnenKontext(ParamStr(1));
      end;
end;

[DeddyH]

Setz doch mal einen Breakpoint in die erste Zeile und schau, ob dort auch angehalten wird.

P.S.: benutze doch bitte Delphi-Tags, das ist der Helm im Beitragseditor.

[jacko1988]

Habe nen Breakpoint gesetzt.
Prgramm via Delphi compiliert, Parameterübergabe ausgeführt:

Keine Reaktion.

Es passiert nichts, nichtmal in Delphi.

[DeddyH]

Kannst Du mal die *.dfm von Form1 hier posten? Irgend etwas scheint ja damit nicht zu stimmen.

[jacko1988]

Jop. als txt angehangen.

[DeddyH]

Das sieht soweit korrekt aus. Aber dann müsste doch der Haltepunkt auch angesprungen werden. Hast Du evtl. die Release-Konfiguration aktiviert? Falls ja, stell doch mal auf Debug um, erzeuge das Projekt neu und versuch es noch einmal mit dem Haltepunkt.

[jacko1988]

Projekt -> Optionen

Compiler -> Build-Konfiguration := Debug

Ich setze einen Halte punkt in Zeile 736:

das ist die Zeile NACH begin von TForm1.FormShow(Sender: TObject)

Ich compiliere.

Beim compilieren hält er an diesem Punkt. Ich drücke F9.

Programm startet.

Ich führe die Parameterübergabe aus, nichts passiert.