nesne taşıma

[recepgalip]

merhabalar delphidaşlarım.
ben şu anda bi raporlama progrmaı ile uğraşmaktayım. bileşenleri sağa-sola,aşağı-yukarı ,büyültüp-küçültmek için söle güzel çalışan bi comp. ihtiyacım var. aslında ben handles diye bi bileşen var onu kullanıyom.fakat onda da bileşeni taşıdığımda bırakmak istediğimde bazı sorunlarla karşılaştım. acaba buna benzer bi comp. hakkında bilgisi olan varmı. şimdiden tşk. ederim

[mepc]

Kod: Tümünü seç

Procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_DragMove=$F012;
begin
ReleaseCapture;
Button1.Perform(WM_SYSCOMMAND, sc_DragMove, 0);
end;

Bu form üzerindeki tüm nesnelere yapılabilir. Sadece o nesnenin MouseDown eventine yazmak gerekir. Component bilmiyorum ama bu kod ile istediğin gibi nesneleri yerleştirebilirsin.

Kolay gelsin

[oguzozturk74]

Report Builder bileşen seti bu istediğini yapıyor ..