jeg sad lige ogrodet med et program som jeg har arbejdet på i LANG tid for at lære delphi bedre at kende.
men jeg er faldet over 2 problem der mindet lidt om hinanden
nå here go's
1. jeg har vil en ScrollBar som skal styre genensigtighed nivuet af formen. så jeg ville gerne have
ScrollBar som går fra 0-255 det kan jeg osgodt lave men problemmet er at få dens position overført til en textbox..jeg har prøvet med
procedure TForm2.TrackBar1Change(Sender: TObject);
begin
edit1.Text := ScrollBar1.position ;
end;
men det vil den ik.. så hvordan kan man overføre de tal til en text box ???
nå nr 1 er:
i programmet skal man os kunne vælge en baggrundsfave, og for at man ik skal vælge en hvergang man åbner programmet har jeg valgt at jeg vil gemme farvekoden i regristreringsbasen. det kan jeg os godt. men jeg kan ik få den tilbage igen eller det vil sige jo dat kan jeg godt med delphi vil ik ta imod den da det ik direkte et en farvekode men en textfil. det jag har lavet ser sådan her ud:
//HKEY_CURRENT_USER\\Software\\Memo
//bgcoler er en string
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
If Registry.OpenKey('Software\\Memo',True) then
bgcolor := Registry.ReadString('BgColor');
Registry.Free;
form1.Color := bgcolor
please hjælp mig jeg vil ik gi op (og istedet for at læse en bilion sidet bog spørger jeg her...
-----
muh
Du kunne også bruge INI filer istedetfor registreringsdatabasen...
//add INIFiles til uses
Var
Ini : TIniFile;
Begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
Try
Label1.Caption := Ini.ReadString('Main','Label1',Label1.Caption);
Finally
Ini.Free;
end; //henter data
Var
Ini : TIniFile;
Begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
Try
Ini.WriteString('Main','Label1',Label1.Caption);
Finally
Ini.Free;
end; //gemmer data
Indlæg senest redigeret d. 04.09.2012 13:43 af Bruger #402