[delphi] - settings scherma alla winamp

[MisterE]

Je ziet vaak programma's (zoals winamp) die links een Listview/Listbox
aan de linkerkant hebben en rechts de 'settings' voor het betreffende
menu. Nou ga ik ervan uit dat die makers niet al die checkboxes etc. op elkaar
zetten, en dan bepaalde degene visible maakt die bij het gekozen item hoort.

Dat zou een chaos worden. Ook al zou je de componenten 'toewijzen' aan laten
we zegen een Panel dan zou het nog niet fijnwerken zijn. Dan moet je telkens
met ESC naar een lager gelegen menu.

Dus ik ga ervanuit dat er een makkelijk truckje voor is?!?


Nou heb ik een paar programma's onderzocht met 'Spy & Capture' hoe
ze dat maken.
De meeste gebruiken een PageControl.
Ik heb daar ook ff mee zitten stoeien,je kan daar wel Pages mee maken,
maar eigenlijk wil ik geen pages maar gewoon iets dat eruit ziet als een
panel. Dus eigenlijk zoek ik iets dat in 'Design' time er gewoon uitziet
als een TPageControl, maar in runtime als een panel.

Weet iemand raad?

[jelmervos]

Je moet een zeker een PageControl gebruiken. Stel deze in als buttons (dus geen tabs) vervolgens haal je per tab de button weg. Zo heb je een PageControl waarbij je alleen de inhoud ziet.

Het zelfde heb ik in HotTopic (ook in Delphi gemaakt) gedaan:

[MisterE]

euh ik heb ff gekeken, het lukt me wel op de pagina op 'buttons' te krijgen, maar hoe kirjg je die dan weg??
Als ik zo'n tabsheet selecteer in het pagecontrol zie niet echt iets daarvoor.
je bedoeld toch niet 'visible'??

[KO]

MisterE schreef op 03 augustus 2002 @ 10:23:[...] Nou heb ik een paar programma's onderzocht met 'Spy & Capture' hoe
ze dat maken.
[...]

[/offtopic] Wat is dit precies voor programma?

[MisterE]

het was niet de bedoeling voor een tegenvraag

Nee, das wel een handig proggie, kan je classes, handle, caption,childs etc. mee zien.
Soms wel handig als je je afvraagt wat voor een component iemand ergens voor gebruikt heeft, dan sleep je de 'targetter' op het window en dan krijg je een hoop info.

check it.....misschien vind je het handig.

http://come.to/kobik

[whoami]

MisterE schreef op 03 augustus 2002 @ 10:46:
euh ik heb ff gekeken, het lukt me wel op de pagina op 'buttons' te krijgen, maar hoe kirjg je die dan weg??
Als ik zo'n tabsheet selecteer in het pagecontrol zie niet echt iets daarvoor.
je bedoeld toch niet 'visible'??

Aan de hand van het geselecteerde item in de listbox, maak je het juiste tabsheet de activepage.

[MisterE]

yep, zoiets als dit werkt wel:

pagecontrol1.ActivePageIndex := 0;

maar ik heb nog steeds die stomme 'knoppen' bovenaan de pagecontrol.
Zie echt niet hoe ik die wegkrijg in runtime, en weer terugkrijg in 'designtime'

[BM]

code:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=0 to PageControl1.PageCount-1 do
  Begin
    Pagecontrol1.Pages[i].TabVisible:=false;
  end;
end;

dat zou moeten werken

[whoami]

Wegkrijgen is geen probleem, dat heeft Delphi uitgelegd, en het werkt bij mij.
Natuurlijk, om ze terug te krijgen in designtime, zul je die TabVisible property weer op true moeten zetten.

Je kunt natuurlijk in je formcreate een stukje code zetten die ervoor gaat zorgen dat de TabVisible property van alle TabSheets van die Pagecontrol op False wordt gezet.

edit:

LOL, SpeedAddict doet zijn naam eer aan.

[MisterE]

geod ik ben eruit.....(eindelijk)

dit werkt prima:

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 pagecontrol1.ActivePageIndex := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  pagecontrol1.ActivePageIndex := 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var i:integer;
 begin
   for i:=0 to PageControl1.PageCount-1 do
   Begin
     Pagecontrol1.Pages[i].TabVisible:=false;
   end;
 end;

iedereen bedankt voor de reakties...

edit:

Ik heb er even code-tags rond gegooid

[ Voor 0% gewijzigd door whoami op 03-08-2002 11:49 ]