نمایش فایل فلش در استاتوس بار

[me1364]

سلام دوستان من یک فایل فلش دارم میخوام توی استاتوس بار نمایش بدم باید چکار کنم لطفا راهنمایی کنید

[ghabil]

این دیگه Status بار نیست ، یک Panel با Align با مقدار alBottom بزار رو فرمت، کامپونت نمایش Flash رو هم بزار روش.

[etedali]

سلام بر شما.
من یک کد برایتان میگذارم با این کد میتوانید فایل فلش را به شرط اینکه با Shockwave نمایش داده باشید و اندازه فلش شما کوچک باشه نه اندازه داشته باشه نصف فرم را بگیره فایل را در یکی از Panel های StatusBar نمایش بدهید

procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Style := psOwnerDraw;
ShockwaveFlash1.Parent := StatusBar1;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
const Rect: TRect);
begin
if Panel = StatusBar.Panels[0] then
with ShockwaveFlash1 do begin
Top := Rect.Top;
Left := Rect.Left;
Width := Rect.Right - Rect.Left - 15;
Height := Rect.Bottom - Rect.Top;
end;
end;

موفق باشید