{
Данный код изменяет стиль шрифта поля редактирования,
если оно выбрано. Может быть адаприрован для управления
шрифтами в других объектах.
Добавьте следующие элементы (Items) к ListBox:
fsBold TForm1.ListBox1Click(Sender: TObject);
var
Name: string ;
Data: TFontStyle;
end ; [1..4] of TLookUpRec =
((Name: 'fsBold'; Data: fsBold),
(Name: 'fsItalic'; Data: fsItalic),
(Name: 'fsUnderline'; Data: fsUnderline),
(Name: 'fsStrikeOut'; Data: fsStrikeOut));
begin ;
Расположите на форме Edit(Edit1) и ListBox(ListBox1).
fsItalic
fsUnderLine
fsStrikeOut
}
procedure
X: Integer;
type
TLookUpRec = record
const
LookUpTable: array
X := ListBox1.ItemIndex;
Edit1.Text := ListBox1.Items[X];
Edit1.Font.Style := [LookUpTable[ListBox1.ItemIndex + 1].Data];
end