Desktopla Yanyana

[kite]

sa
Merhabalar;
aslında aylardır üyeyim ama; arama kaynakları okadar genişki her soruma cevap bulduğumdan pek yazmadım

Sorum şu: Formumun desktobun üzerinde değil yanında olmasını istiyorum. Şöyleki; Formum açıldığında desktop form width kadar ötelenecek ve orada formum gözükecek.

Bilmem anlatımım yeterli oldumu? Şimdiden gelecek cevaplar için teşekkür ederim

[true_false]

sorduğun soruyu anlamak için baya bir düşündüm sonunda anladım böle birşey yapmak bana fantazi gibi geldi ama neden olmasın. birde önerim eski işyerinde bir arkadaş dediğin gibi formu desktopun sağına gizlemişti form sağda scrool bar gibi duruyordu üzerine geldiği zaman sola doğru açılıyordu bilmem anlatabildimmi? böle bir compenant var ama adını unuttum formdaki arkadaşlar yardımcı olurlar sanırım.

[sabanakman]

Yanlış anlamadıysam

Kod: Tümünü seç

Form1.Left:=Screen.Width

kodunu soruyorsun.

[kite]

@truefalse
hatırlıyorum öyle bir uygulama; yerleştirme değerini - vererek yapmak mümkün. Componente gerek yok onun için. Teşekkür ederim fikrin için ayrıca

@sabanakman
hayır. atladığınız nokta, form desktop üzerinde olmayacak.

Benzeri bir uygulama gördüm, sanırım bir kafe programıydı. Belkide formun açıldığı yerde desktop öğelerini kaydırıyordu.

Çözülmedi hala...

[kite]

açıklayıcı olurmu bilmiyorum ama şöyle resmettim

[true_false]

fikir ilginç geldi biraz araştırma yaptım birazdan netten çıkıcam belki aramanda yardımcı olurum windows desktop handle tahminim desktopun handle ulaşabilirsen sonuca gidersin gibi geliyo denizde bir damla oldu ama şimdilik bunla idare et çalışmalarında başarılar
birde;
hdc
hdc screen
bunlarada bir bak istersen windows screen shot için kullanılıyor ama belkide burdan yaklaşabilirsin.

[kite]

henüz metod bulamadım

[mrmarman]

- Aşağıdaki şekilde bir yol haritası çiz kendine...

- Sonra program açıkken bir explorer aç ve köşeden maximize et. Göreceksin ki senin formunun üzerine çıkmayıp, bilakis formunun sağ kenarını sınır bilecek ve ona uyacaktır.

- Iconları sağa kaydırma olayını da yaparsın artık...

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  aRect: TRect;
begin
  // Formumuzu ICQ benzeri şekil solda bir sütunmuş gibi yayıyoruz.
  Top        := 0;
  Left       := 0;
  Width      := 200;
  Height     := Screen.Height - 30; // Taskbar yaklaşık yüksekliğini düşüyoruz...
  FormStyle  := fsStayOnTop;

  aRect.Top    := 0;
  aRect.Left   := Width;
  aRect.Right  := Screen.Width;
  aRect.Bottom := Screen.Height;
  SystemParametersInfo(SPI_SETWORKAREA, 0, @aRect, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  aRect: TRect;
begin
  // Eski haline getiriyoruz...
  aRect.Top    := 0;
  aRect.Left   := 0;
  aRect.Right  := Screen.Width;
  aRect.Bottom := Screen.Height;
  SystemParametersInfo(SPI_SETWORKAREA, 0, @aRect, 0);
end;

[sadettinpolat]

icq veya gorev cubugu seklinde olan formlar icin ozel bir kac mesaj ve sinif bulunuyor. gorev cubugunda oldugu gibi siz o formlarin yerini ya da boyutunu degistirdiginizde ekran uzerindeki icon ve formlarin yerleri yeniden ayarlaniyor.

cok eskiden bir ornek bir koda rastlamistim. delphide taskbarin ozellikleride eklenerek olusturulmus bir formdu. onunla cok basit bir sekilde bu islem oluyordu ama adini adresini hatirlayamadim.

appBar olarak aramamda ise
burdaki ucretli http://www.appcontrols.com/components.html appBar bilesenine ve yine toryde ucretsiz su bilesenlere ulastim.

http://www.torry.net/quicksearchd.php?S ... &Title=Yes

[kite]

torry de free olanlar D2 v D3 için.
Çok teşekkür ederim ilginiz için

[kite]

bu kodla nasıl title'ı yokedebilirim?
formun borderstyle ile oynadığım zaman alakasız sonuçlar veriyor

[mrmarman]

FormCreate olayında

Kod: Tümünü seç

  Form1.BorderStyle := bsNone;

dediğinde işini görmüyor mu ? Verdiğimiz dışında bir uygulaman varsa örnek bir kod hazırlayıp buraya yazarsan bakarız.

[kite]

üstte de belirttiğim gibi çok alakasız bir sonuç ortaya çıkıyor; form screen.width e eşit oluyor

[mrmarman]

formun WindowState değerini wsMaximized yapmışsındır. Onu wsNormal ile değiştir. Verdiğim kodda 200 width ile sınırlandırdım çünkü.

[kite]

kesinlikle öyle çok teşekkür ederim yardımınız için.
Sizin TC kimlik uygulamanızda doğum yılı label'ı duğum yılı olarak yazılmış. Eminim farketmişsinizdir, birde ben söyleyeyim