AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

CommandLinks und AeroWizards

Ein Thema von delphi_user14 · begonnen am 7. Jul 2008 · letzter Beitrag vom 9. Jul 2008
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#1

CommandLinks und AeroWizards

  Alt 7. Jul 2008, 15:48
Hallo!

Ich weiß, dass ich heute schon ein ähnliches Thema gepostet habe, aber ich fürchte, dass ich es falsch angegangen bin.

Also:

Ich möchte AeroWizards und CommandLinks erstellen.

Ich bräuchte die Definitionen von BS_COMMANDLINK und von PSH_AEROWIZARD. Ich habe gegooglet und habe PSH_AEROWIZARD = $00004000 gefunden. Stimmt das?

Ich habe auch keine Ahnung mit welcher Procedure ich das realisieren soll.

Danke im Vorraus!
Patrick K.
  Mit Zitat antworten Zitat
TurboMartin

Registriert seit: 13. Feb 2006
Ort: Bad Honnef
765 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 16:27
BS_COMMANDLINK ist 0x0000000E
BCM_SETNOTE ist 0x00001609
PSH_AEROWIZARD ist wie du gesagt hast.
Tomorrow will be cancelled due to lack of interest.

  Mit Zitat antworten Zitat
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 16:29
Mit welcher Procedure soll ich den Style ändern?
Patrick K.
  Mit Zitat antworten Zitat
TurboMartin

Registriert seit: 13. Feb 2006
Ort: Bad Honnef
765 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 16:31
Scau mal hier.
Tomorrow will be cancelled due to lack of interest.

  Mit Zitat antworten Zitat
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 16:34
Wie geht das unter Delphi?

Ich kann Programmiersprachen nicht gut übersetzen
Patrick K.
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#6

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 16:44
Schau dir doch mal Daniels Videos an: http://www.delphipraxis.net/videos

Da sollte auch was zu den Vista-Sachen dabeisein.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
7. Jul 2008, 16:49
Dieses Thema wurde von "Daniel" von "Windows 9x / ME / 2000 / XP / 2003 / Vista" nach "Sonstige Fragen zu Delphi" verschoben.
TurboMartin

Registriert seit: 13. Feb 2006
Ort: Bad Honnef
765 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 17:16
Probier mal folgendes:
Delphi-Quellcode:
const
  BS_COMMANDLINK = 0x0000000E;
  BCM_SETNOTE = 0x00001609

TCommandLink = class (TButton)
public
  procedure SetNote(strNote: String);
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TCommandLink.SetNote(Note: String);
begin
  SendMessage(Handle, BCM_SETNOTE, 0, strNote);
end;

procedure TCommandLink.CreateParams(var Params: TCreateParams);
begin
  Params.Style := (Params.Style or BS_COMMANDLINK
end;
Tomorrow will be cancelled due to lack of interest.

  Mit Zitat antworten Zitat
Benutzerbild von delphi_user14
delphi_user14

Registriert seit: 10. Jun 2008
Ort: Au am Leithagebirge (Österreich)
105 Beiträge
 
Delphi 2007 Enterprise
 
#9

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 17:31
Es gibt nur ein Problem.

SendMessage ist so aufgebaut:

{
hWnd
Cardinal

Msg
Cardinal

lParam
Integer

wParam
Integer --Hier sollte ich einen String eingeben
}
Patrick K.
  Mit Zitat antworten Zitat
Daniel
(Administrator)

Registriert seit: 30. Mai 2002
Ort: Hamburg
15.500 Beiträge
 
Delphi 10.4 Sydney
 
#10

Re: CommandLinks und AeroWizards

  Alt 7. Jul 2008, 17:34
Nur der Vollständigkeit halber: Wenn Du Dich für den Weg mit den Messages entscheidest, dann klappt das nur unter Vista.

Wenn Du diese Controls auch in früheren Windows-Versionen verfügbar haben möchtest, dann brauchst Du welche, die sich selbst zeichnen und somit die Controls von Vista imitieren. Ich bin gerade ein wenig überrascht, dass es da bei Torry scheinbar noch keine Flut an CommandLink-Buttons gibt.
Daniel R. Wolf
Admin Delphi-PRAXiS
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

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 08:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf