Decision on Turbo Pascal and Delphi

Home - Structure - Archive - Friend

Пишу лабораторные, курсовые по Pascal-ю и Delphi (цены не дорогие)

связаться со мной можно по sergej.rebko@gmail.com

TBevel

Создано Птн-02-Май-2008 in 23:09 category Статьи - Ссылка

Компонент TBevel служит оформительский характер и предназначен для визуального выделения группы элементов или отдельных их друг друга. Вид компонента(рамка, верхняя линия, нижняя линия, левая линия, правая линия, прямоугольник) определяет следующие свойство:

Type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRigthLine);
Property Shape: TBevelShape;

Стиль компонента определяет другое свойство:

Type TBevelStyle = (bsLowered, bsRaised);
Property Style: TBevelStyle;

Автор: Arch1S

ЛАБОРАТОНЫЕ РАБОТЫ

Создано Втр-29-Апр-2008 in 17:32 - Ссылка

Что бы кто нибудь увидел, создал пост...

Пишу лабораторные, курсовые по Pascal-ю и Delphi (цены не дорогие)
связаться со мной можно по sergej.rebko@gmail.com или ICQ: 445292338

Определение размера файла

Создано Втр-29-Апр-2008 in 16:51 - Ссылка

function GetFileSize(const FileName:string):longint;
{Поехали:)}
var
SearchRec:TSearchRec;
begin
if FindFirst(ExpandFileName(FileName),faAnyFile,SearchRec)=0
then Result:=SearchRec.Size
else Result:=-1;
FindClose(SearchRec);
end;

TStaticText

Создано Втр-29-Апр-2008 in 15:07 category Статьи - Ссылка

Компонент TStaticText очень похож на TLabal за исключением двух аспектов. Во-первых, он порождён от класса TWinControl и, таким образом, имеет Win-окно. Во-вторых, в свойстве BorderStyle добавлено значение sdsSunken, которое создаёт иллюзию рельефности компонента:

Type TStaticBorderStyle = (sdsNone, sdsSingle, sdsSunken);
Property BorderStyle: TStaticBorderStyle;

Все остольные методы, свойство копируют TLabel. Отмечу, что компонент обладает внешней и внутренней рамкой, так что его вид можно без проблем разнообразить.

Автор: Arch1S

Переделать TLabel в URL

Создано Срд-09-Апр-2008 in 22:23 category Delphi - Ссылка

Приложение содержит ссылку, которая позволяет запускать Браузер и сразу перейти по указанному в ссылке адресу. Процесс создания URL заключается в переделке компоненты TLabel в URL.

Следующие 3 шага показывают как переделать TLabel в URL.

Шаг 1 Установите в свойствах шрифта подчёркивание и цвет ссылки.

Шаг 2 Установите свойства курсора. Когда мышка попадает на URL, то курсор должен превращаться в ручку.

Шаг 3 Записываем событие OnClick для ссылки. Когда пользователь нажимает на ссылку, то запускается браузер, который автоматически переходит на заданный адрес. Однако этого мало! Нужно будет добавить в приложение ещё одну строчку

Та самая строчка:

ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);

Пример приложения :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
URLLabel: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure URLLabelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.URLLabelClick(Sender: TObject);
Const
URL : String = 'http://blogs.cetki.com/Arch1S';
begin
ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);
end;
end.