Forum: Sonstige Fragen zu Delphi
by DeddyH,
30. Nov 2012
Und der Breakpoint wird auch nicht angesprungen, vermute ich mal. Wenn es nicht zu geheim ist, pack doch das ganze Projekt mal in ein Zip-Archiv und hänge das an Deinen Beitrag an, vielleicht sieht ja dann eher jemand, woran das liegen könnte.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Gib doch zum Testen einfach unter Start-Parameter einen Dateinamen ein.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Wird der Haltepunkt ausge'x't? Irgendwelche Compilermeldungen? Und was meinst Du mit "Parameterübergabe ausführen"?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
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.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Kannst Du mal die *.dfm von Form1 hier posten? Irgend etwas scheint ja damit nicht zu stimmen.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
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.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Kann er ja auch. Du sollst doch nur das ParamStr-Gedöns aus der *.dpr herausnehmen und im Hauptformular verarbeiten.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
begin
if (ParamCount>0) and (FileExists(ParamStr(1))) then
begin
Form1.Show; //<-- Hier gibt es noch kein Form1...
end;
Semaphore := CreateSemaphore(nil, 1, 1, PChar(MainUnit.MyGUID));
if (GetLastError = ERROR_ALREADY_EXISTS) then
PostMessage (HWND_BROADCAST, MainUnit.ActivationMessage,0,0)
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Wenn in der Methode nichts passiert, ist möglicherweise der Handler nicht mit dem Ereignis verknüpft. Das kann man aber im Objektinspektor leicht feststellen.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
procedure TForm1.FormShow(Sender: TObject);
begin
if (ParamCount>0) and (FileExists(ParamStr(1))) then
PDFoeffnenKontext(ParamStr(1));
end;
Wieso sollte sich das nicht aufrufen lassen?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Nov 2012
Wenn man absolute Pfade verwendet, sollte das Arbeitsverzeichnis aber keine Rolle spielen.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Nov 2012
Also wenn das Formular samt aller darauf befindlichen Komponenten bereits zu sehen ist, fällt mir im Moment auch nichts mehr ein. Möglicherweise handelt es sich um einen Seiteneffekt, der durch Code verursacht wird, den Du nicht gepostet hast, aber das ist reine Kaffeesatzleserei. Ich würde noch das "Form1." vor lbStatuschng entfernen, aber das ist wohl hier nicht die Ursache.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Nov 2012
Und der Fehler tritt nachweislich in der pbStatus-Zeile auf (im Debugger durchgesteppt)?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Nov 2012
Um das einmal zu präzisieren: wir hegen beide den Verdacht, dass die pbStatus-Instanz zum Aufruf-Zeitpunkt noch nicht existiert bzw. vollständig initialisiert ist.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Nov 2012
Ist denn das Fenster zu dem Zeitpunkt schon sichtbar?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Nov 2012
Funktioniert es, wenn Du testhalber vor dem Aufruf von cosupload() ein Application.ProcessMessages einfügst?