نکته های ریز در دلفی (تکه برنامه های دلفی)

سولجر جان
لطف كن و پست قبليتو اصلاح كن و كدها رو توي Html بزار.
ممنون./

سلام
مرد مباح من از جواب سريع استفاده مي كنم.
و جواب سريع هم كه خودت مي دوني اين امكان رو نداره.
اما سعي مي كنم بذارم.حالا هم درستش كردم

[HTML]
Its Only For Example
[/HTML]
سلام
محمود عزيز اين كدي كه شما براي تغيير شكل فرم گذاشتيد اونجور كه انتظار داشتم شكل فرم رو تغيير نداد

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

من حسابي دنبال يه چيزي تو اين مايه ها مي گردم

ممنون

hp جان اون نوع كدي كه ميخواهي هست داشتمش ولي به فنا فلا رفت در صددم كه گيرش بيارم
اينم از كد جديد ما

کد:

---

procedure TForm1.Button1Click(Sender: TObject) ;

  function FuncAvail(_dllname, _funcname: string;
                     var _p: pointer): boolean;
  {return True if _funcname exists in _dllname}
  var _lib: tHandle;
  begin
   Result := false;
   if LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname)) ;
   if _lib <> 0 then begin
    _p := GetProcAddress(_lib, PChar(_funcname)) ;
    if _p <> NIL then Result := true;
   end;
  end;

  {
  Call SHELL32.DLL for Win < Win98
  otherwise call URL.dll
  }
  {button code:}
  var
   InetIsOffline : function(dwFlags: DWORD):
                   BOOL; stdcall;
  begin
   if FuncAvail('URL.DLL', 'InetIsOffline',
                @InetIsOffline) then
    if InetIsOffLine(0) = true
     then ShowMessage('Not connected')
     else ShowMessage('Connected!') ;
  end;

---

نيك باشيد

نقل قول:

---

نوشته شده توسط soldier

سلام
مرد مباح من از جواب سريع استفاده مي كنم.
و جواب سريع هم كه خودت مي دوني اين امكان رو نداره.
اما سعي مي كنم بذارم.حالا هم درستش كردم

---

خيلي ممنون سولجر جان كه اصلاح كردي.
منم توي همه صفحات از ارسال سريع استفاده ميكنم.
ولي اين صفحه رو استثنا بدون و برو تو حالت پيشرفته.
منم همين كارو ميكنم كه صفحه قشنگي خودشو داشته باشه.

سلام
براي مرد مباح كه شده ! باشه
راستي اچ پي اگر اون فرمي كه به صورت بيضي مي كنه
رو مي خواهي من دارمش.100% هم كار ميده.
تستش هم كردم.

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to length(RichEdit1.Text) - 1 do
begin
if RichEdit1.Text[i] = #13 then
with Image1.Canvas do
MoveTo(0, PenPos.Y + TextHeight(RichEdit1.Lines.Strings[0]));
RichEdit1.SelStart := i;
RichEdit1.SelLength := 1;
with image1.Canvas do
begin
Font.Color := RichEdit1.SelAttributes.Color;
Font.Size := RichEdit1.SelAttributes.Size;
Font.Style := RichEdit1.SelAttributes.Style;
if (RichEdit1.Text[i] #13) and (char(RichEdit1.Text[i]) #10) then
TextOut(PenPos.X, PenPos.Y, RichEdit1.Text[i]);
end;
end;

end;

---

سلام

سولجر جيگر خوب بده بياد ديگه چونه زدن نداره كه

ممنون

سلام
اول اين رو توي private اضافه كنيد

کد:

---

    procedure WmNCHitTest(var msg:TWMNCHitTest);message wm_NCHITTEST;

---

بعد جايي كه مي خواستيد فرم رو گرد كنيد اين را اونجا قرار بديد.

کد:

---

var h:THandle;
begin
  H:=CreateEllipticRgn(40,40,Width,Height);
  SetWindowRgn(Handle,h,True);
end;

---

و حالا اين رو قبل از end. اضافه كنيد.

کد:

---

procedure TFormEllipse.WmNCHitTest(var Msg:TWMNCHitTest);
begin
  DefaultHandler(Msg);
  if Msg.result = htclient then
    Msg.result := HTCAPTION;
end;

---

اسم فرم من TFormEllipse بود پس وقتی که می خواستید استفاده کنید
به جای TFormEllipse اسم فرم خودتان رو بگذارید.موفق باشید

سولجر عزيز اين دستور كه شما داديد با اون كد هايي كه قبلا دوستم محمود نوشته بود فرقي نداره كه

فقط دستوري كه بهش اضافه شده اجازه جابجايي فرم رو بوسيله كليك موس ميده

به هر حال دستتون درد نكنه

ممنون