Однострочный блокнот TabControl

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

memo1.clear;

StatusBar1.SimpleText:=’’;

end;

Файл/Открыть

procedure TForm1.Open1Click(Sender: TObject);

OpenDialog1.Filter:='Текстовые файлы|*.txt';

If OpenDialog1.Execute then

memo1.Lines.LoadFromFile(OpenDialog1.FileName);

StatusBar1.SimpleText:=OpenDialog1.FileName;

end;

Файл/Сохранить

procedure TForm1.Save1Click(Sender: TObject);

If SaveDialog1.Execute then

if SaveDialog1.FileName<>'' then

Memo1.Lines.SaveToFile(SaveDialog1.FileName)

end;

Файл/Выход

procedure TForm1.Exit1Click(Sender: TObject);

If CloseQuery then Form1.Close;

end;

Формат/Шрифт

procedure TForm1.Font1Click(Sender: TObject);

If fontDialog1.Execute then

Memo1.Font:=Fontdialog1.Font;

end;

Формат/Цвет

procedure TForm1.Color1Click(Sender: TObject);

if ColorDialog1.Execute then

Memo1.Color:=colorDialog1.Color;

end;

Процедура на пункт меню Правка/Найти

procedure TForm1.Find1Click(Sender: TObject);

FindDialog1.Execute;

end;

Процедура на компонент FindDialog

procedure TForm1.FindDialog1Find(Sender: TObject);

If Pos(FindDialog1.FindText, Memo1.Text)<>0 then

begin

Memo1.HideSelection:=False;

Memo1.SelStart:=Pos(FindDialog1.FindText, Memo1.Text)-1;

Memo1.SelLength:=Length(FindDialog1.FindText);

end

else

MessageDlg ('Строка '+FindDialog1.FindText+' не найдена',mtConfirmation,[mbYes],0);

end;

Процедура на пункт меню Правка/Заменить

procedure TForm1.Replace1Click(Sender: TObject);

ReplaceDialog1.Execute;

end;

Процедура на компонент ReplaceDialog

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

Label 10;

Memo1.HideSelection:=True;

10:

If Pos(ReplaceDialog1.FindText, Memo1.Text)<>0 then

begin

Memo1.Selstart:=Pos(Replacedialog1.FindText, Memo1.Text);

Memo1.SelLength:=Length(Replacedialog1.FindText);

Memo1.Seltext:=Replacedialog1.ReplaceText;

Goto 10;

end;

Memo1.HideSelection:=false;

end;

end.

Глава XVII. Элементы с закладками

Элементы с закладками – это элементы, содержащие несколько страниц (листов), которые пользователь может выбирать, щелкая на закладках страницы. Закладки также называются ярлычками или корешками. Для работы с элементами, содержащими закладки, предназначены компоненты TabControl и PageControl, размещенные на палитре компонентов Win32.

Одностраничный блокнот TabControl представляет собой прямоугольную область с набором закладок.

Несмотря на наличие нескольких закладок, реально доступна только одна страница и только одна клиентская область. То есть, пользователь может переключить только закладки, а не страницы. Контролировать содержимое каждой «виртуальной страницы» приходится программно, то есть динамически создавать, уничтожать или делать невидимыми различные группы элементов и графические изображения в моменты переключения между закладками.

Свойство	Значение
Style	Вид закладок. tsTabs – стандартные, объемного вида tsButtons – в виде кнопок tsFlatButtons – в виде плоских кнопок
TabPosition	Расположение закладок tpTop ‑ сверху tpBottom ‑ снизу tpLeft ‑ слева tpRight – справа
Tabs	Массив строк с названиями закладок
TabIndex	Определяет индекс выбранной закладки сожержит -1, если ни одна закладка не выбрана. Индексация начинается с 0.
MultiLine	Возможность выстраивания закладок в несколько линий
TabWidth	Ширина закладки
TabHeight	Высота закладки
ScrollOpposite	Если MultiLine=True, строка с выбранной закладной перемещается в первый ряд.
HotTrack	Определяет подсвечивание закладки

Для компонента TabControl определено следующее событие:

OnChange – возникает при выборе новой закладки и позволяет управлять содержимым окна компонента.

Дата добавления: 2015-05-09