AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mainform verstecken

Ein Thema von the_seed · begonnen am 31. Jul 2004 · letzter Beitrag vom 28. Jun 2019
 
Delphi.Narium

Registriert seit: 27. Nov 2017
2.592 Beiträge
 
Delphi 7 Professional
 
#13

AW: Mainform verstecken

  Alt 27. Jun 2019, 15:42
Steck doch den wesentlichen Code aus dem FormActivate in eine eigene Methode und rufe die dann wahlweise im FormActivate oder an beliebiger anderer Stelle auf.
Delphi-Quellcode:
program hcFileTransfer;

uses
  Forms,
  ftpprogressf in 'ftpprogressf.pas{FormFtpprogressf},
  ftpf in 'ftpf.pas{formFTP},
  ftpdialogf in 'ftpdialogf.pas{FormFtpdialog};

begin
  Application.Initialize;
  Application.ShowMainForm := ParamCount > 1;
  Application.Title := 'hcFTP';
  Application.CreateForm(TformFTP, formFTP);
  if Application.ShowMainForm then begin
    Application.Run;
  end else begin
    // Hier die "neue" Methode aufrufen,
    formFTP.DoIt;
  end;
end.
Delphi-Quellcode:
procedure TformFTP.DoIt;
begin
   if ParamCount > 0 then
   begin
      if lowercase(ParamStr(1)) = '-upthen
      begin
         parameterUpload; //Lade datei Hoch
      end
      else if lowercase(ParamStr(1)) = '-downthen
      begin
         parameterDownload; //Lade date Herunter
      end
      else
      begin
         showmessage('Ungültige Parameter!');
      end;
      Close;
   end;
end;

procedure TformFTP.FormActivate(Sender: TObject);
begin
  DoIt;
end;
Ungetestet hingedaddelt.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz