فیکس کردن فرم

آیا روشی برای فیکس کردن فرم در حین اجرای برنامه وجود دارد ؟ (دلفی ) عنوان فرم هم باشه و حذف نشه

سلام

يكم واضح تر توضيح بدهيد.

منظورتون از فيكس كردن اندازه فرمه؟ كه يعني سايزش تغيير نكنه؟
در اين صورت خاصيت BorderStyle فرم رو مي تونيد به bsDialog تغيير بديد يا اينكه از BorderIcon گزينه Maximize رو False كنيد.

سلام
ببين دوست عزيز، اگه مي خواين كه فرمتون ثابت باشه ونشه توي صفحه تكونش بدن، كافيه خاصيت Align فرمتون رو به Custom تغيير بدين. اگه مي خوان اندازه فرم ثابت باشه، يكي از راهها همونيه كه حامد جان گفتن. و البته يه راه ديگه هم وجود داره كه خاصيتهاي موجود در خاصيت Constrain فرمتون رو مقدار دهي كنيد. مقادير MaxWidth,MinWidth,.... رو مقدار دهي كنيد.
موفق باشين

سلام منظورم همین بود که هنگام اجرا نتونیم جابجاش کنیم و تکون نخوره که گفتین از طریق align می شه ممنون از کمکتون

سلام بعنوان یکی از تنظیمات برنامم می خوام از برنامه ماشین حساب استفاده کنم از همون دستور winexec ('calc',SW_SHOW); استفاده می کنم البته هنگام اجرا برنامه ماشین حساب فرمش در هر جایی ظاهر می شه( یعنی جای مشخصی نداره یکبار بالای صفحه ظاهر می شه یکبار کمی بالاتر یکبار پایین تر) آیا می شه محل ظاهر شدن اون رو هم مشخص کرد و به صورت ثابت در یکجای مشخص بگیم که ظاهر بشه و مثلا مثل خاصیت position فرم که می تونیم بگیم وسط صفحه و ..... ممنون از کمکهایتون

سلام
از دستور setWindowPos استفاده كن. براي مثال قطعه كد زير برنامه notepad رو در مختصات 500 و 100 باز مي كنه.

کد:

---

var
  hh:HWnd;
begin
  winexec('notepad',SW_NORMAL);
  hh:=findwindow('notepad',nil);
  setWindowpos(hh,HWND_NOTOPMOST,500,100,0,0,SW_SHOW);
end;

---

سلام
الان من فقط باید بجای notepad ،calc رو جایگزین کنم ؟ اگه آره که این جواب نداد و بازم برنامه ماشین حساب در جاهای مختلف باز می شه می شه برای ماشین حساب هم کدش رو بنویسید که اجرا بشه ؟ ممنون
و اینکه آیا می شه برنامه رو هم ثابت کرد که هنگام اجرای برنامه درلفی برنامه ماشین حساب که اجرا می شه ثابت باشه مثل همون گزینه align فرمها که گفتید alcustom رو بزنیم برای ماشین حساب هم بشه ممنون از شما

نقل قول:

---

الان من فقط باید بجای notepad ،calc رو جایگزین کنم ؟ اگه آره که این جواب نداد و بازم برنامه ماشین حساب در جاهای مختلف باز می شه می شه برای ماشین حساب هم کدش رو بنویسید که اجرا بشه ؟ ممنون

---

خیر
باید عنوان (Caption) فرم که calculator هست رو بنویسید

نقل قول:

---

و اینکه آیا می شه برنامه رو هم ثابت کرد که هنگام اجرای برنامه درلفی برنامه ماشین حساب که اجرا می شه ثابت باشه مثل همون گزینه align فرمها که گفتید alcustom رو بزنیم برای ماشین حساب هم بشه ممنون از شما

---

راهی که به نظر من می رسه اینه که در یک حلقه با اینتروال 1 میلی ثانیه از دستور setWindowpos استفاده کنی.

ببخشید می شه کاملتر توضیح بدین ممنون

منظورم اینه که یه تایمر روی فرم بزاری و خاصیت Interval اون رو روی 1 تنظیم کنی.
بعد داخل کد OnTimer دستور setWindowpos رو روی فرم calculator اعمال کنی.

می شه توضیح کاملتری بدین ممنون

آخه من که فرم CALCULATER ندارم و دارم از ماشین حساب خود ویندوز استفاده می کنم
دستور winexec('calc',SW_SHOW) ; استفاده می کنم

با سلام
نمی دونم شاید شما سوال من رو درست متوجه نشده باشین شاید هم من منظور شما رو متوجه نمی شم اما با اینکار که شما گفتید برنامه ماشین حساب بصورت مکرر در قسمت های مختلف باز می شود من آنچه که می خوام اینه که الان که دکمه button ای که برای ماشین حساب در نظر گرفته ام را زدم برنامه ماشین حساب در وسط صفحه باز شود مثلا در مختصات 100و100 یا هر مختصات دیگری . برنامه ماشین حساب را که بستم دوباره که دکمه button در نظر گرفته شده برای ماشین حساب را که زدم دوباره برنامه ماشین حساب در همان قسمت قبل یعنی مختصات 100و100 باز شود بهمین ترتیب هر تعداد دفعات دیگری که برنامه ماشین حساب را که اجرا کردم در وسط صفحه باز شود (و البته اگر امکانش هم هست برنامه ماشین حساب اجازه تکان خوردن در صفحه را نداشته باشد و در صفحه فیکس باشد ) ممنون

