Vielen Danke
komme endlich weiter. Aber eins noch, ich nutze das Tab Register für meinen selbstgebauten Browser. Da das Caption Property des aktiven Tab-Registers sich ständig ändern kann wenn ich eine neue Seite aufrufe, blieb die Schaltfläche an der festgesetzten Position stehen. Das konnte ich wie folgt lösen:
Delphi-Quellcode:
procedure TFMain.WebBrowser1TitleChange(ASender: TObject;
const Text: WideString);
var Index: Integer;
begin
Index := tab.ActivePageIndex;
tab.Pages[Index].Caption := Text + ' ';
Rect := Tab.TabRect(Tab.ActivePageIndex);
with Tab do
if ControlCount > 0 then
begin
if Controls[0] is TSpeedbutton then
begin
TSpeedbutton(Controls[1]).top := Rect.Top + 2; //hier muss die 1 ausgetauscht werden
TSpeedbutton(Controls[1]).left := Rect.Right -10; //hier muss die 1 ausgetauscht werden
// Result := (TEmbeddedWB(ActivePage.Controls[0]));
end else
// Result := Webbrowser1;
end;
end;
Das funktioniert wunderbar, wenn ich nur 1 Tab habe. Aber sobald ich mehrere Tabs offen habe, dann gibt es ein großes Durcheinander mit den Schaltflächen, da ich ja wesentlich mehr als eine Schaltfläche habe. Wie spreche ich die Schaltfläche des aktiven Tabs an? Leider funktioniert das nicht mit "with Tab.activepage do"... da die Schaltfläche sich nicht auf die aktive Seite befindet.
hast du eine Idee?