[Delphi] Naam op taskbar

Pagina: 1
Acties:

  • maikel
  • Registratie: Januari 2001
  • Laatst online: 13:57
Hoe kan ik in Delphi ervoor zorgen dat een nieuw form (in runtime gecreëerd) op de taskbar z'n eigen naam krijgt?
Nu komt er op de taskbar 1 button (omdat het mainform ge-hide is) waarbij de naam van het programma staat.
Ik wil dus dat elk gecreëerd form een eigen button krijgt EN een eigen naam.
Zoals Outlook ook doet als je een nieuw mailtje maakt.

  • whoami
  • Registratie: December 2000
  • Laatst online: 11-09 22:04
code:
1
Self.Caption := 'hier komt m'n naam'

In de OnCreate van die form zetten?

https://fgheysels.github.io/


  • Guillome
  • Registratie: Januari 2001
  • Niet online

Guillome

test

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  public    
    procedure CreateParams(var Params: TCreateParams); override;
    { Public declarations }
  end;

var

implementation

{$R *.DFM}

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

*D

If then else matters! - I5 12600KF, Asus Tuf GT501, Gigabyte Gaming OC 16G 5080 RTX, Asus Tuf Gaming H670 Pro, 48GB, Corsair RM850X PSU, SN850 1TB, Arctic Liquid Freezer 280, ASUS RT-AX1800U router


  • maikel
  • Registratie: Januari 2001
  • Laatst online: 13:57
Op maandag 18 maart 2002 19:55 schreef XLerator het volgende:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  public    
    procedure CreateParams(var Params: TCreateParams); override;
    { Public declarations }
  end;

var

implementation

{$R *.DFM}

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

*D
Dit komt al een aardig eindje in de buurt.
Maar nu laat ie ook zo'n button van m'n main-form op de taskbar zien.
Dat is dus weer net NIET de bedoeling. (jaja, om het even lastiger te maken) :)

Ook is de naam op de taskbar-button nog steeds de naam van m'n app.

Nu ik het toch over die naam heb: ik check in m'n app ook of hij al een keer gestart is, maar bij sommige titels geeft ie gewoon de eerste keer al aan dat ie een window met die titel heeft gevonden.
Als ik 'm bijv. 'SC' noem start ie niet omdat ie blijkbaar al een window met de naam 'SC' heeft gevonden.
Ook bij 'Untitled - Message (Plain text)' geeft ie dat aan !

Maar ikzelf kan in beide gevallen geen window ontdekken met die titels hoor.

  • Cryothic
  • Registratie: September 2001
  • Laatst online: 04-09-2024

Cryothic

why?

Misschien lees ik alles verkeert ofzow,

maar de naam in de taskbar (die waar je startknopie zit) verander je met de Application Title.

Via Project -> Options

Voor je Application.Initialize zet je Application.Title := 'Hoeba';

  • maikel
  • Registratie: Januari 2001
  • Laatst online: 13:57
Op maandag 18 maart 2002 20:16 schreef Cryothic het volgende:
Misschien lees ik alles verkeert ofzow,

maar de naam in de taskbar (die waar je startknopie zit) verander je met de Application Title.

Via Project -> Options

Voor je Application.Initialize zet je Application.Title := 'Hoeba';
Ja, maar dat wil ik dus juist veranderen.
Het moet mogelijk zijn, want als je in Outlook een nieuw mailtje begint verschijnt er ook een knop met 'Naamloos - Bericht' op de taskbar.
En trouwens, als je in Outlook van map verandert, verandert de naam op de taskbar ook mee.

  • Guillome
  • Registratie: Januari 2001
  • Niet online

Guillome

test

code:
1
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Dat ff in je oncreate van je main form zetten die onzichtbaar is

If then else matters! - I5 12600KF, Asus Tuf GT501, Gigabyte Gaming OC 16G 5080 RTX, Asus Tuf Gaming H670 Pro, 48GB, Corsair RM850X PSU, SN850 1TB, Arctic Liquid Freezer 280, ASUS RT-AX1800U router


  • Guillome
  • Registratie: Januari 2001
  • Niet online

Guillome

test

Kijk eens voor de lol naar mijn progje, HandyFTP, die heeft denk ik precies wat jij bedoeld.
Open maar eens de history of settings. Bedoel je het zo?

If then else matters! - I5 12600KF, Asus Tuf GT501, Gigabyte Gaming OC 16G 5080 RTX, Asus Tuf Gaming H670 Pro, 48GB, Corsair RM850X PSU, SN850 1TB, Arctic Liquid Freezer 280, ASUS RT-AX1800U router


  • maikel
  • Registratie: Januari 2001
  • Laatst online: 13:57
Op maandag 18 maart 2002 21:17 schreef XLerator het volgende:
code:
1
2
3
SetWindowLong(Application.Handle, GWL_EXSTYLE,
     GetWindowLong(Application.Handle, GWL_EXSTYLE) 
     or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Dat ff in je oncreate van je main form zetten die onzichtbaar is
Hmmm, zo'n soort regel had ik al wel.
Maar ik had 'm in m'n OnActivate gezet. Ik dacht dat het dan ook wel zou werken.
Maar blijkbaar dus niet helemaal.
Thnx in ieder geval.

Je programma wil niet echt gedownload worden trouwens. :(
Pagina: 1