TButton Design

[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.

[M1ndgr4ve]

Wenn wir schon dabei sind...

Das erstellen der Childs via Button funktioniert genau wie das Löschen.
Wie kann ich das machen das nur der ausgewählte Child oder Parent gelöscht wird? Wenn ich auf den Entfernen Button gehe löscht es immer gleich alle erstellten und nicht nur einen.

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

[BadenPower]

Delphi-Quellcode:

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

Das hätte Dir selbst auffallen müssen, dass der Befehl nicht stimmen kann, wenn Du den Befehl ins deutsche überstzt hättest.

Mit diesem Befehl löschst Du alle Untereinträge des in Deiner Variablen "node" gespeicherten TreeNodes. F1 hilft.

[puderle]

also seht ihr den Wald vor lauter Bäumen nicht?..

ein TButton ist ein TButton.. lass ihn eckig das kann er am besten.

jedes 'TImage' hat auch 'OnMouseOver()', 'OnMouseDown' usw.. oder du fügst einfach ein neues Event hinzu.

Einfach eine Bitmap mit weißem Hintergrund als Button und die Eigenschaft Transparent aktivieren.. wow geiler Button.

in mousemove und mousedown kommt dann die Zeile die das TImage ändert wenn die Maus hovert oder gedrückt wird.