Forum Replies Created
-
Posts
-
sButton1.TabStop := False;
or
It's start with focus because the propertie TabOrder of sButton1 is “0”, set with TabOrder 0 the component that you would like to start with the focus.
It's simple.
Quote:var
CurrentFrame: TFrame;
procedure TForm1.ShowFrame;
begin
if (Assigned(Self)) and
(Assigned(CurrentFrame)) then
begin
CurrentFrame.Visible := False;
CurrentFrame.SetBounds( 5, 78, 774, 484 ); // Here the position and size of the frame
CurrentFrame.Parent := Self;
// Refresh the application
Application.ProcessMessages;
if SkinManager.Active then
begin
PrepareForAnimation(CurrentFrame);
CurrentFrame.Visible := True;
AnimShowControl(CurrentFrame, 200);
end
else
begin
CurrentFrame.Visible := True;
CurrentFrame.Repaint
end;
end;
end;
using:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned( CurrentFrame ) then
FreeAndNil( CurrentFrame );
CurrentFrame := TFrame_Notices.Create( Self ); // Here your frame
ShowFrame;
end;
Strangely when I rebooted my computer and compiled, the program returned to work perfectly. Problem solved, sorry for the inconvenience.
Here, the AC 6.44 + the newest WMP 2008 and with “SkinManager.ExtendedBorders := True;” when click in maximize button don't maximize, the window go to top and bug the window.
I use the Delphi 2007 and AC 6.44
The Old WMP 2008 don't have this bug, but the updated have!QUOTEmyListBox.items.beginupdate();
//Load all items
myListBox.items.endupdate();don't work … =/
Well my application needs of listbox, because draw item and scrollbar skin, I can't use other…
