AGB  ·  Datenschutz  ·  Impressum  







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

Minimiert starten...

Ein Thema von GimbaR · begonnen am 31. Aug 2004 · letzter Beitrag vom 2. Sep 2004
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von GimbaR
GimbaR

Registriert seit: 17. Apr 2004
Ort: Weltmetropole Rostock ;)
134 Beiträge
 
Delphi 2006 Professional
 
#1

Minimiert starten...

  Alt 31. Aug 2004, 13:10
... Wie kann ich mein programm minimiert starten?
Ich hab vorher versucht im OnCreate-Ereigniss die procedure GoToTray zu laden, die mein programm minimiert, wenn ich auf einen Button klicke 8also funktioniert die procedure)
hier meine GoToTray procedure:
Delphi-Quellcode:
procedure TForm1.GoToTray;
var
  i: Integer;
  NewItem: TMenuItem;
begin
  SaveConfig;
  CoolTrayIcon1.ShowBalloonHint('Einstellungen gespeichert',
        'Die Einstellungen wurden erfolgreich gespeichert.',
        bitNone, 10);
  Timer1.Enabled:=true;
  PopupMenu1.Items.Clear;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Scannen');
    NewItem.OnClick:=PopupItemClickScan;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('-');
  for i:= 0 to ComboBox1.Items.Count-2 do
  begin
    gamename:=ComboBox1.Items[i];
    NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=(gamename);
    NewItem.OnClick:=PopupItemClick;
  end;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('-');
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Eintellungen');
    NewItem.Default:=true;
    NewItem.OnClick:=PopupItemClickOptions;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Hilfe');
    NewItem.OnClick:=PopupItemClickHelp;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Beenden');
    NewItem.OnClick:=PopupItemClickExit;
  Application.Minimize;
  CoolTrayIcon1.PopupMenu:=PopupMenu1;
  CoolTrayIcon1.HideMainForm;
end;
leider startet meine anwendung ganz normal, sie wird nicht in die TNA verschoben
Wie bekomme ich sie in die TNA?

mfg GimbaR
Jonas
Bei dem Tempo ist es nur noch eine Frage der Zeit bis SSchäuble verlangt allen deutschen Bürgern ein Halsband zur ständigen Überwachung zu verpassen...
  Mit Zitat antworten Zitat
Benutzerbild von Dani
Dani

Registriert seit: 19. Jan 2003
732 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Minimiert starten...

  Alt 31. Aug 2004, 13:23
Soviel ich weiß besitzt/besaß die CoolTrayIcon Komponente ein OnStartup (oder so) Event, wo du festlegen kannst, ob das Formular angezeigt werden soll oder nicht.
Dani H.
At Least I Can Say I Tried
  Mit Zitat antworten Zitat
Benutzerbild von GimbaR
GimbaR

Registriert seit: 17. Apr 2004
Ort: Weltmetropole Rostock ;)
134 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Minimiert starten...

  Alt 31. Aug 2004, 15:10
habs probiert, ging abba net...
Delphi-Quellcode:
procedure CoolTrayIcon1.OnStartup(irgendwas^^);
begin
   GotoTray;
end;
oder:
Delphi-Quellcode:
procedure CoolTrayIcon1.OnStartup(irgendwas^^);
begin
   GotoTray;
   Application.Minimize;
end;
Jonas
Bei dem Tempo ist es nur noch eine Frage der Zeit bis SSchäuble verlangt allen deutschen Bürgern ein Halsband zur ständigen Überwachung zu verpassen...
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Minimiert starten...

  Alt 31. Aug 2004, 15:14
Schreib mal in die Projektdatei:
Application.ShowmainForm := False;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von GimbaR
GimbaR

Registriert seit: 17. Apr 2004
Ort: Weltmetropole Rostock ;)
134 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Minimiert starten...

  Alt 31. Aug 2004, 15:51
hab das mal im project gespeichert (also net in Form1):
Delphi-Quellcode:
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  Application.ShowmainForm := False;
end.
hat net geklappt...
muss dass in OnStartUp-Ereigniss von CoolTrayIcon?
Jonas
Bei dem Tempo ist es nur noch eine Frage der Zeit bis SSchäuble verlangt allen deutschen Bürgern ein Halsband zur ständigen Überwachung zu verpassen...
  Mit Zitat antworten Zitat
Benutzerbild von nailor
nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
 
#6

Re: Minimiert starten...

  Alt 31. Aug 2004, 15:54
probier mal das showmainform vor das form create
Michael N.
http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::
  Mit Zitat antworten Zitat
Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#7

Re: Minimiert starten...

  Alt 31. Aug 2004, 16:15
Muss nicht unbedingt vor Create sein, Hauptsache vor run

Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat
Golze

Registriert seit: 26. Aug 2004
Ort: Berlin
32 Beiträge
 
Delphi 5 Enterprise
 
#8

Re: Minimiert starten...

  Alt 31. Aug 2004, 18:55
habe die gerade die zweitbeste Lösung gelesen mit
Application.ShowMainForm := False
Nachteil: Das OnShow-Ereignis - in dem erst das komplette Handle verfügbar ist - wird nicht mehr durchlaufen. Alternativen wären
Delphi-Quellcode:
...
Const
  ShowArray: array [Boolean] of Integer = (sw_showNormal, sw_Hide);
begin
  if not (csDesigning in ComponentState) then
    ShowWindow(Application.Handle, ShowArray[FHideTask]);
...
oder auch nicht zu verachten mit CreateParams(..).

richtig gut finde ich aber
Delphi-Quellcode:
program project1;
uses
  Forms;
{$R *.RES}

begin
  Application.Initialize;
  Application.Run;
end;
Keine Form mehr da. Einfach weg; nix mehr Form anzeigen und ärgern.
kay
Kay Golze
  Mit Zitat antworten Zitat
Benutzerbild von Sprint
Sprint

Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
 
Delphi 5 Professional
 
#9

Re: Minimiert starten...

  Alt 31. Aug 2004, 18:59
Die Eigenschaft ShowMainForm kann auch im Create Ereignis der Form gesetzt werden.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm := False;
end;
  Mit Zitat antworten Zitat
Benutzerbild von GimbaR
GimbaR

Registriert seit: 17. Apr 2004
Ort: Weltmetropole Rostock ;)
134 Beiträge
 
Delphi 2006 Professional
 
#10

Re: Minimiert starten...

  Alt 31. Aug 2004, 20:18
Zitat von Golze:
habe die gerade die zweitbeste Lösung gelesen mit
Application.ShowMainForm := False
Nachteil: Das OnShow-Ereignis - in dem erst das komplette Handle verfügbar ist - wird nicht mehr durchlaufen. Alternativen wären
Delphi-Quellcode:
...
Const
  ShowArray: array [Boolean] of Integer = (sw_showNormal, sw_Hide);
begin
  if not (csDesigning in ComponentState) then
    ShowWindow(Application.Handle, ShowArray[FHideTask]);
...
oder auch nicht zu verachten mit CreateParams(..).

richtig gut finde ich aber
Delphi-Quellcode:
program project1;
uses
  Forms;
{$R *.RES}

begin
  Application.Initialize;
  Application.Run;
end;
Keine Form mehr da. Einfach weg; nix mehr Form anzeigen und ärgern.
kay
Kannst du mir das erste Bsp genauer erklären, plz, hab kA woarauf du hinaus willst, bzw wo ich das einbinden soll...
Hab das mal so versucht, hat abba auch net geklappt (ganuso wenig wie das Einfügen der Zeile Application.Minimize:=false; im OnCreate-ereigniss der MainForm)

Delphi-Quellcode:
program GB;

uses
  Forms, IniFiles, SysUtils, Dialogs,
  main in 'units\main.pas{Form1},
  Unit2 in 'units\Unit2.pas{Form2};

{$R *.res}

var
  ini: TIniFile;

begin
  Application.Initialize;
  Application.Title := 'GameBuster';
  Application.HelpFile := 'E:\sonstiges\Eigene Dateien\CODE\Delphi\GB.beta\GameBuster-help.chm';
  ini:=TInifile.Create(ExtractFilePath(ParamStr(0))+'\config.ini');
    try
      if ini.ReadBool('Options', 'StartMinimized', false)=true then Application.ShowMainForm:=false;
    finally
      ini.free;
    end;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
Jonas
Bei dem Tempo ist es nur noch eine Frage der Zeit bis SSchäuble verlangt allen deutschen Bürgern ein Halsband zur ständigen Überwachung zu verpassen...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 15:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz