Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 FShowFrame: boolean;

 procedure SetShowFrame(Value: boolean);

protected

 { Protected declarations }

public

 { Public declarations }

 constructor Create(AOwner: TComponent); override;

published

 { Published declarations }

 property Align;

 property Anchors;

 property BorderWidth;

 property DragCursor;

 property DragKind;

 property DragMode;

 property Enabled;

 property Hint;

 property Constraints;

 property Min;

 property Max;

 property Orientation;

 property ParentShowHint;

 property PopupMenu;

 property Position;

 property ShowFrame: boolean read FShowFrame write SetShowFrame;

 property ShowHint;

 property Smooth;

 property Step;

 property TabOrder;

 property TabStop;

 property Visible;

 property OnContextPopup;

 property OnDragDrop;

 property OnDragOver;

 property OnEndDock;

 property OnEndDrag;

 property OnEnter;

 property OnExit;

 property OnMouseDown;

 property OnMouseMove;

 property OnMouseUp;

 property OnStartDock;

 property OnStartDrag;

end;

procedure Register;

implementation

{ TVSProgressBar }

constructor TVSProgressBar.Create(AOwner: TComponent);

begin

 Inherited;

 FShowFrame:= True;

end;

procedure TVSProgressBar.SetShowFrame(Value: boolean);

begin

 if FShowFrame <> Value then begin

FShowFrame:= Value;

RecreateWnd;

 end;

end;

procedure TVSProgressBar.WMNCPAINT(var Msg: TMessage);

var

 DC: HDC;

 RC: TRect;

begin

 if ShowFrame then begin

Inherited; //

если рамка – родитель сам разберется

Invalidate;

 end else begin

DC := GetWindowDC(Handle);

try

Windows.GetClientRect(Handle, RC); // площадка под ProgressBar

with RC do begin // учтем 3D эффект

Right:= Right + 2;

Bottom:= Bottom + 2;

end;

Windows.FillRect(DC, RC, Brush.Handle); // зальем площадку цветом подложки

finally

ReleaseDC(Handle, DC);

end;

 end;

end;

procedure Register;

begin

 RegisterComponents('Controls', [TVSProgressBar]);

end;

end.

Теперь ProgressBar может появиться на форме «неожиданно», как бы из ничего, если ShowFrame:= False.

C уважением, VS 

Query 

Можно ли использовать результаты выполнения одного TQuery для другого TQuery?

Nomadic отвечает:

Если Вы работаете с локальными БД, то Вам поможет –

DbiMakePermanent(SourceQuery.Handle, RName, false);