AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Projektstart autom. Archivierung

Ein Thema von Ati · begonnen am 10. Feb 2004 · letzter Beitrag vom 19. Mär 2004
Antwort Antwort
Seite 4 von 4   « Erste     234
Benutzerbild von M-O-D
M-O-D

Registriert seit: 21. Feb 2004
Ort: Create(self)
74 Beiträge
 
Delphi 6 Enterprise
 
#31

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 10:23
Ähhh,

dazu solltest Du ein Popup Menü bereitstellen mit den einträgen
-Programm anzeigen
-Programmende

Beim click auf anzeigen startest dann ne Prozedur, z.B. so

Delphi-Quellcode:

procedure ZeigeFenster;
//Zeigt das Programm Fenster
begin
   //Fenster wieder in der Taskleiste sichtbar machen
   ShowWindow(Application.Handle, SW_SHOW);
   //Fenster auf dem Bildschirm sichtbar machen
   ShowWindow(self.Handle, SW_SHOW);
end;
Sollte eigentlich so gehn...

Grüße
Ich lebe zwar über meine Verhältnisse, aber immer noch unter meinem Niveau...
  Mit Zitat antworten Zitat
Benutzerbild von M-O-D
M-O-D

Registriert seit: 21. Feb 2004
Ort: Create(self)
74 Beiträge
 
Delphi 6 Enterprise
 
#32

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 10:30
Natürlich noch die Hälfte vergessen!!! Das Menü soll ja beim Klick auf das Icon in der Taskbar aufklappen, dazu musst Du den Klick abfangen

Delphi-Quellcode:
//Deklaration:
procedure WMTaskBarEvent(var message: TMessage); message WM_TASKBAR_EVENT;
//Diese Procedure redistriert den Klick auf das Icon
procedure TfrmMain.WMTaskBarEvent(var message: TMessage);
begin
   //Auswerten des unteren bereichs von LParam
   //Param = 32 Bitwert unterteilt in 16 Lo und 16 Hi

   case message.LParamLo of

      WM_LBUTTONDBLCLK   :   ZeigeFenster;
       //WM_LBUTTONDOWN      : ZeigeMenue;
       WM_RBUTTONDOWN      : ZeigeMenue;

   end;
end;

//Diese Procedure zeigt dann das Menü an
procedure ZeigeMenue;
//Zeigt das Menue
var
   crsPos   : TPoint;
begin
   //Die aktuelle Cursorposition auslesen
   GetCursorPos(crsPos);
   //Damit das Menü auch wieder zugeht, wenn nix geklickt wurde
   //muss das unsichtbare fenster in den Vordergrund
   SetForeGroundWindow( self.Handle );
   //Menü an Cursorposition aufklappen lassen
   popMain.Popup(crsPos.X, crsPos.x);

end;
Vielleicht kannste das aber auch in der Komponente einstellen, habe sie selbst noch nicht verwendet, bloss gesehn!

CU
Ich lebe zwar über meine Verhältnisse, aber immer noch unter meinem Niveau...
  Mit Zitat antworten Zitat
Ati

Registriert seit: 16. Okt 2003
Ort: Gelsenkirchen
406 Beiträge
 
Delphi 3 Professional
 
#33

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 15:00
Hat super geklappt. Vielen Dank. Da ich aber eine faule S.. bin, hab ich das nur so gemacht, daß bei einem Doppelklick das Fenster wieder angezeigt wird. Also ohne Menue.
Ich weiß das ich nichts weiß

Sokrates
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 15:06
Wenn du es nur für Delphi Projekte baruchst und es nicht selber machen willst, kuck dir mal das PlugIn für die IDe GExperts an, da hat es was zum Archivieren des Projektes.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Ati

Registriert seit: 16. Okt 2003
Ort: Gelsenkirchen
406 Beiträge
 
Delphi 3 Professional
 
#35

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 15:35
Und wo finde ich das
Ich weiß das ich nichts weiß

Sokrates
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Projektstart autom. Archivierung

  Alt 2. Mär 2004, 20:49
Zur Not mit Google. Einen direkten Link habe ich auch nicht parat.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Ati

Registriert seit: 16. Okt 2003
Ort: Gelsenkirchen
406 Beiträge
 
Delphi 3 Professional
 
#37

Re: Projektstart autom. Archivierung

  Alt 19. Mär 2004, 13:15
M-O-D hat ja den Vorschlag gemacht das mein Programm alte Dateien automatisch nach einigen Tagen löscht. Da mein Programm in der Endphase ist möchte ich jetzt diesen Gedanken mal aufgreifen. Wie kann ich das jetzt theoretisch hinkriegen? Die gespeicherte (archivierte) Datei läuft unter folgendem Beispiel "blabla19.03.04.txt".
Ich weiß das ich nichts weiß

Sokrates
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 07:45 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