TButton Design

[M1ndgr4ve]

Hey

Danke für die schnelle Antwort.
Bin in einem Praktikum und muss mir alles selber beibringen bzw. die nötigen Informationen beschaffen. Dieses Forum hat mir schon viel geholfen

Hab jetz das mit dem Speedbutton ausprobiert und hab da jetz einen selber erstellten(grafisch) Button als BMP hochgeladen.
So weit bin ich jetz gekommen.
Jetz habe ich allerdings das Problem das mir auf dem Botton die Beschriftung nicht mehr angezeigt wird.
Wie löse ich das?

@Sherlock:
Ich meine vorallem Grafisch umdesignen. Form, Farbe usw...

[Sherlock]

Mit XE6 hast du ein Werkzeug, daß Dir die Verwendung sogenannter Styles ermöglicht. Am einfachsten geht das über die Projektoptionen. Da kannst du unter "Erscheinungsbild" aus einer Vielzahl vorgefertiger Stile auswählen, und so die gesamte Anwendung "aus einem Guss" abweichend vom durch den Benutzer eingestellten windows-Style umgestalten. Ob das nun dem Anwender gefällt ist dabei eben was anderes

Sherlock

[M1ndgr4ve]

Vielen Dank!

Das wusste ich nicht. Ob es einem gefällt ist wirklich was anderes^^
Ich denke schon das es grad für jemanden mit weniger Erfahrung von Vorteil ist wenn man das selber versucht hinzukriegen ohne vorgefertigte Designs.

[Sherlock]

Da kannst Du aber ganz schön Probleme bekommen, darum gibts das ja. Im Prinzip ist es nänmlich nicht nur damit getan, eine Grafik als Button-Ersatz zu nehmen. Man muss ja auf die diversen Events reagieren (MouseOver, ButtonClick). Und eigentlich steht die Funktionalität der Anwendung im Vordergrund, das Eye-Candy ist für später da.

Sherlock

[M1ndgr4ve]

Ja das ist mir klar. Nur ist es halt grad im Moment meine Aufgabe das zu tun. Also die Grafische Oberfläche einrichten.
Aber damit du weisst um was es geht hier n bisschen Code hab ewig lange gebraucht bis es geklappt hat.

procedure TForm1.EntfernenClick(Sender: TObject);
begin
node.DeleteChildren;
end;

procedure TForm1.HinzufügenClick(Sender: TObject);
begin
node :=Treeview1.GetNodeAt (KX, KY);
TreeView1.Items.AddChild(Node,Eingabe.Text);
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TmouseButton;
Shift: TshiftState; X, Y: Integer);
begin
node :=TreeView1.GetNodeAt(X,Y);
KX :=X;
KY :=Y;

Sinn der Sache ist es einen Tree zu bauen wo ich über ein Edit fenster eingegebene sachen über Buttonklick direkt als Child in den Tree übertragen kann und auch wieder löschen wenn man es nicht mehr braucht.

[Sherlock]

Das ist doch Funktionalität, die unabhängig vom Aussehen der Knöpfchen ist.

Sherlock

[M1ndgr4ve]

Ja eben

Und jetz sind halt grad die Knöpfchen dran.