In der IDE

[EWeiss]

gibt es ein flag mit dem ich prüfen kann ob ich mich in der IDE befinde?
Muss dementsprechend meine dwStyle ändern.

gruss

[implementation]

Delphi-Quellcode:

if csDesigning in ComponentState then begin
  // ...
end;

TComponent hat eine Eigenschaft namens ComponentState, die dieses Flag mitaufnehmen kann.

[WM_CLOSE]

oder zur Laufzeit:

Delphi-Quellcode:

if (DebugHook<>0) and (Findwindow(...,'TAppBuilder',...)<>0) then
//in der IDE

[implementation]

Ist meins doch auch :gruebel:
Das Flag ist automatisch vom FormDesigner gesetzt, damit die Komponenten merken, ob sie sich im FormDesigner oder im laufenden Programm befinden.
Da musst du sonst nichts mehr machen.

[EWeiss]

Ich dachte eher an so etwas..

Delphi-Quellcode:

WS_CHILD or LBS_SORT {$IFDEF INIDE} or WS_VISIBLE or WS_OVERLAPPEDWINDOW
      or WS_VSCROLL or WS_HSCROLL or WS_BORDER} {$ENDIF}

also Compiler Flag

gruss

[implementation]

Nein, so geht's nicht. Aber so:

Delphi-Quellcode:

if csDesigning in ComponentState then
  WS := S_CHILD or LBS_SORT or WS_VISIBLE or WS_OVERLAPPEDWINDOW
      or WS_VSCROLL or WS_HSCROLL or WS_BORDER
else
  WS := S_CHILD or LBS_SORT;

SetWindowLong( ... WS ... );

[EWeiss]

Zitat:

Zitat von implementation (Beitrag 1082524)

Ist meins doch auch :gruebel:
Das Flag ist automatisch vom FormDesigner gesetzt, damit die Komponenten merken, ob sie sich im FormDesigner oder im laufenden Programm befinden.
Da musst du sonst nichts mehr machen.

FormDesigner hab ich nicht..

Delphi-Quellcode:

if (DebugHook<>0) and (Findwindow(...,'TAppBuilder',...)<>0) then

wäre dann das richtige.

Zitat:

Nein, so geht's nicht.

Schade eigentlich ;)

gruss

[implementation]

[QUOTE=EWeiss;1082521]gibt es ein flag mit dem ich prüfen kann ob ich mich in der IDE befinde?
Muss dementsprechend meine dwStyle ändern.

Zitat:

Zitat von EWeiss (Beitrag 1082528)

FormDesigner hab ich nicht..

Das check' ich jetzt nicht :gruebel:
Wie meinst du dann 'in der IDE'?

Ob während das Programm ausgeführt wird, die IDE ausgeführt wird?

[Die Muhkuh]

nonVCL.

Wahrscheinlich will er wissen, ob er die Anwendung von der IDE ausgeführt hat oder nicht?

[WM_CLOSE]

wie wäre es denn mit

Delphi-Quellcode:

{$IFDEF Debug}

[EWeiss]

Zitat:

Zitat von Die Muhkuh (Beitrag 1082531)

nonVCL.

Wahrscheinlich will er wissen, ob er die Anwendung von der IDE ausgeführt hat oder nicht?

Ich erstelle eine NONVCL Listbox
Diese soll nicht sichtbar sein und benötigt diese gwlStyle also nicht wenn mein Programm alleine läuft.
Aber in der IDE schon damit ich prüfen kann ob alle Einträge der Listbox korrekt übergeben wurden.

Ich versuchs mal mit

Delphi-Quellcode:

{$Debug}

gruss

[WM_CLOSE]

OK: Mein Fehler:
du könntest es aber mit dem FindWindow alleine probieren.
denn das Delphi Hauptfenster heißt TAppBuilder (Classname).

Delphi-Quellcode:

FindWindow(nil, 'TAppBuilder')

(vllt auch umgedreht)

[EWeiss]

Zitat:

