AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Programmposition beim Doppelaufruf ändern?
Thema durchsuchen
Ansicht
Themen-Optionen

Programmposition beim Doppelaufruf ändern?

Ein Thema von OrNEC · begonnen am 9. Dez 2010 · letzter Beitrag vom 10. Dez 2010
Antwort Antwort
OrNEC

Registriert seit: 6. Nov 2009
493 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:11
Die Position wird doch im OnCreate glesen und dementsprechend angezeigt, poDefaultPosOnly kann da leider nichts mehr bewirken, denke ich. Habs auch getestet und das stimmt so.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:18
Natürlich nicht. Entweder das eine oder das andere. Aber wenn du das nicht willst, wirst du dich wohl mal mit Mutex und OneInstance auseinandersetzen müssen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
H3llsing

Registriert seit: 12. Nov 2008
96 Beiträge
 
Delphi 2010 Enterprise
 
#3

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:20
kannst du nicht mit dieser Komponente OneInstance angeben was geschehen soll wenn das Programm bereits gestartet ist ?

Dann könntest du es doch mit deinen Positionswerten starten.

ich glaub diese Komponente wars
-> http://www.delphipraxis.net/28020-me...erhindern.html


EDIT:
hab grad nochmal Nachgeschaut, die Kompo hat 2 ereignisse
OnExist und OnSwitch
damit lässt sich doch was anfangen

Geändert von H3llsing ( 9. Dez 2010 um 15:22 Uhr)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.784 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:31
.. aber ist es denn nicht so, dass Mutex und OneInstance nur erkennt das schon eine Instanz läuft und nicht wie viele?
Wenn also schon zwei laufen (die verschiedene Positionen haben) wird die dritte auch auf die Position der zweiten Instanz gelegt.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
H3llsing

Registriert seit: 12. Nov 2008
96 Beiträge
 
Delphi 2010 Enterprise
 
#5

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:59
Ich weiß nicht obs auch leichter geht, aber man könnte sich die Fensternamen aller laufenden Handles ausgeben lassen und diese dann mitzählen. Bei mehr als 2 = Exit

Sowas zum beispiel ?!
listbox zum mitlesen der Fensternamen
// nicht getestet

Delphi-Quellcode:
 public
    { Public-Deklarationen }
  end;

  PMyEnumParam = ^TMyEnumParam;
  TMyEnumParam = record
    lb: TListbox;
 end;

...

FUNCTION TfrmMain.getAnzahlProgrammInstanzen(): Integer;
VAR
  Param: TMyEnumParam;
  I: Integer;
  wndHandle : TwndHandle;
  meinCounter :integer;

  function GetWindows(const hWnd : Longword; Param: PMyEnumParam): LongBool; stdcall;
var
  Len : Longint;
  S : String;
begin
  Result := True;
  if not ( IsWindow(hWnd) and IsWindowVisible(hWnd) ) then Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    SetLength(S, Len);
    SendMessage(hWnd, WM_GETTEXT, Len + 1, Longint(Pchar(S)));
    Param.lb.Items.Add(Inttostr(hwnd) + '; ' + s);
  end;
  // mit Result = False kann die Callbackfunktion vorzeitig verlassen werden
end;

BEGIN

  ListBox1.Items.Clear;
  Param.lb := Listbox1;
  Listbox1.Items.clear;
  EnumWindows(@GetWindows, LPARAM(@Param));


  //F2 aus Taskleiste anzeigen
  FOR I := 0 TO ListBox1.Items.Count - 1 DO
  BEGIN
    //machwas mit den fensternamen
    IF Pos('FENSTERNAME', Trim(AnsiUppercase(ListBox1.Items.Strings[i]))) > 0 THEN
      inc(meinCounter);
  END;

  
  result := meinCounter;


END;
  Mit Zitat antworten Zitat
OrNEC

Registriert seit: 6. Nov 2009
493 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 16:11
Also ich verdeutliche das mal.
Meine Anwendung darf man auch 15 mal starten, nicht nur 2 mal, sondern x mal.

Die Postion des Fensters wird abgespeichert und beim Aufruf der Anwendung gelesen. poDefaultPosOnly funktioniert bei mir nicht, da ich die Postion selber manuell bestimme, der Test hat das auch bestätigt. Ich denke das muss so laufen:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
 if (läuft schon eine Anwendung?) then
 begin
 PositionLeft=PositionLeft+20;
 PositionTop=PositionTot+20;
 end;
end;
  Mit Zitat antworten Zitat
H3llsing

Registriert seit: 12. Nov 2008
96 Beiträge
 
Delphi 2010 Enterprise
 
#7

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 16:45
Achso ! Ich bin von nur 2 mal ausgegangen aufgrund dieser Aussage

Stichwort Mutex OneInstance.
.... Und das brauche ich nicht, da mein Programm gerade 2 mal starten darf, ....


du könntest dir auch das Fensterhandle der zu letzt erstellten Instanz ausgeben lassen und daran dann die Aktuelle Position + 20 nehmen und dann deine neue Intanz erstellen.
  Mit Zitat antworten Zitat
OrNEC

Registriert seit: 6. Nov 2009
493 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 16:58
du könntest dir auch das Fensterhandle der zu letzt erstellten Instanz ausgeben lassen und daran dann die Aktuelle Position + 20 nehmen und dann deine neue Intanz erstellen.
Wie geht denn das? Fensterhandle? Was das ein Rückgabewert oder wie kann man das verstehen?
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#9

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:36
Die Position wird doch im OnCreate glesen und dementsprechend angezeigt, poDefaultPosOnly kann da leider nichts mehr bewirken, denke ich. Habs auch getestet und das stimmt so.
Natürlich setzt man die Eigenschaft schon im Objektinspektor!
poDefaultPosOnly bedeutet, dass sich das Betriebssystem die Position des Fensters aussucht.
Startet man das gleiche Programm mehrmals dann sorgt das Betriebsysstem dafür, dass jedesmal eine andere Position gewählt wird.
Starte mal den Taschenrechner (calc.exe) mehrmals, dann siehst du wie das aussieht.
Andreas
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#10

AW: Programmposition beim Doppelaufruf ändern?

  Alt 9. Dez 2010, 15:47
denke er will doppelten Komfort bieten?

1.Instanz wird an letzter gespeicherter Position angezeigt.
2.-n. überlapped
  Mit Zitat antworten Zitat
Antwort Antwort


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 06:04 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