Delphi Forum

sTb

Şöyle olabilir;aralara virgül koyup csv olarak kaydederseniz sütünlara ayrılmış olacaktır.

sTb

3 tane radiobutton ilave edip kodu aşaıdaki şekilde değiştiriniz.
Ek olarak; image1 in boyutunu istenilen şekilde ayarlayabilirsiniz ( ilk örnekte 320/240 olması şarttı)

var
w,h,CopyWidth,CopyHeight:integer;
img:tbitmap;
begin
if radiobutton1.Checked then
begin
CopyWidth:=100;
CopyHeight ...

sTb

Kod: Tümünü seç

  var
  img:tbitmap;
  begin
  img:=tbitmap.create;
  img.Assign(image1.Picture.Graphic);
  Image2.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, 100, 100), img.Canvas, Rect(w, h, 100 + w, 100 + h));
  img.free;

şeklinde jpg veya bmp resimler içinde kullanabilirsiniz.

sTb

S.A.
image1 in size nı 320 x 240 olarak ayarlayıp bir resim ekleyin.
image2 de zoom lanmış halini gösterecektir.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const
CopyWidth = 100;
CopyHeight = 100;
var
w,h:integer;
begin

w:=X*image1.Picture.Width ...

sTb

S.A.
@rsimsek abinini verdiği kodu biraz değiştirerek.( müsadenle abi :oops: )
Ne derece fark eder bilmiyorum ama;

I:integer;
begin
for I:=0 to ComponentCount-1 do
if components[I] is tpanel then
begin
if tpanel(components[I]).tag=105 then tpanel(components[I]).color:=clblue;
if tpanel ...

sTb

@haydarxxx cevabın geçliği için kusura bakmayın.

@ng dediği gibi, menuye eklerken

Kod: Tümünü seç

__.OnClick:=menuclick(sender);

ile ilave ediniz.

ilgili procedure de;

Kod: Tümünü seç

procedure menuClick(Sender: TObject);
  begin
  showmessage(tmenuitem(Sender).Caption);
  end;

şeklinde olacaktır.

sTb

Rica ederim... Yardımcı olabildiysek ne mutlu

sTb

viewtopic.php?t=9173&highlight=grid+drag+drop

viewtopic.php?t=16218&start=0&postdays= ... ccept+true

Nasıl yapılacağına dair bir fikir verebilir sanırım

sTb

onu atlamışım

Kod: Tümünü seç

listbox1.Items.Add(ara.Name);

yerine

Kod: Tümünü seç

 if (ara.name<>'.') and (ara.name<>'..') then listbox1.Items.Add(ara.Name);

şeklinde yazarmısınız.

" .. " => Bir üst dizini, "." mevcut dizini ifade eder diye biliyorum ms-dos dan

sTb

Klasörler için;

var
ara: TSearchRec;
begin
listbox1.clear;
if FindFirst(edit1.text + '*', faDirectory, ara) = 0 then
begin
repeat
if (ara.Attr = faDirectory) then
begin
listbox1.Items.Add(ara.Name);
end;
until FindNext(ara) <> 0;
FindClose(ara);

menüye aktarmak için de;

var ...

sTb

Bildiğim kadarı ile winexec ile yapılan pingin dönüşünü alamıyorsunuz . Ben aşağıdaki gibi kullanıyorum.

Formunuza button, listbox, edit ve IdIcmpClient bileşeni koyup;

Butona,
IdIcmpClient1.OnReply := IdIcmpClient1Reply;
IdIcmpClient1.ReceiveTimeout := 990;
try
IdIcmpClient1.Host := edit1 ...

sTb

@danacı tam olarak ne yapmak istediğinizi bilmiyorum ama checkbox kullansanız daha rahat olmaz mı ????

sTb

data set in onchangefield ( yanlış hatırlamıyorsam ) kısmına yazar mısın?

sTb

@Alierdem afterpost' a yazsıp dener misiniz?

@gimil onchange de olursa 11.11.2000 için ilk 9 karakterinde de hata verecektir.

sTb

s.a.

Kod: Tümünü seç

var
tarih:tdate;
begin
try
tarih:=strtodate(edit1.text);
except
showmessage('Tarih değil');
end;

şeklinde yapılabilir.

53 uygun sonuç bulundu