|
|
Programalama Dilleri
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Videolu Ders Anlatım
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
İşlemler
|
|
|
|
|
|
|
|
|
|
|
| |
Delphi Ekran Görüntüsü Almak
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;
|
DELPHİ İLE NOT DEFTERİ
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
DOSYA1: TMenuItem;
A1: TMenuItem;
Yeni1: TMenuItem;
DZEN1: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
BM1: TMenuItem;
Yaztipi1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
procedure Yeni1Click(Sender: TObject);
procedure k1Click(Sender: TObject);
procedure Kes1Click(Sender: TObject);
procedure Kopyala1Click(Sender: TObject);
procedure Yaztipi1Click(Sender: TObject);
procedure Yaptr1Click(Sender: TObject);
procedure Sil1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure Katdet1Click(Sender: TObject);
procedure Kaydet1Click(Sender: TObject);
procedure emizle1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Yeni1Click(Sender: TObject);
begin
memo1.Text:='';
end;
procedure TForm1.k1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Kes1Click(Sender: TObject);
begin
memo1.CutToClipboard ;
end;
procedure TForm1.Kopyala1Click(Sender: TObject);
begin
Memo1.CopyToClipboard ;
end;
procedure TForm1.Yaztipi1Click(Sender: TObject);
begin
FontDialog1.Execute;
memo1.Font :=FontDialog1.Font ;
memo1.Font.Size :=FontDialog1 .font.Size ;
memo1.Font.Style:=FontDialog1 .Font.Style ;
end;
procedure TForm1.Yaptr1Click(Sender: TObject);
begin
memo1.PasteFromClipboard ;
end;
procedure TForm1.Sil1Click(Sender: TObject);
begin
memo1.Text:=''
end;
procedure TForm1.A1Click(Sender: TObject);
begin
OpenDialog1.Execute ;
end;
procedure TForm1.Katdet1Click(Sender: TObject);
begin
SaveDialog1.Execute ;
end;
procedure TForm1.Kaydet1Click(Sender: TObject);
begin
SaveDialog1.Execute;
memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt' );
end;
procedure TForm1.emizle1Click(Sender: TObject);
begin
memo1.text:=''
end;
end.
|
|
|
|
|
|
|
| |
40482 ziyaretçi (65974 klik) |
|
|
|
| | |
