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;
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.
