Masaüstüne post it benzeri notlar yapıştırmak

[ikut]

Merhaba
Arkadaşlar bende bir program var masaüstüne post it gibi pencelere açıyor. zemin renkleri değiştirmek mümkün. ancak bu pencelerde düğme başlık çubugu filan yok. sadece bir memo gibi..

bende bunun gibi bir uygulama yapmak istiyorum. bununla ilgili br fikri olan varmı. benim aklıma kodla başlık çubuğunu yok etmek geldi. geri kalan ise pnael üzerinde alclient yapılmış bir memo ?

Siz ne dersiniz.

[poshet303]

Masaüstüne web sayfası eklenebiliyor. Bu yöntemde kullanılabilir.

[ikut]

Masaüstüne web sayfası eklenebiliyor. Bu yöntemde kullanılabilir.

uygulamanın adı atnotes. ama gördüğüm kadarı ile web sayfasına pek benzemiyordu.

Saygılar

[aslangeri]

s.a.
formun border styl ını none yaptığın zaman başlık ve çerçeveler gider zaten.

[ikut]

s.a.
formun border styl ını none yaptığın zaman başlık ve çerçeveler gider zaten.

Ve aleykum selam ve rahmetullah.

hocam bu makbule geçti ya... bsdialog u kullanıyordum ama derler ya aradığın şey gözünün önündedir

[fatihtolgaata]

Ama post it gibi programlarda note penceresini büyültüp küçültebiliyorsun. Bu yüzden BorderStyle özelliğini bsNone yapmak ne kadar doğru bilemem. Bence aşağıdaki kod gibi bir şey ile CaptionBar'ı kaldırıp, border'ları görünür bırakmalısın. Kodlarda hata olabilir. Denemeden olluyorum.

Kod: Tümünü seç

var
  OldStyle: DWORD;
begin
  OldStyle := GetWindowLong(Formun handle'ı, GWL_STYLE);
  SetWindowLong(Formun handle'ı, GWL_STYLE, OldStyle and not WS_CAPTION or WS_BORDER);
end;

Dediğim gibi, api komutlarındaki paramtrelerin yeri yanlış olabilir. Denemeye fırsatım şu an yok. Ama onShow olayına eklersen muhtemelen çalışacaktır. Ayrıca forma basılınca sürüklemek için OnMouseDown olayında:

Kod: Tümünü seç

ReleaseCapture();
Perform(WM_SYSCOMMAND, $F012, 0);

yapabilirsin. Perform yerine SendMessage da kullanılabilir.

kolay gelsin.
vesselam.