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

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

begin

 result:= CheckValid.Checked;

end;

end.

В Delphi 4 появились новые возможности, в частности, возможность докинга визуальных компонент, в частности, форм, на различные DockSite, в том числе и на TPageControl. Это более удобно. Кроме того, Вы имеете возможность использования TFormLoader из библиотеки VG Library. 

IMHO файл *.dfm – это компилированный

ресурс с определением установок формы. А можно ли как-то увидеть этот ресуpс в исходном виде?

Nomadic советует: 

1. File|Open… ТвояФорма.DFM – увидишь текст;

2. «Delphi\bin\convert ТвояФорма.DFM» — получится ТвояФорма.TXT (можно и наоборот).

Идею в массы: в DN/VC/NC можно настроить viewer'ом .DFM .BAT'ник, который скажет convert;wpview;del – и заглядывать в .DFM не открывая Delphi.

Кстати, функции, которые реализуют это преобразование, доступны для использования в личных целях :)

CLASSES.PAS:

[…]

{ Object conversion routines }

procedure ObjectBinaryToText(Input, Output: TStream);

procedure ObjectTextToBinary(Input, Output: TStream);

procedure ObjectResourceToText(Input, Output: TStream);

procedure ObjectTextToResource(Input, Output: TStream);

 

Определение перемещения формы

Кто-нибудь знает как мне определить перемещение пользователем главной формы приложения (не изменение ее размеров), кроме как использования таймера и проверки значений свойств Form.Top и Form.Left?

Вам можно воспользоваться обработчиками следующих системных сообщений:

1. WM_WINDOWPOSCHANGING (возникает перед перемещением),

2. WM_WINDOWPOSCHANGED (возникает после перемещения), или

3. WM_MOVE (возникает после перемещения)

 – Robert Wittig 

Можно ли сделать так – одновременно иметь на экране всегда доступную форму – например, "Навигатор", и, открывая модальные формы, иметь всегда доступ к форме "Навигатор"?

Nomadic советует:

Обманом можно все.

procedure ShowAlmostModal(FormModal:TForm);

begin

 NavigatorForm.Enabled:=false;

 FormModal.ShowModal

end;

И вот это привесь на OnShow почти модальной формы

procedure FormShow(Sender:Tobject);

begin

 NavigatorForm.Enabled:=true;

end;

Как создать окна непрямоугольной формы и работать с ними?

Nomadic советует:

Достаточно создать регион нужной формы и вызвать SetWindowRgn —

HRGN rgn := CreateEllipticRgn(10,10,100,100);

SetWindowRgn(hMyWnd,rgn); //

Вот и будет круглое окно

При этом регион этот теперь используется Windows и будет уничтожен при закрытии окна.

Попробуйте вот этот обpаботчик OnCreate : На меня это произвело впечатление.

procedure TForm1.FormCreate(Sender: TObject);

const W=36*pi/180;

var

 R,R1,R2: HRgn;

 X,Y,i:integer;

 function S(a:integer;R:integer):integer;

 begin

Result:=round(R*sin(W*a));

 end;

 function C(a:integer;R:integer):integer;

 begin

Result:=round(R*cos(W*a));

 end;

 function GetStarReg(X,Y,R:integer):HRGN;

 var P : array [0..4] of TPoint;

 begin

P[0] := Point(X, Y-R);

P[1] := Point(X-S(4,R), Y-C(4,R));

P[2] := Point(X-S(8,R), Y-C(8,R));

P[3] := Point(X-S(2,R), Y-C(2,R));

P[4] := Point(X-S(6,R), Y-C(6,R));

Result := CreatePolygonRgn(P, 5, WINDING);

 end;

begin

 X:=Width div 2;

 Y:=Height div 2;

 R:=GetStarReg(X,Y,100);

 i:=1;

 repeat

R1:=GetStarReg(X-S(i,120),Y-C(i,110),40);

CombineRgn(R,R,R1,RGN_OR);

inc(i,2);

 until i>9;

 R1:=GetStarReg(X,Y,30);

 CombineRgn(R,R,R1,RGN_DIFF);

 R1:=CreateEllipticRgn(3,3,Width-6,Height-6);

 R2:=CreateEllipticRgn(20,10,Width-20,Height-10);

 CombineRgn(R1,R1,R2,RGN_DIFF);

 CombineRgn(R,R,R1,RGN_OR);