htuos
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TObject = class
constructor Create;
procedure Free;
end;
TPersistent = class(TObject)
procedure Assign(Source: TPersistent);
end;
TComponent = class(TPersistent)
function FindComponent(AName: String): TComponent;
constructor Create(AOwner: TComponent);
property Owner: TComponent; read write;
procedure DestroyComponents;
procedure Destroying;
procedure FreeNotification(AComponent: TComponent);
procedure InsertComponent(AComponent: TComponent);
procedure RemoveComponent(AComponent: TComponent);
property Components[Index: Integer]: TComponent; read;
property ComponentCount: Integer; read;
property ComponentIndex: Integer; read write;
property ComponentState: Byte; read;
property DesignInfo: Longint; read write;
property Name: String; read write;
property Tag: Longint; read write;
end;
TControl = class(TComponent)
constructor Create(AOwner: TComponent);
procedure BringToFront;
procedure Hide;
procedure Invalidate;
procedure Refresh;
procedure Repaint;
procedure SendToBack;
procedure Show;
procedure Update;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
property Left: Integer; read write;
property Top: Integer; read write;
property Width: Integer; read write;
property Height: Integer; read write;
property Hint: String; read write;
property Align: TAlign; read write;
property ClientHeight: Longint; read write;
property ClientWidth: Longint; read write;
property ShowHint: Boolean; read write;
property Visible: Boolean; read write;
property Enabled: Boolean; read write;
property Hint: String; read write;
property Cursor: Integer; read write;
end;
TWinControl = class(TControl)
property Parent: TWinControl; read write;
property ParentBackground: Boolean; read write;
property Handle: Longint; read write;
property Showing: Boolean; read;
property TabOrder: Integer; read write;
property TabStop: Boolean; read write;
function CanFocus: Boolean;
function Focused: Boolean;
property Controls[Index: Integer]: TControl; read;
property ControlCount: Integer; read;
end;
TButtonControl = class(TWinControl)
end;
TButton = class(TButtonControl)
property Cancel: Boolean; read write;
property Caption: String; read write;
property Default: Boolean; read write;
property Font: TFont; read write;
property ModalResult: Longint; read write;
property OnClick: TNotifyEvent; read write;
end;
TNewButton = class(TButton)
end;
|
Всего записей: 335 | Зарегистр. 06-03-2008 | Отправлено: 10:23 08-11-2010 | Исправлено: htuos, 10:54 08-11-2010 |
|