منظورم از ثابت بودن برنامه ماشین حساب این بود که در صفحه در مختصات مشخصی باز شود نه اینکه همیشه برنامه ماشین حساب باز باشد بازم ممنون

نقل قول:

---

نمی دونم شاید شما سوال من رو درست متوجه نشده باشین شاید هم من منظور شما رو متوجه نمی شم اما با اینکار که شما گفتید برنامه ماشین حساب بصورت مکرر در قسمت های مختلف باز می شود من آنچه که می خوام اینه که الان که دکمه button ای که برای ماشین حساب در نظر گرفته ام را زدم برنامه ماشین حساب در وسط صفحه باز شود مثلا در مختصات 100و100 یا هر مختصات دیگری . برنامه ماشین حساب را که بستم دوباره که دکمه button در نظر گرفته شده برای ماشین حساب را که زدم دوباره برنامه ماشین حساب در همان قسمت قبل یعنی مختصات 100و100 باز شود بهمین ترتیب هر تعداد دفعات دیگری که برنامه ماشین حساب را که اجرا کردم در وسط صفحه باز شود

---

درست متوجه شدم ولی مثل اینکه شما درست متوجه نشدین!
باید دستور SetWindowPos رو توی Timer قرار بدین نه دستور WinExec رو!!! (<= این برای ثابت موندن یا عدم تحرک فرم روی دسکتاپ)
اگر می خواهید فقط بار اول که باز شد در مختصات خاصی باز شود بعد از باز کردن ماشین حساب توسط دستور Winexec یکبار از دستور setwindowpos استفاده کنید و مختصات مذکور رو بهش بدین!

ببخشید من قصد اهانت به شما را نداشتم اون چیزی رو که شما هم می گین انجام دادم ولی انجام نشد اینم کل برنامشه می شه ببینین کجاشو اشکال داره ضمنا interval اش رو هم 1 کردم

کد:

---


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
hh:HWnd;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('calc',SW_NORMAL);
hh:=findwindow('calc',nil);

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
setWindowpos(hh,HWND_NOTOPMOST,100,100,0,0,SW_SHOW);
end;

end.

---

نقل قول:

---

ببخشید من قصد اهانت به شما را نداشتم اون چیزی رو که شما هم می گین انجام دادم ولی انجام نشد اینم کل برنامشه می شه ببینین کجاشو اشکال داره ضمنا interval اش رو هم 1 کردم

---

مشکلی نیست
من الان دلفی رو سیستم ندارم پس اگه جواب نداد تقصیر من نیست!
فقط اگه جواب نداد Findwindow رو با توضیح جلوش عوض کن.

کد:

---


unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
hh:HWnd;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('calc',SW_NORMAL);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
hh:=findwindow('calculator',nil); //=> hh:=findwindow(nil,'calculator');
if(hh<>0)
setWindowpos(hh,HWND_NOTOPMOST,100,100,0,0,SW_SHOW);
end;
end

---

دوست عزيز من امتحان كردم. عجيبه كه اين تابع Setwindowpos براي Notepad و چندتا از برنامه هاي ديگه جواب ميده ولي براي Calculator ويندوز جواب نميده (ويندوزه ديگه. ازش بيشتر انتظار نميره). مي گردم تا راه حلش رو پيدا كنم. ولي پيشنهاد بهتري دارم. بهتره از كامپوننتهاي AlphaControls استفاده كنيد كه در انجمن هم معرفي شده. يكي از اين كامپوننتها، ماشين حسابي هست كه بطور بسيار دقيقي قابل كنترل هستش.
موفق باشين

نقل قول:

---

دوست عزيز من امتحان كردم. عجيبه كه اين تابع Setwindowpos براي Notepad و چندتا از برنامه هاي ديگه جواب ميده ولي براي Calculator ويندوز جواب نميده (ويندوزه ديگه. ازش بيشتر انتظار نميره).

---

فکر نمی کنم جواب نده ها !
شما در دستور FindWindow از نام کلاس استفاده کردین یا کپشن فرم ؟!

ممنون ولی من راستشو بخواید تازه کار دلفی هستم می شه بگید این کامپوننتهاکه گفتین چیه ؟ ببخشید دیگه اگه اذیتتون کردم

با سلام
چطور می تونم اگه اطلاعاتی مثلا فامیل که در یک combobox است رو حرف اولش رو که می زنم تمام فامیل هایی رو که در dbgrid اومده اونهاییش که حرف اولشان آنچه که در comboboxوارد کرده ام هست فقط نشون داده بشن مثلا حرف الف را که می زنم تمام فامیل هایی رو که با الف شروع می شن ( و البته قبلا در جدولم ثبت کرده ام ) رو نشون بده حرف دومش رو که زدم مثلا ح تمام فامیلهایی رو که با اح شروع می شوند حرف بعد میم زدم همه فامیل هایی که با احم شروع می شوند به همی صورت الی آخر

لطفا جواب بدین ممنون

سلام

فكر كنم اگر سوال فلسفي هم داشته باشيد توي همين تاپيك بپرسيد.
موضوع تاپيك چي بوده و الان به كجا كشيده شده؟!
سوالات ساده و در حد مبتدي را در تاپيك سوالات و آموزش براي مبتدي ها مطرح كنيد، براي بحث و سوال جديد (غير مبتدي) تاپيك جدا باز كنيد.

پشت سر هم پست ندهيد.

لطفا در ادامه اين بحث فقط در مورد موضوع تاپيك صحبت كنيد.

سلام دوستان آیا روشی برای فیکس کردن ماشین حساب پیدا کردین ؟