28. december 2003 - 01:46Der er
10 kommentarer og 1 løsning
Name som variabel ?
Er der en der kan se hvad der skal lave om for at dette kommer til at virke ??
Jeg vil at proceduren kalder functionen med disse værdier: labelnavn : navnet på den label det drejer sig om. Aktuelstyle : den style der skal håndteres. sendername : Navnet på den Chechbox der kaldte functionen.
procedure TSettingsForm.CssKeyItalicClick(Sender: TObject); begin StyleSetter('CssLabel','fsItalic',sender); end;
function StyleSetter(labelnavn,Aktuelstyle,sendername:string):string; begin if [sendername].Checked then labelnavn.Font.Style := labelnavn.Font.Style + [+Aktuelstyle+] else labelnavn.Font.Style := labelnavn.Font.Style - [+Aktuelstyle+]; ApplyBtn.Enabled := true; end;
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
function TSettingsForm.tjek(Sender: TObject; labelnavn,Aktuelstyle:string):string; begin if (sender as TCheckBox).checked = true then begin ShowMessage(((sender as TCheckBox).name)); // mangler st få fat i den TLabel der har navnet fra LabelNavn end; end;
function TSettingsForm.tjek(Sender: TObject; labelnavn:string;Aktuelstyle:TFontStyle):string; begin if (sender as TCheckBox).checked = true then (FindComponent(labelnavn) as TLabel).Font.Style := (FindComponent(labelnavn) as TLabel).Font.Style + [Aktuelstyle] else (FindComponent(labelnavn) as TLabel).Font.Style := (FindComponent(labelnavn) as TLabel).Font.Style - [Aktuelstyle]; ApplyBtn.Enabled := true; end;
procedure TSettingsForm.CssKeyItalicClick(Sender: TObject); begin tjek(sender,'csskeylabel',fsItalic); end;
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
