Tryk på knap for at selecte en directory

Uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  MinFolder: String;
begin
  SelectDirectory('Vælg en folder', '', MinFolder);
  Caption := Minfolder;
end;

Slå evt. SelectDirectory funktionen op i hjælpen for at se hvilke andre muligheder du har med funktionen - f.eks. at man kan tillade brugeren at oprette en folder direkte fra dialogen.

Virker fint !

Hvordan laver man en knap som indeholder en icon ?

Det kan du ikke på normale knapper (uden at du skal bruge noget kode)...

Du kan bruge BitBtn som findes under additional, som er en knap med flere egenskaber...

Michael

Hvor kan man tilføje så knappen ligner en icon ?

Altså nu skal jeg lige være med:

Hvis du prøver at sætte en BitBtn på formen og ændrer Gylph til et billede... Er det det du mener?

Michael ;-)

Stavefejl: Den hedder ikke Gylph, den hedder Glyph

;-)

Hvis ikonet skal fylde hele knappen, og der ikke skal stå noget tekst på knappen, så kan du evt. benytte en SpeedButton i stedet for.

I begge tilfælde er det Glyph indstillingen du skal ændre for at sætte et ikon på.

Ja hvis det er det han mener...

Hvis der ikke skal være en knap, så kan du evt. loade 3 billeder ind i hukommelsen: Normal.bmp, Over.bmp og Down.bmp...

I imagekomponentens MouseMove kan du så skrive:
Image1.picture.LoadFromFile('over.bmp')

...

Jeg kan godt lav et eksempel hvis det er det du mener ;-)

Michael ;-)

Under propetiers ?

ja

Hvad hedder den ?

Glyph findes under Properties...

Hvad mener du?

Ok - Har fundet det

Okay