Zitat von WM_CLOSE (Beitrag 1082539)

OK: Mein Fehler:
du könntest es aber mit dem FindWindow alleine probieren.
denn das Delphi Hauptfenster heißt TAppBuilder (Classname).

Delphi-Quellcode:

FindWindow(nil, 'TAppBuilder')

(vllt auch umgedreht)

jo wäre dann die einzige möglichkeit
Denn das geht auch nicht.

Delphi-Quellcode:

    hBackgroundListBox := CreateWindowEx(0, 'LISTBOX', 'ID_BACKGROUND', WS_CHILD or LBS_SORT {$IFDEF DEBUG} or WS_VISIBLE or WS_OVERLAPPEDWINDOW
      or WS_VSCROLL or WS_HSCROLL or WS_BORDER {$ENDIF} , 870, 510, 820, 420, hMain,
      ID_BACKGROUND, skInstance, nil);

gruss

[Namenloser]

Kann man nicht Design-Time-Packages und Runtime-Packages getrennt erstellen? Irgendwie war da doch mal sowas... (machen viele Komponentensammlungen wie z.B. Graphics32, Indy glaubt ich auch). Hab das aber noch nie benutzt, daher weiß ich auch gar nicht so genau wofür das ist und ob das so funktioniert wie ich mir das vorstelle...

[himitsu]

Einen Compilerschalter kann es nicht geben, denn es kommt erst in den Debugger, nachdem es kompiliert wurde.
Und wärend es kompiliert wird, kann man nicht mit Sicherheit sagen, daß es danach "immer" nur im Debugger läuft.

Aber was mit "in der IDE" gemeint ist, wäre wirklich mal interessant.
> im FormDesigner
> im Debugger

[add]
Jupp, kann man (irgendwie).

[EWeiss]

Zitat:

Zitat von NamenLozer (Beitrag 1082543)

Kann man nicht Design-Time-Packages und Runtime-Packages getrennt erstellen? Irgendwie war da doch mal sowas... (machen viele Komponentensammlungen wie z.B. Graphics32, Indy glaubt ich auch). Hab das aber noch nie benutzt, daher weiß ich auch gar nicht so genau wofür das ist und ob das so funktioniert wie ich mir das vorstelle...

Ist nicht so tragisch.
Habe nur gedacht das es vieleicht so ein Flag gibt..
Also da es nicht geht muss ich halt ne Funktion zwischen bauen.

gruss

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1082545)

Einen Compilerschalter kann es nicht geben, denn es kommt erst in den Debugger, nachdem es kompiliert wurde.
Und wärend es kompiliert wird, kann man nicht mit Sicherheit sagen, daß es danach "immer" nur im Debugger läuft.

Aber was mit "in der IDE" gemeint ist, wäre wirklich mal interessant.
> im FormDesigner
> im Debugger

[add]
Jupp, kann man (irgendwie).

In der IDE bedeutet bei mir das ich Delphi geöffnet habe und das Programm am debuggen bin ;)
Außerhalb läuft mein Programm ohne Delphi :)
Hoffe ich zumindest ... Heheheheee

gruss

[WM_CLOSE]

Zitat:

Zitat von WM_CLOSE (Beitrag 1082523)

oder zur Laufzeit:

Delphi-Quellcode:

if (DebugHook<>0) and (Findwindow(...,'TAppBuilder',...)<>0) then
//in der IDE

Dann möchte ich nochmal darauf verweisen.
Wenn es nur dien eigenes prog ist, prüfe nur den DebugHook, der ist im Debugger immer gesetzt. (außer man setzt ihn mit Gewalt auf 0)
Das benutzte ich häufig, um evtl Debuginfos auf einer zusätzlichen Konsole auszugeben.
Sollte eigentlich gehen.
bzw bei der Arbeit, um die Seriennummerabfrage abzusichern.

Man bemerke, dass das einfacher zu umgehen ist, als die Doppelabfrage mit findwindow.

[lbccaleb]

Vllt hilft dir das weiter:

IsDebuggerPresent