مشکل در اجرای کد

[realman]

با سلام

این دو کد رو ببینید:



procedure TVideo.FormShow(Sender: TObject);
var
MediaSeeking: IMediaSeeking;
zero: int64;
begin
zero:=0;
VideoPlayer.Active:=True;
VideoPlayer.ClearGraph;
VideoPlayer.RenderFile(VideoContainer);
VideoPlayer.Play;
DSTrackBar1.SetPosition(VideoCurTime);

end;


و



procedure TVideo.Button1Click(Sender: TObject);
begin
DSTrackBar1.SetPosition(VideoCurTime);
end;


کدی که به رنگ قرمز در اوردم در قسمت اول اجرا نمی شه(یعنی همزمان با نمایش فرم)
ولی همین کد با کلیک بر روی دکمه به درستی اجرا می شه.
مشکل کار از کجاست؟
** از کد برای اجرای فیلم از زمان دلخواه در dspack استفاده می کنم.
متشکرم.

[realman]

من حتی کد مربوط به click دکمه رو هم قرار دادم اما باز هم کار نکرد.
بین کلیک دستی بر روی دکمه با کد Button1.click() چه فرقی هست
؟

[mzjahromi]

من تا حالا با این کامپوننت کار نکردم ولی
اگر تفاوت تو کلیک دستی باشه , قبل از دستورتون یه Application.ProcessMessages; بذارید درست میشه.
در غیر اینصورت از OnFormActivate استفاده کنید احتمالا درست میشه. ولی باید کنترل کنید که تنها اولین بار اجرای این رویداد عملیات انجام بشه