Delphi7 -> Jede Form soll in Taskbar erscheinen

eXploit4D · Beiträge: 21 D7 Enterprise

Hallo,

ich bin neu hier und versuche grad ein paar grundlegende Sachen in Delphi7!

ich habe die aufgabe ein programm zu entwickeln das aus einer DLL verschiedene Sachen ausliest und einschrieben kann ... darunter auch links die im TWebBrowser geöffnet werden sollen. Ich habe ein Hauptprogramm mit den Buttons, die automatisch die links aus der DLL ausliest ... dann habe ich neue Formen die den TWebBrowser enthalten und die beim öffnen den Link aus der DLL öffnen! Außerdem gibts eine "Setup" form auf der ich einstellungen der Ini bearbeiten kann! Also habe ich 3 Formen ... Hauptform -> Settings -> BrowserForm. das funktioniert jetzt auch alles. nun zu meinen fragen

1. Wie mache ich es das Jede Form in der Taskbar erscheint? nicht nur die Hauptform?

tut mir leid das es so viele posts von mir gibt, der admin wollte es so!
cya eX

Moderiert von Tino: Topic aus Sonstiges verschoben am Sa 26.02.2005 um 20:26

jaenicke · Verfasst: Di 14.12.04 13:32

ShowWindow

eXploit4D · Beiträge: 21 D7 Enterprise

hibbert · Verfasst: Di 14.12.04 14:36

die delphi - Hilfe hilft da schon:

markieren

Delphi-Quelltext

1:	ShowWindow(form2.Handle, SW_SHOWNORMAL

da ich auch gerade dabei bin: ich habe eine Dynamisch erstellte Form. Wie kann ich diese auch in der taskleiste anzeigen lassen ?

Mit dem Code

markieren

Delphi-Quelltext

1:
2:
3:

new_form:=TForm.CreateNew(Application);
new_form.show;
ShowWindow(new_form.Handle, SW_SHOWNORMAL

geht das net

hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

eXploit4D · Beiträge: 21 D7 Enterprise

bei mir in der delphi hilfe findet er showwindow gar nicht! sonst hätte ich ja nich nochma nachgefragt, okay bei deinem sourcecode (nummer 1, statisch) öffnet er mir das fenster nur schließen kann ichs nichtmehr .. und in der taskleiste wirds nich angezeigt ... werd mal weiter suchen! meld dich wenn du was gefunden hast

Motzi · Verfasst: Di 14.12.04 19:37

Diese und ähnliche Fragen gab es bereits.. einen Thread mit Lösung findest du zB hier:
www.delphi-forum.de/...hlight=wsexappwindow

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

hibbert · Verfasst: Di 14.12.04 23:31

hi,
danke für den Link, aber ich mache das ganze ja mit dynamischen Formen, nicht mit beiets "vorgefertigten".

Da kann ich mir echt kein Reim draus machen.... :oops:

hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Motzi · Verfasst: Di 14.12.04 23:37

hibbert hat folgendes geschrieben:

danke für den Link, aber ich mache das ganze ja mit dynamischen Formen, nicht mit beiets "vorgefertigten".

Wie meinst du das..? Du erzeugst direkt Instanzen von TForm? Falls ja könntest du ja trotzdem einfach eine Klasse von TForm ableiten, die eine Methode überschreiben und dann halt einfach Instanzen von dieser Klasse erzeugen. Falls du das nicht willst kann man das ganze aber auch per SetWindowLong im nachhinein machen indem man das WS_EX_APPWINDOW-Flag im Extended-WindowStyle setzt.

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

eXploit4D · Beiträge: 21 D7 Enterprise

okay ich habs und werde es versuchen so zu erklären das es jeder anfänger versteht!

1. zuerst geht ihr in die Form die angezeigt werden soll (als neuer Taskbar eintrag)

2. geht hier hin:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

unit UnitX; // hier steht eure Unit

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles, Menus;    // hier die uses

type
    TForm1 = class(TForm)
    Button1: TButton;
    Buttons .....

    procedure Info1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }    // <----- hier rein gehen !!!!
    procedure CreateParams(var Params: TCreateParams); override;   // <--- Zeile einfügen

und haut diese Zeile in die public declarations reins (wie oben dargestellt)

markieren

Delphi-Quelltext

1:	procedure CreateParams(var Params: TCreateParams); override; // <--- Zeile einfügen

3. Nun fügt Ihr diese Prozedur ein (dahin wo auch die anderen Prozeduren stehen)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm3.CreateParams(var Params: TCreateParams);  
begin  
  inherited;  
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;  
end;

Nun startet euer Program und ihr werdet sehen das auch die Form in der Ihr diese Zeilen eingefügt habt in der Taskbar erscheint!

P.s. Gruß an alle die genauso wenig ahnung hatten wie ich!

cya eX

Moderiert von Motzi: Code- durch Delphi-Tags ersetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme