Bazen Open/Save dialog pencerelerinde bağzı metinleri değiştirmek isteriz.
Malesef Delphi windows dialoglarını değiştirmek için bize imkan sunmaz.
ama Windows API kullanarak birşeyler yapabiliriz.
Bu uygulama Open dialog taki metinleri değiştirir.
uses
CommDlg;
{...}
procedure TForm1 ...
72 uygun sonuç bulundu
- 07 Eyl 2010 06:21
- Forum: Makale ve İpucu
- Başlık: Standard Windows Dialoglarını Değiştirmek
- Cevaplar: 0
- Görüntüleme: 1176
- 07 Eyl 2010 04:26
- Forum: Makale ve İpucu
- Başlık: ColorToHtml / HtmlToColor Dönüştürmek
- Cevaplar: 0
- Görüntüleme: 1072
ColorToHtml / HtmlToColor Dönüştürmek
HTML içinde renkler, sanki bir metinmiş gibi RGB (Kırmızı yeşil mavi) biçimindedir. Rengin her parçası iki rakamlık bir Hex değeridir.
Bu uygulamayla TColor değerini HTML değerine dönüştürebilir, ya da tam tersini yapabilirsiniz.
uses SysUtils, Graphics ...
Bu uygulamayla TColor değerini HTML değerine dönüştürebilir, ya da tam tersini yapabilirsiniz.
uses SysUtils, Graphics ...
- 06 Eyl 2010 01:58
- Forum: Programlama
- Başlık: Client-Server - Soru
- Cevaplar: 9
- Görüntüleme: 2233
Re: Client-Server - Soru
mantığı anladıysan gerisi çocuk oyuncağı, port ve host vermeyi unutmayın!!!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ScktComp;
type
TForm1 = class(TForm)
Clientsocket1: TClientSocket;
StatusBar1 ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ScktComp;
type
TForm1 = class(TForm)
Clientsocket1: TClientSocket;
StatusBar1 ...
- 06 Eyl 2010 01:41
- Forum: Programlama
- Başlık: Dosya Uploadına Progressbar
- Cevaplar: 5
- Görüntüleme: 2104
Re: Dosya Uploadına Progressbar
ProgressBar ile FTP ye dosya upload
Function MyGetFileSize(const sFileName: String) : Int64;
var
oStream : TFileStream;
begin
Result := 0;
oStream := TFileStream.Create(sFileName,fmOpenRead );
result := oStream.Size;
oStream.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin ...
Function MyGetFileSize(const sFileName: String) : Int64;
var
oStream : TFileStream;
begin
Result := 0;
oStream := TFileStream.Create(sFileName,fmOpenRead );
result := oStream.Size;
oStream.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin ...
- 05 Eyl 2010 06:10
- Forum: Programlama
- Başlık: Windows 7 kullanıcı yönetici mi?
- Cevaplar: 2
- Görüntüleme: 1218
Re: Windows 7 kullanıcı yönetici mi?
Kullanıcı Adminmi bu uygulamayla anlayabilirsin, ama istediğin win7 de registry e ulaşmaksa uygulamanda UAC kullanmalısın.
function IsAdmin: Boolean;
var
hAccessToken: THandle;
ptgGroups: PTokenGroups;
dwInfoBufferSize: DWORD;
psidAdministrators: PSID;
x: Integer;
bSuccess: BOOL ...
function IsAdmin: Boolean;
var
hAccessToken: THandle;
ptgGroups: PTokenGroups;
dwInfoBufferSize: DWORD;
psidAdministrators: PSID;
x: Integer;
bSuccess: BOOL ...
- 05 Eyl 2010 05:28
- Forum: Programlama
- Başlık: delphi ile windows uygulamalarını minimize etmek
- Cevaplar: 5
- Görüntüleme: 2108
Re: delphi ile windows uygulamalarını minimize etmek
Bu uygulama edit1'e adı girilen uygulamayı taskbar'a küçültür
procedure TForm1.Button1Click(Sender: TObject);
var
Indicador:Hwnd;
begin
{Sınıf adıyla pencereyi bul}
Indicador := FindWindowByTitle(Edit1.Text);
{Eğer bulunmuşsa}
if (Indicador <> 0) then
begin
// Minimize
ShowWindow ...
procedure TForm1.Button1Click(Sender: TObject);
var
Indicador:Hwnd;
begin
{Sınıf adıyla pencereyi bul}
Indicador := FindWindowByTitle(Edit1.Text);
{Eğer bulunmuşsa}
if (Indicador <> 0) then
begin
// Minimize
ShowWindow ...
- 05 Eyl 2010 05:18
- Forum: Delphi VCL
- Başlık: String ARama
- Cevaplar: 5
- Görüntüleme: 3379
Re: String ARama
Tanımlama: function AnsiCompareStr(const S1, S2: string): Integer;
Birinci parametreyle girilecek olan metni, ikinci parametrede aramak için
kullanılan bir fonksiyondur. Şayet ilk parametre ikinci parametrenin içerisinde
bulunuyorsa sonuç pozitif, bulunmuyorsa negatif, iki metin aynı ise sıfır ...
Birinci parametreyle girilecek olan metni, ikinci parametrede aramak için
kullanılan bir fonksiyondur. Şayet ilk parametre ikinci parametrenin içerisinde
bulunuyorsa sonuç pozitif, bulunmuyorsa negatif, iki metin aynı ise sıfır ...
- 04 Ağu 2010 07:09
- Forum: Makale ve İpucu
- Başlık: Resimi Döndürmek Kod
- Cevaplar: 0
- Görüntüleme: 1022
Resimi Döndürmek Kod
{ Nette buldum açıklamasını Türkçe'ye çevirip yayınlıyorum:= Bu uygulama 90 derecedeki bir bitmap'ı 45 derece sağa doğru döndürür}
Uses Math;
// Resmi FromP noktasından ToP Noktasına döndürmek
function TForm1.Vektor(FromP, Top: TPoint): TPoint;
begin
Result.x := Top.x - FromP.x;
Result.y := Top ...
Uses Math;
// Resmi FromP noktasından ToP Noktasına döndürmek
function TForm1.Vektor(FromP, Top: TPoint): TPoint;
begin
Result.x := Top.x - FromP.x;
Result.y := Top ...
- 04 Ağu 2010 07:06
- Forum: Makale ve İpucu
- Başlık: BalloonHint Kullanımı
- Cevaplar: 4
- Görüntüleme: 2677
- 03 Ağu 2010 03:57
- Forum: Makale ve İpucu
- Başlık: BalloonHint Kullanımı
- Cevaplar: 4
- Görüntüleme: 2677
Re: BalloonHint Kullanımı
BalloonHint Delphi 2010 standart komponentidir. Ama aynı örneği kodla da delphinin önceki sürümlerinde de yapabilirsin, Normal hinte göre şık duruyor.
Eğer delphi nin diğer sürümlerini kullanıyorsanız aşşağıdaki kodu kullanabilirsiniz.
Sistem ikonlarını Kullanarak BalloonHint Kullanımı:
Uses ...
Eğer delphi nin diğer sürümlerini kullanıyorsanız aşşağıdaki kodu kullanabilirsiniz.
Sistem ikonlarını Kullanarak BalloonHint Kullanımı:
Uses ...
- 31 Tem 2010 07:31
- Forum: Makale ve İpucu
- Başlık: BalloonHint Kullanımı
- Cevaplar: 4
- Görüntüleme: 2677
BalloonHint Kullanımı
procedure TForm1.Button1MouseEnter(Sender: TObject);
var
Pt: TPoint; {Balloon tip için bir İşarateçi}
begin
BalloonHint1.Title := 'Deneme'; {Başlık}
BalloonHint1.Description := 'Bu Tuşa Bamaaaaaa'; {içerik Metin }
BalloonHint1.Images:=ImageList1;
BalloonHint1.ImageIndex:=0; {0 numaralı resimi ...
- 25 Tem 2010 11:01
- Forum: Makale ve İpucu
- Başlık: Kullanıcı Hesap Kontrolü (User Account Control)
- Cevaplar: 0
- Görüntüleme: 1863
Kullanıcı Hesap Kontrolü (User Account Control)
Merhaba Arakadaşlar kendim çevirdim inşallah birilerine yardımı olur.
Windows Güvenliği ve Kullanıcı Hesabı Kontrolü.
Windows Vista, uygulamaların dosya sistemini kullanmasına kısıtlamalar getirir. Önceki işletim sisteminde kullanıcıların Doküman klasörleri altında değişiklik yapmaları tartışma ...
Windows Güvenliği ve Kullanıcı Hesabı Kontrolü.
Windows Vista, uygulamaların dosya sistemini kullanmasına kısıtlamalar getirir. Önceki işletim sisteminde kullanıcıların Doküman klasörleri altında değişiklik yapmaları tartışma ...