ceyLin
8 January 2009, 14:58
sid=25730;channel=29869;w=336;h=280;wmid=1079;doma in ="yenifrm.com";kategori ="16";gosterim="T";adsrv=1;arkaplan="FFFFFF";baslik="FF0000";aciklama="000000";kenarlik="FF0000";jsai="9e621a937d7041b1";
//görev çubuğunu göster gizle işlemi \\
//formunuza 2 tane buton koyun \\
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //gizle
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); //göster
end;
//görev çubuğunu göster gizle işlemi \\
//formunuza 2 tane buton koyun \\
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //gizle
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); //göster
end;