Forum Replies Created
-
Posts
-
Если есть возможность, то лучше заменить его на альфаконтроловский аналог TsTabControl. В разделе загрузок на сайте даже выложена утилита для автоматической замены содержимого форм.
У меня “тот же самый” код выдает AV на второй раз. Это по поводу “почему всегда на третий раз”.
Под словом “левый” я имел ввиду код никак не связанный с данным.
Что касается “не писать больше в ваших топиках”, то просьба принята. Постараюсь больше этого не делать.
Я уже когда то поднимал этот вопрос: http://www.alphaskins.com/forum/index.php?showtopic=2793 Сейчас я думаю такое возможно только если вас устроит системная рамка.
В качестве временной меры можно самому подправить рисование контрола. Где то на форуме был пример отрисовки различных элементов скина.
А стандартные компоненты разве иначе себя ведут? По-моему у всех ансишных версий VCL результат копирования в буфер зависит от текущей раскладки.
Допустим скомпилируете, а толку? Будет ли работать? В скинменеджере конечно есть функции автоматического скинирования, но рассчитаны они только на те типы контролов, которые встречаются в делфи-прогах.
ThirdPartyList можно редактировать вручную добавляя новые записи. Попробуйте добавить туда TDockTabSet и поэкспериментировать с его типами скинирования.
В этом примере мы откладываем уничтожение объекта на потом, давая обработчикам событий нормально отработать.
В главной форме:
Code:const
WM_KILLOBJECT = WM_USER + 1;type
TForm1 = class(TForm)
//…
private
procedure WMKillObj(var Msg: TMessage); message WM_KILLOBJECT;
public
procedure SafeKill(Obj: TObject);
end;//…
procedure TForm1.SafeKill(Obj: TObject);
begin
if not Assigned(Obj) then
raise Exception.Create('Invalid reference. Can not kill object');
PostMessage(Handle, WM_KILLOBJECT, Integer(Obj), 0);
end;procedure TForm1.WMKillObj(var Msg: TMessage);
begin
TObject(Msg.WParam).Free;
end;И в любом другом месте убиваем сами себя:
Code:procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.SafeKill(Button1);
Form1.SafeKill(Self);
end;У скинпровайдера есть свойство DrawNonClientArea. Ставите его в False и получаете стандартную рамку окна.
Альфы как и любые другие компоненты нельзя устанавливать в папку с делфи. Особенно если вы работаете с ограниченными правами. Создайте для компонент отдельную папку на диске D и пропишите к ней пути в настройках среды.
