Читать «Виртуальная библиотека Delphi» онлайн - страница 98
Unknown
var
NewButton: TButton;
begin
NewButton := TButton.Create(Self);
NewButton.Parent := TWinControl(TabbedNotebook1.Pages.Objects[0]);
То же самое справедливо и для компонента
6. Как включить символ & в надпись (Caption)?
Попробуйте: &&
7. Как сделать окно (TForm) без заголовка (Caption)?
Попробуйте использовать следующий код:
constructor TPanelForm.Create(AOwner: TComponent);
var
LStyle: Longint;
begin
inherited Create(AOwner);
BorderIcons := [];
LStyle := GetWindowLong(Handle, GWL_STYLE);
LStyle := LStyle and not WS_CAPTION;
SetWindowLong(Handle, GWL_STYLE, LStyle);
ForceRepaint;
end;
procedure TPanelForm.ForceRepaint;
var
RectWnd: TRect;
WWidth, WHeight: Integer;
begin
GetWindowRect(Handle, RectWnd);
WWidth := RectWnd.Right-RectWnd.Left;
WHeight := RectWnd.Bottom-RectWnd.Top;
SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE);
SetWindowPos(Handle, HWND_TOP, 0, 0, WWidth, WHeight, SWP_NOMOVE);
end;
Можно поступить другим способом — выставить у формы свойство
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Style := bsClear;
Canvas.Rectangle(0, 0, Width, Height);
end;
8. Почему некоторые компоненты типа TPanel и TEdit не имеют свойства Canvas?
Все наследники
type
TCanvasPanel = class(TPanel)
public
property Canvas;
end;
Если вы хотите рисовать на компоненте, у которого нет public свойства