point to select

با سلام خدمت تمام عزيزان
چطور ميشه در دلفي نيز مانند ويندوز هنگامي كه بر روي يك آيكون قرار مي گيريم بدون زدن دكمه موس آن آيكون انتخاب مي شود در دلفي نيز ليبل ها را ( دكمه نه ) هگامي كه بر روي آن ليبل قرار مي گيريم هم رنگ آن عوض شود و هم به صورت انتخاب شده در آيد
با تشكر

با استفاده از رویداد OnMouseMove

سلام
اگه منظورتون اينه كه ليبلها شبيه لينك ها بشن از روال زير استفاده كنيد. اگر خاصيت onMouseEnter و onMouseLeave هر كدوم از ليبلهاي فرمتون رو به ترتيب setUnderline و getUnderline مقدار دهي كنيد، به صورت لينك در مياد.
ابتدا اين رويدادها رو تعريف كنيد:

کد:

---

    Procedure setUnderline(sender:TObject);
    Procedure getUnderline(sender:TObject);

---

حال اين كدها رو بنويسين:

کد:

---

Procedure TForm1.setUnderline(sender:TObject);
begin
  with sender as Tlabel do
  begin
    Cursor:=crHandPoint;
    Font.Style:=[fsUnderline];
    Font.Color:=CLRed;
  end;
end;
Procedure TForm1.getUnderline(sender:TObject);
begin
  with sender as Tlabel do
  begin
    Cursor:=crDefault;
    Font.Style:=[];
    Font.Color:=CLblack;
  end;
end;

---

موفق باشيد

از راهنمايي شما بسياز متشكرم

چطور میشه یه نقشه طراحی کنیم که فاصله شهرا رو بهمون بده؟

منظورتون چيه؟ يعني مي خواين با دلفي نقشه طراحي كنيد؟ولي طبق تحقيقاتي كه كردم فكر كنم كه شما بهتره از يه عكس نقشه با رزولوشين بسيار بالا استفاده كنيد. حال بايد مقياس نقشه را تعيين و در نتيجه فاصله شهرها با هم را محاسبه كنيد. براي مثال شما دو نقطه از نقشه را انتخاب مي كنيد. مسلماً مختصات اين دو نقطه قابل دسترس است. لذا مي توانيد با توجه به مقياس نقشه فاصله دو نقطه را مشخص كنيد. ولي بازم مي گم، بهتره عكس نقشه، پر كيفيت باشه.
موفق باشيد.

ممنون ،ره همون کارو میخام بکنم فاصله های شهره رو بزارم تو بانک . وقتی روی یه شهر کلیک کنم اونو بگیره با کلیک دوم روی یه شهر دیگه اون فاصله رو تو edit نمایش بده؟؟؟تو کلیک موس موندم