So implementieren Sie eine Schließen-Schaltfläche für ein TTabsheet eines TPageControl
4 Antworten
Es ist oft eine gute Idee, dies selbst zu implementieren, wie die anderen Antworten vorgeschlagen haben. Für den Fall, dass Sie bereits Raize-Komponenten verwenden, wird diese Funktion jedoch "out of the box" unterstützt. . Setzen Sie einfach TRzPageControl.ShowCloseButtonOnActiveTab := true und behandeln Sie das OnClose -Ereignis. Die Komponente sorgt für die Platzierung für eine Vielzahl von Registerkartenlayouts / Ausrichtungen / Formen / Farben.
[nur ein glücklicher Kunde]
Was ich in der Vergangenheit getan habe, ist ein TBitBtn mit einer Grafik in der oberen rechten Ecke des TPageControls. Der Trick, das Elternteil des TBitBtn ist das gleiche wie das TPageControl, also ist es nicht wirklich auf einer der Registerkarten. Dann im Klick sogar für diesen Knopf:
%Vor%Wenn das aktuelle TTabControl freigegeben wird, benachrichtigt es das TPageControl, das es besitzt.
Ich habe ein wenig dieses Beispiel geändert: - erstellte Klasse TCloseTabSheet - Diese Klasse hat die Eigenschaft OnClose: TNotifyEvent, die bei Zuweisung aufgerufen wird - Wenn TabSheet von TPageControl nicht diese Klasse ist, dann gibt es keine Schließen-Schaltfläche - wenn es dann Button zeigt. Wenn Sie die Schließen-Taste drücken, wird OnClose aufgerufen - Jetzt müssen Sie nicht mehr das Array FCloseButtonsRect steuern, damit diese Rects bei TCloseTabSheet gespeichert werden
%Vor%Tags und Links delphi tpagecontrol