PDA

View Full Version : سوال: چگونه می توان وقتی که دو فرم و یک دکمه داریم با زدن دکمه هنگامی که فرم دوم به نمایش در می اید...



farhadkarimi
جمعه 31 شهریور 1391, 21:08 عصر
سلام
دوستان عزیز لطفا راهنماییم کنید خیلی گیرم

سوال : چگونه می توان وقتی که دو فرم و یک دکمه داریم با زدن دکمه هنگامی که فرم دوم به نمایش در می اید علاوه بر فرم اول فرم دوم هم در تسکبار (taskbar) ویندوز نمایش داده شود و قابل انتخاب باشد تا اگر روی آن کلیک کردیم فرم دوم نمایش داده شود خیلی خیلی ممنون میشم اگر راهنماییم کنید

BORHAN TEC
جمعه 31 شهریور 1391, 23:21 عصر
سلام

با خواندن مقاله زیر مشکلتان به کلی حل خواهد شد:
http://delphi.about.com/od/formsdialogs/l/aa073101b.htm

در ضمن دوست عزیزم سعی کنید از این به بعد از عناوین خلاصه تر و با معنی تری استفاده کنید.

این هم از نحوه استفاده:

کدهای مربوط به فرم اصلی:
// کد های مربوط به فرم اول
uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;

کدهای مربوط به فرم دوم:
unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm2 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams);override;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;

with Params do
begin
ExStyle := ExStyle or WS_EX_APPWINDOW ;
WndParent := GetDesktopWindow;
end;
end;

end.

موفق باشید...